<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") sqltext="select title,content from miscell where classcode='999' and sortnum=99" rs.Open sqltext,cn,1,1 if not rs.EOF then title=trim(rs("title")) content=trim(rs("content")) end if rs.Close %> <% mybz=0 set rsb1 = Server.CreateObject("ADODB.Recordset") set rsb2 = Server.CreateObject("ADODB.Recordset") if Session("userno")="" then c_usercode=Request.Cookies("usercode") c_userpass=Request.Cookies("userpass") c_loginflag=Request.Cookies("loginflag") if c_usercode<>"" then sql="select userno,userpass,flag,state,logintime,logincount,picfile,ipaddress from userinfo where usercode='"+c_usercode+"' and state='1'" rsb1.Open sql,cn,1,3 if rsb1.EOF then else oldpass=Lcase(trim(rsb1(1))) if oldpass=c_userpass then mybz=1 rsb1("logintime")=now() rsb1("logincount")=rsb1("logincount")+1 rsb1("ipaddress")=Request.ServerVariables("Remote_HOST") rsb1.Update Session("userno")=rsb1(0) Session("usercode")=c_usercode Session("userflag")=c_loginflag userno=rsb1(0) cn.Execute "delete from user_login where userno="&userno&" or keyno="&Session.SessionID if databaseflag="access" then sql="Insert into user_login values ("&Session.SessionID&","&userno&",'"+c_usercode+"',now(),now(),'"+classcode+"','"+loginflag+"','"+Request.ServerVariables("Remote_HOST")+"')" else sql="Insert into user_login values ("&Session.SessionID&","&userno&",'"+c_usercode+"',getdate(),getdate(),'"+classcode+"','"+loginflag+"','"+Request.ServerVariables("Remote_HOST")+"')" end if cn.Execute sql end if end if rsb1.Close end if end if if mybz=0 then sql="select * from user_login where keyno="&Session.SessionID rsb2.Open sql,cn,1,3 if not rsb2.EOF then rsb2("updatetime")=now() rsb2("classcode")=classcode else rsb2.Addnew rsb2("keyno")=Session.SessionID rsb2("userno")=0 rsb2("logintime")=now() rsb2("updatetime")=now() rsb2("loginflag")="0" rsb2("ipaddress")=Request.ServerVariables("Remote_HOST") rsb2("classcode")=classcode end if rsb2.Update rsb2.Close end if %> 服务条款_用户注册_<%=forumtitle%>_澳大利亚ABC环球集团
<%if Session("userno")<>"" then%> <%else%> <%end if%>
<%=Session("usercode")%> 重登录 | 注销 | 我的资料 | 现在时间是 <%=time()%>  
登录 | 注册 | 现在时间是 <%=time()%>  
  欢迎光临<%=forumtitle%>  
<%if classflag="1" then%> <%else%> <%end if%>
<%=forumtitle%> > 用户注册 > 服务条款与声明 <%=forumtitle%> > 用户注册 > 服务条款与声明  
>服务条款与声明  
<%=checkstr(content,"1")%>