'=================================================='函数名：PostHttpPage'作  用：登录'==================================================Function PostHttpPage(RefererUrl,PostUrl,PostData)     Dim xmlHttp     Dim RetStr   ...

global.asa<scriptLANGUAGE="VBScript"RUNAT="Server"> SubApplication_OnStartApplication("ActiveUsers")=0'从0开始计起.不过你可以把它设得更多哦,这样即使没人在线,人家一来你网站还会看到有900多人在线呢.EndSub SubSession_OnStartSession.Timeout=20'把Session超时设为30分钟——这是噱头之关键所在,你想设多少就设多少.Session("Start")=Now'Session开始时间 Application...