UC知道请高手帮忙翻译下网站和数据库打交道的部分源代码
来源：百度知道 编辑：UC知道 时间：2024/07/02 21:36:24
<%
if request("Action")="ChkLogin" Or request("Action")="" then
UserName=Checkin(Request.form("UserName"))
UserPassword=Checkin(Request.form("UserPassword"))
UserPassword=Md5(UserPassword)
CookieDate=Trim(request("CookieDate"))
if UserName="" or UserPassword="" then Response.Redirect ("Index.asp")
set rs=server.createobject("adodb.recordset")
sql="select*from"&WJ_DBTable&"where"&WJ_UserName&"='"&Username&"'and "&WJ_UserPassword&"='"&UserPassword&"'"
rs.open sql,conn_user,3,3
if not rs.EOF then
if rs("IsActive")=True then
rs(WJ_LoginNum)=rs(WJ_LoginNum)+1
rs(WJ_LastLogin)=Now()
rs(WJ_UserIP)=Request.ServerVariables("REMOTE_ADDR")
rs.Update
If WJ_ToUrl<>&quo
if request("Action")="ChkLogin" Or request("Action")="" then
UserName=Checkin(Request.form("UserName"))
UserPassword=Checkin(Request.form("UserPassword"))
UserPassword=Md5(UserPassword)
CookieDate=Trim(request("CookieDate"))
if UserName="" or UserPassword="" then Response.Redirect ("Index.asp")
set rs=server.createobject("adodb.recordset")
sql="select*from"&WJ_DBTable&"where"&WJ_UserName&"='"&Username&"'and "&WJ_UserPassword&"='"&UserPassword&"'"
rs.open sql,conn_user,3,3
if not rs.EOF then
if rs("IsActive")=True then
rs(WJ_LoginNum)=rs(WJ_LoginNum)+1
rs(WJ_LastLogin)=Now()
rs(WJ_UserIP)=Request.ServerVariables("REMOTE_ADDR")
rs.Update
If WJ_ToUrl<>&quo
这是一个用户登陆的asp会码后台检测
<%
if request("Action")="ChkLogin" Or request("Action")="" then '一般这里是检查外部用户要执行的操作，这里可能是检查登陆或无操作
UserName=Checkin(Request.form("UserName")) '检查来自外部表单传来的username变量
UserPassword=Checkin(Request.form("UserPassword")) ‘检查来自表单的userpassword变量,这两个是用户名和口令
UserPassword=Md5(UserPassword) '对口令进行MD5加密
CookieDate=Trim(request("CookieDate")) '去掉外部传来的变量CookieDate的空格,这里的变量可能是GET,POST,或COOKIE，按变量命名可能是cookie
if UserName="" or UserPassword="" then Response.Redirect ("Index.asp") '如果没有输入用户名或口令就跳转到index.asp就是首页
set rs=server.createobject("adodb.recordset") '这里是新建一个recordset对像，就是记录集对像，操作数据库要用，一般是access的数据库
sql="select*from"&WJ_DBTable&"where"&WJ_UserName&"='"&Username&"'and "&WJ_UserPassword&"='"&UserPassword&"'&quo