📄 login.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户登录</title>
</head>
<%
If request.form("Submit")="登录" Then
UserID=request.form("UserID")
UserPWD=request.form("UserPWD")
If not UserID="" and not UserPWD="" Then
'设置数据库连接的参数
dsn="dsn=CompMarket;"
uid="uid=sql-write;"
pwd="pwd=qb493;"
'建立数据库连接
set dcnCompMarket=Server.CreateObject("ADODB.Connection")
dcnCompMarket.Open dsn & uid & pwd
'设置当前查询所要操作的表和相应的SQL语句
rsSource="UserInfo"
rsSQL="select * from "&rsSource&" where [UserID]='"&UserID&"'"
'读取当前用户信息
set rsLogin=Server.CreateObject("ADODB.Recordset")
rsLogin.Open rsSQL,dcnCompMarket,1,2,1
If not rsLogin.EOF Then
If rsLogin.Fields("UserPWD")=UserPWD Then
session("UserID")=UserID
rsLogin.Close
set rsLogin=Nothing
dcnCompMarket.Close
set dcnCompMarket=Nothing
response.redirect("admin_Frameset.asp")
End If
rsLogin.Close
set rsLogin=Nothing
dcnCompMarket.Close
set dcnCompMarket=Nothing
End If
End If
End If
%>
<body>
<form name="form1" method="post" action="login.asp">
<table border="1" align="center">
<tr>
<td>用户名</td>
<td><input name="UserID" type="text" id="UserID" size="20"></td>
</tr>
<tr>
<td>密 码</td>
<td><input name="UserPWD" type="password" id="UserPWD" size="20"></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="登录">
<input type="reset" name="Reset" value="取消">
</div></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -