UC知道用户登录记录的问题ASP
来源：百度知道 编辑：UC知道 时间：2024/06/22 20:56:49
Sub Chklogin()
Dim Username,Password,Flag,Super,Ip
Username=CheckStr(Request.Form("Username"))
Password=CheckStr(Request.Form("Password"))
Sql="Select * FROM "& TableAdmin &" Where Username='"&Username&"' And Password='"&Md5(Password)&"'"
Set rs=conn.execute(sql)
If Rs.Eof Or Rs.Bof Then
strMsg=strMsg&"<li><font color=red>错误的用户名或密码</font>"
Else
UserName=Rs("UserName")
Flag=Rs("Flag")
Super=Rs("Super")
Set Rs2=Server.CreateObject("adodb.Recordset")
SQL="Select loginname,logintime,loginip From "&Tablehistorycheck
Rs2.Open SQL,Conn,1,3
Rs2.AddNew
Rs2("loginname")=CheckStr(Request.Form("Username"))
Rs2.Update
Rs2.Close
Set Rs2=Nothing
End If
Dim Username,Password,Flag,Super,Ip
Username=CheckStr(Request.Form("Username"))
Password=CheckStr(Request.Form("Password"))
Sql="Select * FROM "& TableAdmin &" Where Username='"&Username&"' And Password='"&Md5(Password)&"'"
Set rs=conn.execute(sql)
If Rs.Eof Or Rs.Bof Then
strMsg=strMsg&"<li><font color=red>错误的用户名或密码</font>"
Else
UserName=Rs("UserName")
Flag=Rs("Flag")
Super=Rs("Super")
Set Rs2=Server.CreateObject("adodb.Recordset")
SQL="Select loginname,logintime,loginip From "&Tablehistorycheck
Rs2.Open SQL,Conn,1,3
Rs2.AddNew
Rs2("loginname")=CheckStr(Request.Form("Username"))
Rs2.Update
Rs2.Close
Set Rs2=Nothing
End If
给楼主一个简单且实用的登录页面写法,只需稍做修改成你需要的内容即可.
登录页面的写法(loging.asp)
<!--#include file="conn.asp"-->
<form name=form1 method=post action="">
<input name=username type=text size=15>
<input name=password type=text size=15>
<input naem=denglu type=submit value=登录>
</form>
<%
if not isempty(request("denglu")) then call denglu()
sub denglu()
username=request.form("username")
password=request.form("password")
if username="" or password="" then
response.write"<script>alert('请输入用户名或密码!');history.go(-1)</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where name='"&username&"'"
rs.open sql,conn,3,3
if rs.eof then
response.write"<script>alert('你还没有注册!');histor