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 + -
显示快捷键?