神马品牌网救赎ol狙击枪刷点视频:哪位好心人帮我看看
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 00:56:20
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+server.mappath("../09/BBS.mdb")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户登录</title>
</head>
<body bgcolor="#FFCCFF">
<p>
<%
if Request("UID")<>"" AND Request("PWD")<>"" Then
sql="SELECT * FROM currentuser WHERE UID='"&Request("UID")&"'"
set currentuserRs=conn.Execute(sql)
if currentuserRs.Bof or currentuserRs.Eof then
LogTime=Now()
SerialNum=Cstr(Hour(logTime))&Cstr(Minute(LogTime))&Cstr(Second(LogTime))&Cstr(Int(Rnd*10000))
sql="INSERT INTO currenteuser(UID,Email,LastLogon,IPAddress,SerialNum)VALUES('"
sql=sql & Request("UID")&"','"&Request("Email") &"','"& Now() &"','"& Request("REMOTE_ADDR") &"','"& SerialNum &"')"
conn.Execute(sql)
Else
SerialNum=currentuserRs("SerialNum")
End If
currentuserRs.Close
set currentuserRs=Nothing
End If
LogonStyle=Request("LogonStyle")
if LogonStyle="登录" then
sql="SELECT*FROM everuser WHERE UID='"&Request("UID")&"'"
Set LogUserRs=conn.Execute(sql)
if LogUserRs.Bof OR LogUserRs.Eof Then
Response.Write"请检查是否输入错误,登录失败.<br>"
Else
if Request("PWD")<>LogUserRs("PWD") Then
Response.Write"口令出错,请检查是否大小写不对.<br>"
else
Response.Redirect "main.asp?SerialNum="&SerialNum
End if
End if
ElseIf LogonStyle="新用户注册" OR LogonStyle="完成"Then
sql="SELECT*FROM everuser WHERE UID='"&Request("UID")&"'"
Set LogUserRs=conn.Execute(sql)
if Not (LogUserRs.Eof AND LogUserRs.Bof) Then
Response.Write"这个用户名已经被注册了,请选用其他的用户名.<br>"
Else
if LogonStyle="完成" Then
sql="INSERT INTO everuser(UID,PWD,Email,Homepage)VALUES('"
sql=sql&Request("UID")&"','"&Request("PWD")&"','"&Request("Email")&"','"&Request("HomePage")&"')"
conn.Execute(sql)
sql="UPDATE currentuser set Email='"& Request("Email")&"'WHERE UID='"&Request("UID")&"'"
conn.Execute(sql)
Response.Redirect "main.asp?SerialNum="&SerialNum
End If
End If
End If
%>
</p>
<p align="center"> </p>
<%
Set conn=Server.CreateObject("ADODB.Connection") //以下为数据库连接参数
conn.Open="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+server.mappath("../09/BBS.mdb")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户登录</title>
</head>
<body bgcolor="#FFCCFF">
<p>
<%
/*用户名，密码非空，执行查询*/
if Request("UID")<>"" AND Request("PWD")<>"" Then
sql="SELECT * FROM currentuser WHERE UID='"&Request("UID")&"'"
/*记录登陆时间*/
set currentuserRs=conn.Execute(sql)
if currentuserRs.Bof or currentuserRs.Eof then
LogTime=Now()
/*将时间转换成字符并加随机5位数结尾组成序号*/
SerialNum=Cstr(Hour(logTime))&Cstr(Minute(LogTime))&Cstr(Second(LogTime))&Cstr(Int(Rnd*10000))
/*将信息写入数据表*/
sql="INSERT INTO currenteuser(UID,Email,LastLogon,IPAddress,SerialNum)VALUES('"
sql=sql & Request("UID")&"','"&Request("Email") &"','"& Now() &"','"& Request("REMOTE_ADDR") &"','"& SerialNum &"')"
conn.Execute(sql)
Else
SerialNum=currentuserRs("SerialNum")
End If
currentuserRs.Close
set currentuserRs=Nothing
End If
LogonStyle=Request("LogonStyle")
if LogonStyle="登录" then
sql="SELECT*FROM everuser WHERE UID='"&Request("UID")&"'"
Set LogUserRs=conn.Execute(sql)
if LogUserRs.Bof OR LogUserRs.Eof Then
Response.Write"请检查是否输入错误,登录失败.<br>"
Else
if Request("PWD")<>LogUserRs("PWD") Then
Response.Write"口令出错,请检查是否大小写不对.<br>"
else
Response.Redirect "main.asp?SerialNum="&SerialNum
End if
End if
ElseIf LogonStyle="新用户注册" OR LogonStyle="完成"Then
sql="SELECT*FROM everuser WHERE UID='"&Request("UID")&"'"
Set LogUserRs=conn.Execute(sql)
if Not (LogUserRs.Eof AND LogUserRs.Bof) Then
Response.Write"这个用户名已经被注册了,请选用其他的用户名.<br>"
Else
if LogonStyle="完成" Then
/*写入注册信息*/
sql="INSERT INTO everuser(UID,PWD,Email,Homepage)VALUES('"
sql=sql&Request("UID")&"','"&Request("PWD")&"','"&Request("Email")&"','"&Request("HomePage")&"')"
conn.Execute(sql)
sql="UPDATE currentuser set Email='"& Request("Email")&"'WHERE UID='"&Request("UID")&"'"
conn.Execute(sql)
Response.Redirect "main.asp?SerialNum="&SerialNum
End If
End If
End If
%>
</p>
<p align="center"> </p>
就是论坛注册的代码嘛