📄 user_search.asp
字号:
' 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
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev
Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "") Then
MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If
MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<html>
<head>
<title>兰州理工大学石油化工学院教师业务管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta http-equiv="keywords" content="兰州理工大学石油化工学院学院，明星设计，lyz.cn@126.com,L.Y.Z">
<LINK href="css.css" type=text/css rel=stylesheet>
</head>
<body background="img/bg.gif" topmargin="0" leftmargin="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#99CC00">
<tr>
<td height="30"> </td>
</tr>
<tr>
<td><img src="img/admin_top.gif" width="778" height="66"></td>
</tr>
<tr>
<td> 您现在正在操作：<span class="style8">查询信息</span></td>
</tr>
<tr>
<td>
<table width="754" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="img/admin_search.gif" width="754" height="27"></td>
</tr>
<tr>
<td background="img/table_bg.gif">
<form name="form1" method="post" action="">
<table width="754" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="105"> </td>
<td width="97"> </td>
<td width="147"> </td>
<td width="24"> </td>
<td width="170"> </td>
<td width="58"> </td>
<td width="65"> </td>
<td width="88"> </td>
</tr>
<tr>
<td> </td>
<td>请输入关键词:</td>
<td><input name="key" type="text" id="key" size="20"></td>
<td align="center">按</td>
<td><select name="cond" id="cond">
<option value="tc_name">姓名</option>
<option value="tc_indate">入校时间</option>
<option value="tc_zhy">所学专业</option>
<option value="tc_dw">所在基层单位</option>
</select></td>
<td><input type="submit" name="Submit" value="查询"></td>
<td><input type="reset" name="Submit2" value="重来"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td background="img/table_btom.gif"> </td>
</tr>
</table>
<table width="754" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="img/admin_list.gif" width="754" height="27"></td>
</tr>
<tr>
<td background="img/table_bg.gif">
<table width="754" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="70"> </td>
<td width="140"> </td>
<td width="166"> </td>
<td width="166"> </td>
<td width="166"> </td>
<td width="46"> </td>
</tr>
<tr>
<td> </td>
<td colspan="3">共计 <i><%=(rs_total)%></i> 条记录，当前显示第 <i><%=(rs_first)%></i> 条到第 <i><%=(rs_last)%></i> 条</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> <% If MM_offset <> 0 Then %>
<A HREF="<%=MM_moveFirst%>" class="4">第一页</A>
<% End If ' end MM_offset <> 0 %></td>
<td> <% If MM_offset <> 0 Then %>
<A HREF="<%=MM_movePrev%>" class="4">上一页</A>
<% End If ' end MM_offset <> 0 %></td>
<td> <% If Not MM_atTotal Then %>
<A HREF="<%=MM_moveNext%>" class="4">下一页</A>
<% End If ' end Not MM_atTotal %></td>
<td> <% If Not MM_atTotal Then %>
<A HREF="<%=MM_moveLast%>" class="4">最末页</A>
<% End If ' end Not MM_atTotal %></td>
<td> </td>
</tr>
</table>
<table width="754" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="66"> </td>
<td width="114"> </td>
<td width="366"> </td>
<td width="162"> </td>
<td width="42"> </td>
</tr>
<tr>
<td> </td>
<td><b>姓名</b></td>
<td><b>所在基层单位</b></td>
<td><b>查看</b></td>
<td> </td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
%>
<tr onMouseOver="this.style.backgroundColor='#99CC00'" onMouseOut ="this.style.backgroundColor=''">
<td> </td>
<td><%=(rs.Fields.Item("tc_name").Value)%></td>
<td><%=(left(rs.Fields.Item("tc_dw").Value,26))%></td>
<td><input name="btm1" type="button" id="btm1" style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" onclick=" window.location='show.asp?id=<%=rs("tc_id")%>'" onMouseOver ="this.style.backgroundColor='#FFC864'" onMouseOut ="this.style.backgroundColor='#D4D0C8'" value="查看此教师资料"></td>
<td> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs.MoveNext()
Wend
%>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td width="4"> </td>
</tr>
</table>
<table width="754" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="70"> </td>
<td width="140"> <% If MM_offset <> 0 Then %>
<A HREF="<%=MM_moveFirst%>" class="4">第一页</A>
<% End If ' end MM_offset <> 0 %></td>
<td width="166"> <% If MM_offset <> 0 Then %>
<A HREF="<%=MM_movePrev%>" class="4">上一页</A>
<% End If ' end MM_offset <> 0 %></td>
<td width="166"> <% If Not MM_atTotal Then %>
<A HREF="<%=MM_moveNext%>" class="4">下一页</A>
<% End If ' end Not MM_atTotal %></td>
<td width="166">
<% If Not MM_atTotal Then %>
<A HREF="<%=MM_moveLast%>" class="4">最末页</A>
<% End If ' end Not MM_atTotal %></td>
<td width="46"> </td>
</tr>
</table> </td>
</tr>
<tr>
<td background="img/table_btom.gif"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -