<%@ CODEPAGE=65001 %> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog '// 作 者: 朱煊(zx.asd)&(sipo) '// 版权所有: RainbowSoft Studio '// 技术支持: rainbowsoft@163.com '// 程序名称: '// 程序版本: '// 单元名称: c_updateinfo.asp '// 开始时间: 2007-1-26 '// 最后修改: '// 备 注: '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Response.Buffer=True %> <% Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" If Len(ZC_UPDATE_INFO_URL)>0 Then Call GetReallyDirectory() Dim strPingTime Dim strPingContent Dim b b=False Dim fso,f Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(BlogPath & "CACHE\updateinfo.txt")=True Then Set f = fso.GetFile(BlogPath & "CACHE\updateinfo.txt") strPingContent=LoadFromFile(BlogPath & "CACHE\updateinfo.txt","utf-8") If DateDiff("h",f.DateLastModified,Now)>12 Then b=True End If Else b=True End If If IsEmpty(Request.QueryString("reload"))=False Then ' Application.Lock ' Application(ZC_BLOG_CLSID & "PING_TIME")=Empty ' Application(ZC_BLOG_CLSID & "PING_CONTENT")=Empty ' Application.UnLock b=True End If 'Application.Lock 'strPingTime=Application(ZC_BLOG_CLSID & "PING_TIME") 'strPingContent=Application(ZC_BLOG_CLSID & "PING_CONTENT") 'Application.UnLock 'If IsDate(strPingTime)=True Then ' strPingTime=DateDiff("h", strPingTime,Now) 'End If If b=True Then Dim strSendTB strSendTB = "inpHost=" & Server.URLEncode(ZC_BLOG_HOST) & "&inpTimezone=" & Server.URLEncode(ZC_TIME_ZONE) & "&inpVersion=" & Server.URLEncode(ZC_BLOG_VERSION) & "&inpLanguage=" & Server.URLEncode(ZC_BLOG_LANGUAGE) & "&inpIP=" & Server.URLEncode(Request.ServerVariables("LOCAL_ADDR")) Dim objPing Set objPing = Server.CreateObject("MSXML2.ServerXMLHTTP") objPing.open "POST",ZC_UPDATE_INFO_URL,False objPing.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objPing.send strSendTB strPingContent=objPing.responseText Dim objRegExp Set objRegExp=New RegExp objRegExp.IgnoreCase =True objRegExp.Global=True objRegExp.Pattern="||<[a-zA-Z][^>]*=['""]+javascript:\w+.*['""]+>|<\w+[^>]*\son\w+=.*[ /]*>" strPingContent= objRegExp.Replace(strPingContent,"") Set objPing = Nothing Call SaveToFile(BlogPath & "CACHE\updateinfo.txt",strPingContent,"utf-8",False) 'Application.Lock 'Application(ZC_BLOG_CLSID & "PING_TIME")=Now 'Application(ZC_BLOG_CLSID & "PING_CONTENT")=strPingContent 'Application.UnLock End If Response.Write strPingContent End If %>