📄 duzhechaxun.asp

📁 这是一个图书管理系统,也许能给大家一些帮助
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/db1.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_db1_STRING
Recordset1.Source = "SELECT * FROM join_table"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("ts3"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="../loginok.asp"
  MM_redirectLoginFailed="../loginerror.asp"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_db1_STRING
  MM_rsUser.Source = "SELECT id, password"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM join_table WHERE id='" & Replace(MM_valUsername,"'","''") &"' AND password='" & Replace(Request.Form("textfield"),"'","''") & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style2 {
	font-family: "幼圆";
	font-size: 24px;
	color: #0033CC;
}
.style3 {color: #0066FF}
.style5 {font-family: "幼圆"; font-size: 18px; color: #0033CC; }
.style6 {color: #0033CC}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #999999;
}
a:hover {
	text-decoration: underline;
	color: #FF9900;
}
a:active {
	text-decoration: none;
	color: #FF9900;
}
.style7 {
	font-family: "楷体_GB2312";
	font-weight: bold;
}
-->
</style>
</head>

<body>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolordark="#0066FF">
  <tr>
    <td height="375" align="center" valign="top"><p><img src="tushuchaxun.png" width="600" height="93"></p>
    <p class="style2">&nbsp;</p>    <form action="<%=MM_LoginAction%>" method="POST" name="form1" class="style3">
      <p><span class="style6">输入学号</span>：          
        <input name="ts3" type="text" class="style6" id="ts3">
</p>
      <p class="style6">输入密码：  
        <input name="textfield" type="password" class="style6">
      </p>
      <p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;
        <input type="submit" name="Submit" value="确认输入"> 
          <input type="reset" name="Submit2" value="重新填写">  
        </p>
    </form>    
    <p align="right" class="style5"><a href="../index.asp"><span class="style6 style12"><a href="../index.asp"><span class="style7">返回系统首页</span></a></span>　　　</a></p>
    </td>
  </tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -