'设置好global.asa文件,如下:<scriptLANGUAGE="VBScript"RUNAT="Server">SubApplication_OnStart   Application("ActiveUsers")=0   '设置计数初始值,可以根据自己的需要哦.EndSubSubSession_OnStart   Session.Timeout=20'根据需要,设置超时时间.   Session("Start")=Now'设置一个Session开始时间...

<％ifnotIsEmpty(Session("cust—id"))andLen(Session("cust—id"))>0then'用户登录后指向主页.　Response.Redirect("navigation/dashbrd.asp")　'在此添入真正的主页URL.endifbLogin=False　　'设置标志.bError=FalseifIsEmpty(Request("uid"))orLen(Request("uid"))=0orIsEmpty(Request("pwd"))orLen(Request("pwd"))=0then　　'检查空字符.　　bLogin=Tru...