📄 glygl.asp

📁 学籍管理功能,能实现调班注销学籍等,中小学通用
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/conn.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="3,4"
MM_authFailedURL="../zx/shibai1.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim banzhuren
Dim banzhuren_numRows

Set banzhuren = Server.CreateObject("ADODB.Recordset")
banzhuren.ActiveConnection = MM_conn_STRING
banzhuren.Source = "SELECT * FROM admin_name ORDER BY class ASC"
banzhuren.CursorType = 0
banzhuren.CursorLocation = 2
banzhuren.LockType = 1
banzhuren.Open()

banzhuren_numRows = 0
%>
<%
Dim glygl
Dim glygl_numRows

Set glygl = Server.CreateObject("ADODB.Recordset")
glygl.ActiveConnection = MM_conn_STRING
glygl.Source = "SELECT * FROM gjadmin ORDER BY id ASC"
glygl.CursorType = 0
glygl.CursorLocation = 2
glygl.LockType = 1
glygl.Open()

glygl_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
banzhuren_numRows = banzhuren_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<form id="form1" name="form1" method="post" action="glyglbc.asp">
<table width="410" border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
      <tr>
        <td width="35" align="center"><font size="2">序号</font></td>
        <td width="72" align="center"><font size="2">班级</font></td>
        <td width="85" align="center"><font size="2">班级名称</font></td>
        <td width="62" align="center"><font size="2">班主任</font></td>
        <td width="62" align="center"><font size="2">密码</font></td>
		<td width="44" align="center"><font size="2">角色</font></td>
      </tr>
      <% 
While ((Repeat1__numRows <> 0) AND (NOT banzhuren.EOF)) 
%>
        <tr>
          <td align="center"><font size="2"><%=(banzhuren.Fields.Item("ID").Value)%> 
			</font> </td>
          <td align="center"><label>
          <font size="3">
          <input name="class<%=(banzhuren.Fields.Item("ID").Value)%>" type="text" id="class<%=(banzhuren.Fields.Item("ID").Value)%>" value="<%=(banzhuren.Fields.Item("class").Value)%>" size="4" /></font><font size="2">
			</font>
          </label></td>
          <td align="center"><font size="3"><input name="classB<%=(banzhuren.Fields.Item("ID").Value)%>" type="text" id="classB<%=(banzhuren.Fields.Item("ID").Value)%>" value="<%=(banzhuren.Fields.Item("class_1").Value)%>" size="8" /></font></td>
          <td align="center"><font size="3"><input name="admin<%=(banzhuren.Fields.Item("ID").Value)%>" type="text" id="admin<%=(banzhuren.Fields.Item("ID").Value)%>" value="<%=(banzhuren.Fields.Item("admin").Value)%>" size="8" /></font></td>
          <td align="center"><font size="3"><input name="power<%=(banzhuren.Fields.Item("ID").Value)%>" type="text" id="power<%=(banzhuren.Fields.Item("ID").Value)%>" value="<%=(banzhuren.Fields.Item("power").Value)%>" size="8" /></font></td>
          <td align="center"><label>
            <font size="3">
            <select name="jibie<%=(banzhuren.Fields.Item("ID").Value)%>" id="jibie<%=(banzhuren.Fields.Item("ID").Value)%>" title="<%=(banzhuren.Fields.Item("jibie").Value)%>">
              <option value="1">班主任</option>
              <option value="2">转学管理</option>
              <option value="3">学籍管理</option>
              <option value="4">高级管理</option>
              <option value="<%=(banzhuren.Fields.Item("jibie").Value)%>" selected="selected">
              <% if (banzhuren.Fields.Item("jibie").Value)="1" then 
response.write "班主任" 

ElseIf  (banzhuren.Fields.Item("jibie").Value)="2" then 
	    response.write "转管理" 
ElseIf  (banzhuren.Fields.Item("jibie").Value)="3" then 
	    response.write "学籍管理" 
ElseIf  (banzhuren.Fields.Item("jibie").Value)="4" then 
	    response.write "高级管理" 
else 
response.write "无权限"
end if 
%>
              </option>
          </select></font><font size="2"> </font><font size="3">
            <input name="id" type="hidden" id="id" value="<%=(banzhuren.Fields.Item("ID").Value)%>" />
          </font>
          </label></td>
        </tr>
        <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  banzhuren.MoveNext()
Wend
%>
</table>
<p>
  <label>
  <input type="submit" name="Submit" value="保存记录" />
  </label>
</p>
</form>
</body>
</html>
<%
banzhuren.Close()
Set banzhuren = Nothing
%>
<%
glygl.Close()
Set glygl = Nothing
%>
⌨️ 快捷键说明

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