<%
on error resume next
'建立cache缓存机制，不再频繁刷新，1分钟1次
Const CACHE_DEFAULT_INTERVAL = 3000
strLastupdate = Application("Lastupdate")
If (strLastupdate = "") Or (CACHE_DEFAULT_INTERVAL < DateDiff("s", strLastupdate, Now)) Then
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")
strWebserviceURL = "http://anleo6.9966.org:31111/zcjscx.asp"
'设置参数及其值
strRequest =""
objHTTP.Open "Post", strWebserviceURL, False
'设置这个Content-Type很重要
objHTTP.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
objHTTP.Send(strRequest)
'看看状态值
zxrsFor2 = objHTTP.responsetext
objhttp.close
strWebserviceURL = "http://anleo6.2288.org:31111/zxrscx.asp"
'设置参数及其值
strRequest =""
objHTTP.Open "Post", strWebserviceURL, False
'设置这个Content-Type很重要
objHTTP.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
objHTTP.Send(strRequest)
'看看状态值
zxrsFor9 = objHTTP.responsetext
objhttp.close
set objhttp=nothing
Application.Lock
Application("LastzxrsFor2") = CStr(zxrsFor2)
Application("LastzxrsFor9") = CStr(zxrsFor9)
Application("Lastupdate") = CStr(now)
Application.UnLock
else
zxrsFor2 = Application("LastzxrsFor2")
zxrsFor9 = Application("LastzxrsFor9")
end if
%>
main
安乐窝赞助装备保护数据库。确保赞助玩家利益。
安乐窝红月购买的装备都会收录各服务器赞助装备数据库，每件装备都是独立存在的，
只有购买本人享受装备使用权和转让权，不管是杀怪掉落，还是被玩家恶意PK死亡掉落，
都可以找回自己购买的装备。
装备找回标准：
100元以下装备享受 1次免费找回次数。
100元以上装备享受 2次免费找回次数。
超过将每次收取10元手续费。