您所在位置：主题：关于返回分页的问题
freemanchina
[专家分：330] 发布于 2007-04-18 15:53:00
有2个页面，zsy.asp;modi.asp，当前为zsy.asp?pageno=n,(n为2或3等)当我在此点击修改到modi.asp进行修改后如何返回zsy.asp?pageno=n，初学者请问modi.asp的第23行response.Redirect "zsy.asp" 该如何写。
1、zsy.asp代码
<%
Response.Expires=0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("jscj.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
dim rs
dim sql
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from jjcj"
rs.Open sql,conn,1,1
pagecounter="20"
%>
<HTML>
<HEAD>
<title>修改删除</title>
</head>
<body>
<p align="center"><font size=20 color=blue>成绩查询</font></p>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFCC66">
<form name="form1" method="post" action="dele.asp"><tr>
<th>班级</th>
<th>学号</th>
<th>姓名</th>
<th>课程</th>
<th>成绩</th>
<th>修改信息</th>
<th><input type="submit" name="submit" value="删除"></th>
</tr>
<%
pageno=request.QueryString("pageno")
rs.pagesize=pagecounter
page=rs.pagecount
if pageno="" or pageno<1 then
pageno=1
end if
if rs.eof or rs.bof then
response.write"<font color=""ff0000"">此数据表没有记录!</font>"
else
rs.absolutepage=Cint(pageno)
position=rs.pagesize*pageno
pagebegin=position-rs.pagesize+1
if position<rs.recordcount then
pagend=position
else
pagend=rs.recordcount
end if
e=1
do while not rs.eof and e<=rs.pagesize
e=e+1
%>
<tr>
<td><%=rs("班级")%></td>
<td><%=rs("学号")%></td>
<td><%=rs("姓名")%></td>
<td><%=rs("课程")%></td>
<td><%=rs("成绩")%></td>
<td><a href="modi.asp?MID=<%=rs("ID")%>">修改</a></td>
<td><%ID=rs("ID")
response.write"<input type=""checkbox"" name=""checkbox"" value="""&ID&""""%></td>
</tr>
<%
rs.movenext
loop
pagecounter=pagecounter-1
end if
rs.close
set rs=nothing
%>
<tr>
<td colspan="7" align="center" bgcolor="#ffffff" >
页次:[<%=Cint(pageno)%>/<%=page%>]
记录:[<%=Cint(pagebegin)%>至<%=pagend%>条]
<%if Cint(pageno)>1 then %>
<a href="?pageno=<%=(pageno-1)%>">[上一页]</a>
<%end if%>
<%if page>1 and Cint(pageno)<Cint(page) then %>
<a href="?pageno=<%=(pageno+1)%>">[下一页]</a>
<%end if%>
</td>
</tr>
</form>
</table>
</body>
</html>
2、modi.asp代码
<%
Response.Expires=0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("jscj.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
%>
<%
if request("modform")="modform" then '判断是否与隐藏域的值相等
set rs1=createobject("ADODB.Recordset") '创建rs1记录集对象进行数据表的连接
ID=request("ID") '取得隐藏域值
sql="select * from jjcj where ID="&ID
rs1.open sql,conn,3,3
rs1("班级")=trim(request("banji"))
rs1("学号")=trim(request("xuehao"))
rs1("姓名")=trim(request("xinming"))
rs1("课程")=trim(request("kechen"))
rs1("成绩")=trim(request("chengji"))
rs1.update '使用Recordset对象的update方法更新对当前记录所做的修改
rs1.close '关闭记录集对象
set rs1=nothing '是否rs1记录集对象
response.Redirect "zsy.asp" '修改成功转向分页显示页面
end if
%>
<%
ID=request("MID") '从分页显示页面取修改者的ID号
set rs=createobject("ADODB.Recordset")
sql="Select * from jjcj where ID="&ID
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改信息－<%=rs("姓名")%>的信息</title>
<style type="text/css">
<!--
.fontsize {
font-size: 13px;
}
-->
</style>
</head>
<body>
<form name="form1" method="post" action="modi.asp">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFCC66">
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">班级：</td>
<td width="51%" align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""banji"" value="""&rs("班级")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">学号：</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""xuehao"" value="""&rs("学号")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">姓名：</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""xinming"" value="""&rs("姓名")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">课程：</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""kechen"" value="""&rs("课程")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">成绩：</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""chengji"" value="""&rs("成绩")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize"><input type="submit" name="Submit" value="修改">
<input name="modform" type="hidden" value="modform">
<input name="ID" type="hidden" value="<%=rs("ID")%>">
</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize"><input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>
1、zsy.asp代码
<%
Response.Expires=0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("jscj.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
dim rs
dim sql
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from jjcj"
rs.Open sql,conn,1,1
pagecounter="20"
%>
<HTML>
<HEAD>
<title>修改删除</title>
</head>
<body>
<p align="center"><font size=20 color=blue>成绩查询</font></p>
<table width="95%" border="1" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFCC66">
<form name="form1" method="post" action="dele.asp"><tr>
<th>班级</th>
<th>学号</th>
<th>姓名</th>
<th>课程</th>
<th>成绩</th>
<th>修改信息</th>
<th><input type="submit" name="submit" value="删除"></th>
</tr>
<%
pageno=request.QueryString("pageno")
rs.pagesize=pagecounter
page=rs.pagecount
if pageno="" or pageno<1 then
pageno=1
end if
if rs.eof or rs.bof then
response.write"<font color=""ff0000"">此数据表没有记录!</font>"
else
rs.absolutepage=Cint(pageno)
position=rs.pagesize*pageno
pagebegin=position-rs.pagesize+1
if position<rs.recordcount then
pagend=position
else
pagend=rs.recordcount
end if
e=1
do while not rs.eof and e<=rs.pagesize
e=e+1
%>
<tr>
<td><%=rs("班级")%></td>
<td><%=rs("学号")%></td>
<td><%=rs("姓名")%></td>
<td><%=rs("课程")%></td>
<td><%=rs("成绩")%></td>
<td><a href="modi.asp?MID=<%=rs("ID")%>">修改</a></td>
<td><%ID=rs("ID")
response.write"<input type=""checkbox"" name=""checkbox"" value="""&ID&""""%></td>
</tr>
<%
rs.movenext
loop
pagecounter=pagecounter-1
end if
rs.close
set rs=nothing
%>
<tr>
<td colspan="7" align="center" bgcolor="#ffffff" >
页次:[<%=Cint(pageno)%>/<%=page%>]
记录:[<%=Cint(pagebegin)%>至<%=pagend%>条]
<%if Cint(pageno)>1 then %>
<a href="?pageno=<%=(pageno-1)%>">[上一页]</a>
<%end if%>
<%if page>1 and Cint(pageno)<Cint(page) then %>
<a href="?pageno=<%=(pageno+1)%>">[下一页]</a>
<%end if%>
</td>
</tr>
</form>
</table>
</body>
</html>
2、modi.asp代码
<%
Response.Expires=0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("jscj.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
%>
<%
if request("modform")="modform" then '判断是否与隐藏域的值相等
set rs1=createobject("ADODB.Recordset") '创建rs1记录集对象进行数据表的连接
ID=request("ID") '取得隐藏域值
sql="select * from jjcj where ID="&ID
rs1.open sql,conn,3,3
rs1("班级")=trim(request("banji"))
rs1("学号")=trim(request("xuehao"))
rs1("姓名")=trim(request("xinming"))
rs1("课程")=trim(request("kechen"))
rs1("成绩")=trim(request("chengji"))
rs1.update '使用Recordset对象的update方法更新对当前记录所做的修改
rs1.close '关闭记录集对象
set rs1=nothing '是否rs1记录集对象
response.Redirect "zsy.asp" '修改成功转向分页显示页面
end if
%>
<%
ID=request("MID") '从分页显示页面取修改者的ID号
set rs=createobject("ADODB.Recordset")
sql="Select * from jjcj where ID="&ID
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改信息－<%=rs("姓名")%>的信息</title>
<style type="text/css">
<!--
.fontsize {
font-size: 13px;
}
-->
</style>
</head>
<body>
<form name="form1" method="post" action="modi.asp">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFCC66">
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">班级：</td>
<td width="51%" align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""banji"" value="""&rs("班级")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">学号：</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""xuehao"" value="""&rs("学号")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">姓名：</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""xinming"" value="""&rs("姓名")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">课程：</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""kechen"" value="""&rs("课程")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize">成绩：</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize">
<%response.Write"<input type=""text"" name=""chengji"" value="""&rs("成绩")&""">"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="fontsize"><input type="submit" name="Submit" value="修改">
<input name="modform" type="hidden" value="modform">
<input name="ID" type="hidden" value="<%=rs("ID")%>">
</td>
<td align="left" bgcolor="#FFFFFF" class="fontsize"><input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>
