login.asp
来自「管理员用户登陆: 用户名 admin 密码123 (密码可打开access数据」· ASP 代码 · 共 46 行
ASP
46 行
<%@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 + =
减小字号Ctrl + -
显示快捷键?