loginaction.asp

5237 论坛.rar

<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/Md5.asp" -->
<%
UserID=LiannCheckBadWord(Request.Form("UserID"))
Password=Md5(LiannCheckBadWord(Request.Form("Password")))
Set rsLogin = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tUserManage Where rUserID='"&UserID&"'"
rsLogin.Open Sql,ConnY,3,3
'用户不存在.
If rsLogin.Eof And rsLogin.Bof Then
Response.Redirect "Error.asp?ID=13"
Else
'用户存在,则检查密码.
If Password<>rsLogin("rPassword") Then
Response.Redirect "Error.asp?ID=14"
Else
rsLogin("rLoginNum")=rsLogin("rLoginNum")+1
rsLogin("rLastLoginTime")=Now()
rsLogin("rExp")=rsLogin("rExp")+1
rsLogin("rAssets")=rsLogin("rAssets")+3
rsLogin.Update
Session("SUserID")=UserID
Session("SLevel")=rsLogin("rLevel")
Session("SNickName")=rsLogin("rNickName")
Response.Redirect "List.asp"
End If
End If
rsLogin.Close
%>