📄 top.asp

📁 学籍管理功能,能实现调班注销学籍等,中小学通用
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

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

Recordset1_numRows = 0
%>
<%
Dim MM_paramName 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<!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>
<style type="text/css">
<!--

A { text-decoration: none} 
body {
	background-image: url(greystrip.gif);
}
#Layer1 {
	position:absolute;
	width:97px;
	height:22px;
	z-index:1;
	left: 14px;
	top: 20px;
}
.STYLE5 {
	font-size: 18px;
	font-weight: bold;
	color: #0000FF;
}
#Layer2 {
	position:absolute;
	width:141px;
	height:42px;
	z-index:2;
	left: 637px;
	top: 26px;
}
.STYLE6 {
	color: #000000;
	font-size: 12px;
}
.STYLE7 {color: #FFFFFF}
#Layer3 {
	position:absolute;
	width:97px;
	height:22px;
	z-index:3;
	left: 637px;
	top: 1px;
}
.STYLE9 {
	color: #FFFFFF;
	font-size: 14px;
	font-weight: bold;
}
a:link {
	color: #FFFFFF;
}
a:visited {
	color: #FFFFFF;
}
a:hover {
	color: #FFFFFF;
}
a:active {
	color: #FFFFFF;
}
-->
</style>
</head>

<body bgcolor="#0051D6" style="background-image: url('')">

  <div class="STYLE5" id="Layer1" style="position: absolute; left: 18px; top: 23px"><a href="t_index.asp" target="_parent"> <font color="#FFFFFF">退出系统</font></a></div>
  <table border="0" width="100%" id="table1" height="50">
    <tr>
      <td background="images/admin_top_bg.gif"><p align="center"><img src="images/top3.gif" width="409" height="32" /></p></td>
    </tr>
  </table>
  <hr />
  <div id="Layer3"><span class="STYLE9" style="line-height: 150%; margin-top: 0; margin-bottom: 0"><img src="images/announce.gif" width="20" height="16" />最新通知：</span></div>
  <div class="STYLE6" id="Layer2">
    <p class="STYLE7" style="line-height: 150%; margin-top: 0; margin-bottom: 0"><strong><a href="readxinwen.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "id=" & Recordset1.Fields.Item("id").Value %>" target="mainFrame"><%=(Recordset1.Fields.Item("biaoti").Value)%></a></strong><img src="images/new.gif" width="33" height="16" /></p>
    
</div>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明

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