<%
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
安乐窝家族消费待遇明细：
家族总消费达到1000元，反还 价值 100元 补助类用品。
家族总消费达到3000元，再反还 价值 200元 补助类用品。
家族总消费达到5000元，再反还 价值 300元 补助类用品，并全家族成员赞助装备增加1次装备找会次数。
家族消费超过5000元后，每消费1000元，反还价值200元补助类用品。
补助类用品包括 各种补助类针剂，生命水，献祭之石。
家族消费要求：必须购买装备用户名字前有家族前缀。
本家族消费待遇 于2008年7月1日起生效，最终解释权归安乐窝所有。