<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% '/////////////////////////////////////////////////////////////////////////////// '// 插件制作: ZSXSOFT '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Call System_Initialize() '检查非法链接 Call CheckReference("") '检查权限 If BlogUser.Level>1 Then Call ShowError(6) If CheckPluginState("Gravatar")=False Then Call ShowError(48) BlogTitle="Gravatar头像" Dim c Set c=New TConfig c.Load "Gravatar" If Request.QueryString("act")="save" Then Gravatar_Enable=Request.Form("Gravatar_Enable") Gravatar_EmailMD5=Request.Form("Gravatar_EmailMD5") c.Write "c",Gravatar_EmailMD5 c.Write "e",Gravatar_Enable c.Save Call SetBlogHint(True,Empty,Empty) If Request.Form("Gravatar_Refresh")="True" Then Dim objRS Set objRS=objConn.Execute("SELECT [mem_ID],[mem_Name] FROM [blog_Member] ORDER BY [mem_ID] ASC") If (Not objRS.bof) And (Not objRS.eof) Then Do While Not objRS.eof Call AddBatch("缓存用户"& objRS("mem_Name")&"的Gravatar头像","Gravatar_GetImage "& objRS("mem_ID")) objRS.MoveNext Loop End If End If EnD iF %>

<%Call GetBlogHint()%>

<%=BlogTitle%>

·启用Gravatar头像
·Gravatar URL 推荐设置一般无需改动
默认值	http://cn.gravatar.com/avatar/{%emailmd5%}?s=40&d={%source%}
·刷新注册用户Gravatar头像的缓存如果用户数多会比较耗费时间和占用AVATAR目录空间