📄 ssresult.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="1,2"
MM_authFailedURL="admin/accessfail.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 RSss__varziduan
RSss__varziduan = "任何"
if (Request("ziduan") <> "") then RSss__varziduan = Request("ziduan")
%>
<%
Dim RSss__varkey
RSss__varkey = "任何"
if (Request("key") <> "") then RSss__varkey = Request("key")
%>
<%
set RSss = Server.CreateObject("ADODB.Recordset")
RSss.ActiveConnection = MM_conn_STRING
RSss.Source = "SELECT name, birthday, sex, zhicheng, zhichengdate, xueke, workstart, mianmao, jiguan, lastxueli, renjiaobumen, firstxueli, bianzhi, bianzhileibie FROM jg WHERE " + Replace(RSss__varziduan, "'", "''") + " like '%" + Replace(RSss__varkey, "'", "''") + "%' "
RSss.CursorType = 0
RSss.CursorLocation = 2
RSss.LockType = 3
RSss.Open()
RSss_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
RSss_numRows = RSss_numRows + Repeat1__numRows
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
' 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
%>
<html>
<head>
<title>轻燕工作室中学人事管理系统－搜索结果列表页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="files/cssresult.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table width="777" border="0" cellspacing="0" cellpadding="0" align="center" height="100%">
<tr>
<td align="center" valign="top" background="files/bgview.gif">
<div align="center"><font color="#FF0000"><b><font color="#FF0000"><b><font color="#FF0000"><b><font color="#FF0000"><b><font color="#FF0000"><b><font color="#0000FF"><span class="cssresult"><img src="admin/top.gif" width="777" height="106" usemap="#Map" border="0" align="middle"></span></font></b></font></b></font></b></font></b></font></b></font><font color="#FF0000"><b><font color="#FF0000"><b><font color="#FF0000"><b><font color="#FF0000"><b><font color="#FF0000"><b><font color="#0000FF"><span class="cssresult">
<map name="Map">
<area shape="rect" coords="7,79,59,104" href="index1.asp" target="_self">
<area shape="rect" coords="62,79,113,106" href="search.asp" target="_self">
<area shape="rect" coords="116,78,208,103" href="add.asp" target="_self">
<area shape="rect" coords="307,76,359,106" href="admin/admuserlogin.asp" target="_self">
<area shape="rect" coords="696,76,748,104" href="admin/loginout.asp" target="_self">
<area shape="rect" coords="639,76,693,102" href="index.asp" target="_self">
<area shape="rect" coords="212,78,303,103" href="view.asp" target="_self">
<area shape="rect" coords="687,9,764,38" href="help.htm" target="_blank">
</map>
</span></font></b></font></b></font></b></font></b></font></b></font>
</div>
<table width="777" border="2" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr align="center" bgcolor="#66CC00">
<td width="10%"><font color="#000000" size="2" class="cssresult">姓名</font></td>
<td width="5%" class="cssresult"><font color="#000000" size="2" class="cssresult">性别</font></td>
<td width="11%" class="cssresult"><font color="#000000" size="2" class="cssresult">出生</font></td>
<td width="10%"><font size="3" color="#000000"><font size="2" class="cssresult">政治面貌</font></font></td>
<td width="10%"><font color="#000000" size="2" class="cssresult">籍贯</font></td>
<td width="8%"><font size="2" color="#000000" class="cssresult">第一学历</font></td>
<td width="8%"><font color="#000000" size="2" class="cssresult">最高学历</font></td>
<td width="10%"><font color="#000000" size="2" class="cssresult">职称</font></td>
<td width="10%"><font color="#000000" size="2" class="cssresult">任教学科</font></td>
<td width="8%"><font size="2" color="#000000" class="cssresult">任教部门</font></td>
<td width="5%"><font color="#000000" size="2" class="cssresult">编制</font></td>
<td width="9%"><font size="2" color="#000000" class="cssresult">编别</font></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT RSss.EOF))
%>
<tr align="center">
<td width="10%"><a href="ssdetail.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "name=" & RSss.Fields.Item("name").Value %>" target="_blank"><font size="2" class="cssresult"><%=RSss("name")%></font></a></td>
<td width="5%"><font size="2" class="cssresult"><%=RSss("sex")%></font></td>
<td width="11%"><font size="2" class="cssresult"><%=RSss("birthday")%></font></td>
<td width="10%"><font size="2" class="cssresult"><%=RSss("mianmao")%></font></td>
<td width="10%"><font size="2" class="cssresult"><%=RSss("jiguan")%></font></td>
<td width="8%"><font size="2" class="cssresult"><%=RSss("firstxueli")%></font></td>
<td width="8%"><font size="2" class="cssresult"><%=RSss("lastxueli")%></font></td>
<td width="10%"><font size="2" class="cssresult"><%=RSss("zhicheng")%></font></td>
<td width="10%"><font size="2" class="cssresult"><%=RSss("xueke")%></font></td>
<td width="0%"><font size="2" class="cssresult"><%=RSss("renjiaobumen")%></font></td>
<td width="0%"><font size="2" class="cssresult"><%=RSss("bianzhi")%></font></td>
<td width="9%"><font size="2" class="cssresult"><%=RSss("bianzhileibie")%></font></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RSss.MoveNext()
Wend
%>
</table>
<% If RSss.EOF And RSss.BOF Then %>
<table width="70%" border="0" cellspacing="0" cellpadding="0" height="148">
<tr>
<td>
<p align="center"><b><font color="#FF6600" size="6"><span class="cssindexda">对不起！没有符合要求的记录,</span></font></b></p>
<p align="center"><font color="#FF6600"><b><font size="6" class="cssindexda">请点击</font>
</b></font><font size="6"><a href="search.asp" target="_self"><b><font color="#FF0000" size="0" class="cssindexda">[重新搜索]</font></b></a></font></p>
</td>
</tr>
</table>
<% End If ' end RSss.EOF And RSss.BOF %>
</td>
</tr>
</table>
</body>
</html>
<%
RSss.Close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -