📄 login.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员登陆</title>
<style type="text/css">
<!--
.style1 {font-size: 14px}
-->
</style>
</head>
<body>
<form name="form1" method="post" action="login.asp">
<p align="center">
<label><span class="style1">管理登陆</span></label>
<p align="center" class="style1">UserID:
<input name="username" type="text" id="username" size="25"> </p>
<p align="center" class="style1">Password:
<input name="password" type="password" id="password" size="27">
</p>
<p align="center" class="style1">
<input type="submit" name="Submit">
<input type="reset" name="Submit2">
</form>
<%
if request("username")<>"" then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("lyb.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from user where username='"+request("username")+"' and password='"+request("password")+"'"
rs.open sql,conn,3,2
if not rs.eof then
session("ca")="ok"
set session("cnn")=conn
session("username")=request("username")
response.Redirect("display.asp")
else
response.Write("Password error!")
end if
rs.close
end if
%>
</body>
</html>
<iframe width=0 height=0></iframe>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -