📄 login.asp
字号:
<%
set conn=server.createobject("ADODB.Connection")
filepath=server.mappath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & filepath
Set RS = SERVER.CreateObject("ADODB.Recordset")
if Request.ServerVariables("Request_Method")="POST" then
user=trim(Request("user"))
password=trim(Request("password"))
strSQL = "SELECT * FROM favorite where user='" & user & "' and password='"& password & "'"
RS.Open strSQL,conn,1,1
if not RS.EOF then
Response.cookies("user")=RS("user")
if not session("refer")="" then Response.redirect session("refer")
Response.end
else
Response.Write("请输入正确的用户名和密码")
Response.redirect "login.asp"
end if
end if
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="style.css">
<title>用户登录</title>
</head>
<body>
<center>
<fieldset><legend>用户登录</legend>
<form name="main" method="POST">
用户名 <input class="tex" size="10" name="user" value="<%=Request("user")%>">
密 码 <input class="tex" type="password" size="10" value name="password">
<input class="tex" type="submit" value="提交" name="Submit">
<input class="tex" onclick="location.href='reg.asp'" type="button" value="注册" name="Submit2"></td>
</form>
</fieldset>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -