% If Request("Action")="login" Then UserName=GoBack(Request("UserName"),"请输入用户名称") Password=GoBack(Request("Password"),"请输入用户密码") Cookies_Time=int(Request("Cookies_Time")) CheckCode=Trim(Request("CheckCode")) If Session("ValidCode")<>CheckCode Then Call AlertUrl("四位数字的验证码输入错误!","index.asp") Set Rs=Server.CreateObject("Adodb.RecordSet") Sql="Select * From Member Where UserName='"&UserName&"'" Rs.Open Sql,Conn,1,1 If Rs.Eof And Rs.Bof Then Call AlertUrl("没有此注册用户!","index.asp") If Rs("Password")<>Md5(Password) Then Call AlertUrl("密码错误!","index.asp") Set Rs=Server.CreateObject("Adodb.RecordSet") Sql="Select * From Member Where UserName='"&UserName&"'" Rs.Open Sql,Conn,3,2 Rs("LoginTotal")=Rs("LoginTotal")+1 Rs("LastLoginTime")=Now() Rs.Update Session("CfCountUser")=UserName Randomize RanNum=int(90000000*rnd)+10000000 CfWztgUserCooKie=Md5(UserName&RanNum&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)) If Cookies_Time>0 Then Response.Cookies("CfCountUserCooKie")=CfWztgUserCooKie Cookies_Time=Dateadd("n",Cookies_Time,Now()) Response.Cookies("CfCountUserCooKie").expires=Cookies_Time End If Sql="Update Member Set Cookies='"&CfWztgUserCooKie&"' Where UserName='"&UserName&"'" Conn.ExeCute Sql Cookies_Time=Dateadd("d",365,Now()) Response.Cookies("CfCountggCookie")="yes" Response.Cookies("CfCountggCookie").expires=Cookies_Time Response.Redirect "ctmanage.Asp" End If%>
|
JS与htm互转 |
站长工具 |
网址导航 |
![]() |
alexa排名查看 |
搜索引擎收录 |
交流论坛 |
>
首页
| >开始刷站
| >申请VIP会员
| >排名维护服务
| >刷站积分结算
| >够买积分交易
| >什么是Alexa排名
| >获取推广代码
| >下线注册报表
| >用户留言
| >站长网
|
|
|
|