📄 admin_modify.asp
字号:
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
%>
<%
' *** 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="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%"> </td>
<td width="23%"> </td>
<td width="23%"> </td>
<td width="8%"> </td>
<td width="7%"> </td>
<td width="18%"> </td>
</tr>
<tr>
<td> </td>
<td>请输入你要查询的老师姓名:</td>
<td><input name="key" type="text" id="key"></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>
</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="70"> </td>
<td width="117"> </td>
<td width="408"> </td>
<td width="53"> </td>
<td width="53"> </td>
<td width="53"> </td>
</tr>
<tr>
<td> </td>
<td><b>姓名</b></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 type="button" value="修改" onclick=" window.location='admin_edit.asp?id=<%=rs("tc_id")%>'" style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver ="this.style.backgroundColor='#FFC864'" onMouseOut ="this.style.backgroundColor='#D4D0C8'"></td>
<td><input type="button" value="删除" onclick="if (confirm('确实要此条记录吗？')) window.location='admin_del.asp?id=<%=rs("tc_id")%>'" style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver="this.style.backgroundColor='#FFC864'" onMouseOut="this.style.backgroundColor='#D4D0C8'"></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> </td>
<td> </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 + -