中间件编程

开发平台：
HTML/CSS

c_updateinfo.asp：源码内容
							<%@ 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 %>
<!-- #include file="../c_option.asp" -->
<!-- #include file="../function/c_function.asp" -->
<!-- #include file="../function/c_system_base.asp" -->
<%
	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 & "CACHEupdateinfo.txt")=True Then
			Set f = fso.GetFile(BlogPath & "CACHEupdateinfo.txt")
			strPingContent=LoadFromFile(BlogPath & "CACHEupdateinfo.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="<script.*/*>|</script>|<[a-zA-Z][^>]*=['""]+javascript:w+.*['""]+>|<w+[^>]*sonw+=.*[ /]*>"
			strPingContent= objRegExp.Replace(strPingContent,"")
			Set objPing = Nothing
			Call SaveToFile(BlogPath & "CACHEupdateinfo.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
%>

						