login.asp

来自「asp制作的音乐系统,初步功能实现了用户登录」· ASP 代码 · 共 40 行

ASP
40
字号
<%
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")%>"> 
  密&nbsp;&nbsp;码 <input class="tex" type="password" size="10" value name="password"> 
  <input class="tex" type="submit" value="提交" name="Submit"> 
  &nbsp; <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 + =
减小字号Ctrl + -
显示快捷键?