📄 yipian.asp
字号:
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** 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
%>
<%
' *** 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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>修改/删除学生信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE2 {font-size: 12px}
.STYLE3 {color: #FF0000}
-->
</style>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="Top.asp"-->
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<TD vAlign=top width=46 background=images/p_left_2.gif></TD>
<TD><p align="center"><b><font size="5">2009春转学生名单</font></b></p>
<p align="center"><b><span class="home">[共 <span class="STYLE3"><%=(mingdan_total)%> </span>人</span><span class="STYLE2">]</span> </b> </p>
<form Name="del" onSubmit="return ConfirmDel()" method="post" action="InfoDel2.asp">
<div align="center">
<table cellspacing=0 width="100%" border=1 bordercolor="#FFCC00" style="border-collapse: collapse">
<tr align="center" valign="middle" bordercolor="#FFCC00">
<td height="30" nowrap><font color="#000000">序号</font></td>
<td nowrap><font color="#000000">姓名</font></td>
<td nowrap><font color="#000000">性别</font></td>
<td nowrap><font color="#000000">班别</font></td>
<td nowrap>住宿</td>
<td nowrap><font color="#000000">户口类型</font></td>
<td nowrap><font color="#000000">账号</font></td>
<td nowrap><font color="#000000">牛奶</font></td>
<td nowrap><font color="#000000">校服1</font></td>
<td nowrap><font color="#000000">校服2</font></td>
<td width="60" nowrap><div align="center"><font color="#000000">身份证</font></div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT mingdan.EOF))
%>
<tr>
<% i= i+1 %>
<td height="28" align="center" nowrap><% = i %></td>
<td height="20" align="center" nowrap><%=(mingdan.Fields.Item("name").Value)%></td>
<td height="20" align="center"><%=(mingdan.Fields.Item("性别").Value)%></td>
<td height="20" align="center" nowrap>
<% if left((mingdan.Fields.Item("class").Value),1)="1" then
response.write "一"
ElseIf left((mingdan.Fields.Item("class").Value),1)="2" then
response.write "二"
ElseIf left((mingdan.Fields.Item("class").Value),1)="3" then
response.write "三"
ElseIf left((mingdan.Fields.Item("class").Value),1)="4" then
response.write "四"
ElseIf left((mingdan.Fields.Item("class").Value),1)="5" then
response.write "五"
ElseIf left((mingdan.Fields.Item("class").Value),1)="6" then
response.write "六"
ElseIf left((mingdan.Fields.Item("class").Value),1)="7" then
response.write "七"
ElseIf left((mingdan.Fields.Item("class").Value),1)="8" then
response.write "八"
else
response.write "九"
end if
%>（<% if right((mingdan.Fields.Item("class").Value),2)<"10" then
response.write right((mingdan.Fields.Item("class").Value),1)
else
response.write right((mingdan.Fields.Item("class").Value),2)
end if
%>）班</td>
<td height="20" align="center" nowrap><% if mingdan.Fields.Item("住宿费").Value="150" then
response.write "是"
else
response.write ""
end if
%></td>
<td height="20" ><%=(mingdan.Fields.Item("核查户口").Value)%></td>
<td height="20" align="center" nowrap><%=(mingdan.Fields.Item("缴费帐号").Value)%></td>
<td height="20" align="center" nowrap><% if mingdan.Fields.Item("学生奶").Value="99" then
response.write "是"
else
response.write ""
end if
%></td>
<td height="20" align="center" nowrap><%=(mingdan.Fields.Item("校服号码").Value)%></td>
<td height="20" align="center" nowrap><%=(mingdan.Fields.Item("增订校服号码").Value)%></td>
<td align="center" height="20"><%=(mingdan.Fields.Item("身份证号").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
mingdan.MoveNext()
Wend
%>
</table>
</div>
<div align="center">
<table border="0" width="50%" align="center">
<tr>
<td width="23%" align="center"><% If MM_offset <> 0 Then %>
<a href="<%=MM_moveFirst%>">第一页</a>
<% End If ' end MM_offset <> 0 %>
</td>
<td width="31%" align="center"><% If MM_offset <> 0 Then %>
<a href="<%=MM_movePrev%>">前一页</a>
<% End If ' end MM_offset <> 0 %>
</td>
<td width="23%" align="center"><% If Not MM_atTotal Then %>
<a href="<%=MM_moveNext%>">下一页</a>
<% End If ' end Not MM_atTotal %>
</td>
<td width="23%" align="center"><% If Not MM_atTotal Then %>
<a href="<%=MM_moveLast%>">最后一页</a>
<% End If ' end Not MM_atTotal %>
</td>
</tr>
</table>
<br>
</div>
</form></TD>
<TD vAlign=top width=46 background=images/p_left_3.gif></TD>
</tr>
</table>
<!--#include file="CopyRight.asp"-->
</BODY>
</HTML>
<%
mingdan.Close()
Set mingdan = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -