📄 index.asp

📁 学生学籍信息这是一个针对学生学籍信息的管理软件
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/assistconn.asp" -->
<%
Dim loginset__MMColParam
loginset__MMColParam = "xyz"
If (Request.Form("userid")   <> "") Then 
  loginset__MMColParam = Request.Form("userid")  
End If
%>
<%
Dim loginset__MMColpass
loginset__MMColpass = "123"
If (Request.Form("password")   <> "") Then 
  loginset__MMColpass = Request.Form("password")  
End If
%>
<%
Dim loginset
Dim loginset_numRows

Set loginset = Server.CreateObject("ADODB.Recordset")
loginset.ActiveConnection = MM_assistconn_STRING
loginset.Source = "SELECT *  FROM user  WHERE stuser = '" + Replace(loginset__MMColParam, "'", "''") + "' AND stpassword = '" + Replace(loginset__MMColpass, "'", "''") + "'"
loginset.CursorType = 0
loginset.CursorLocation = 2
loginset.LockType = 1
loginset.Open()

loginset_numRows = 0
%>
<%
Dim mngset__MMColParam
mngset__MMColParam = "manager"
If (Request("MM_EmptyValue") <> "") Then 
  mngset__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim mngset
Dim mngset_numRows

Set mngset = Server.CreateObject("ADODB.Recordset")
mngset.ActiveConnection = MM_assistconn_STRING
mngset.Source = "SELECT stpassword  FROM user  WHERE stuser = '" + Replace(mngset__MMColParam, "'", "''") + "'"
mngset.CursorType = 0
mngset.CursorLocation = 2
mngset.LockType = 1
mngset.Open()

mngset_numRows = 0
%>
<%
mngpasswd=(mngset.Fields.Item("stpassword").Value)
'mngpasswd="select password from user where userID LIKE manager"
'If loginset__MMColParam = "manager" and	loginset__MMColpass = "888" then Response.Redirect "manage.asp" end if
If loginset__MMColParam = "manager" and	loginset__MMColpass = mngpasswd then Response.Redirect "manage.asp" end if
if loginset__MMColParam <> "xyz" then
	if Not loginset.EOF then
		Response.Redirect "loginok.asp"
	else 
		Response.Redirect "refuse.asp"
	end if
end if
%>

<html>
<head>
<title>[ 欢迎使用 Cute Assistant v1.0 学籍信息管理系统：：请输入用户名和密码 ]</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body background="images/bkg02.jpg">
<p align="center"><img src="images/catitle.gif" alt="欢迎使用Cute Assistant v1.0 学籍信息管理系统，请把使用中的意见和建议按下面的地址发送给我！" width="333" height="82"></p>
<form name="form1" method="post" action="index.asp">
  <p align="center"><a href="help.asp">使用说明</a>　　　　　<a href=# onClick="closes.Click();">退出系统</a></p>
  <table width="48%" border="0" align="center">
    <tr> 
      <td><div align="right">用户名：</div></td>
      <td><input name="userid" type="text" id="userid"></td>
    </tr>
    <tr> 
      <td><div align="right">密码：</div></td>
      <td><input name="password" type="password" id="password2"></td>
    </tr>
    <tr> 
      <td colspan="2"><div align="center"><br>
          <input type="submit" name="Submit" value="进入">
        </div></td>
    </tr>
  </table>
  </form>
<table width="39%" border="0" align="center">
  <tr> 
    <td><div align="right">作者：</div></td>
    <td>马闯·哈尔滨</td>
  </tr>
  <tr> 
    <td><div align="right">E-mail：</div></td>
    <td><a href="mailto:limitmc@sina.com">limitmc@sina.com</a></td>
  </tr>
  <tr> 
    <td><div align="right"></div></td>
    <td><OBJECT  id=closes  type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
        <param name="Command" value="Close">
      </object>
    </td>
  </tr>
</table>
<p align="center"><br>
  <br>
  Cute Assistant version 1.0 <br>
  Copyrights 2002.10 <a href="mailto:limitmc@sina.com">machuang</a> All Rights 
  Reserved <br>
</p>

</body>

</html>
<%
loginset.Close()
Set loginset = Nothing
%>
<%
mngset.Close()
Set mngset = Nothing
%>
⌨️ 快捷键说明

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