asp 分页

QuickPai 2009-05-17 01:29:01

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>网上考试系统</title>


<link rel="stylesheet" type="text/css" href="../css.css">
<script Language="vbscript">
sub check()
c=document.form1.page.value
if c<>"" then
if not IsNumeric(c) then
msgbox " 页数只能输入数字"
document.form1.page.select()
exit sub
else

end if
else
msgbox"请输入想要转到页数"
document.form1.page.select()
exit sub
end if

document.form1.submit()
end sub
</script>
</head>

<body topmargin="0" leftmargin="0">
<p>
<p align="center"><font face="隶书" size="6">判断题题库管理</font><br>
<a href="type_1_add.asp">添加新题</a></p>
<div align="center">
<center>
<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="600">
<form method="get" name=form2 action="">
<%keyword=trim(request("keyword"))
if keyword="" then
keywords="所有题目"
else
keywords=keyword
end if
%>
<tr>
<td align="center" colspan="5">以下是按关键字<font color=red> <%=keywords%> </font>的查询结果
查找 <input type="text" name="keyword" size="20" > 题目<input type="submit" value="查找" name="B1" style="width: 60; height: 22; border-style: solid; border-width: 1px; background-color: #FFFFFF"></td>
</tr></form>
<%
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from rightorwrong where question like '%"&keyword&"%' order by rightorwrongid desc"
'response.write sql
rs.open sql,conn,3,1,1
rs.pagesize=5
%>
<tr>
<td width="50" align="center" bgcolor="#000080"><font color="#FFFFFF">编号</font></td>
<td width="400" align="center" bgcolor="#000080"><font color="#FFFFFF">题目</font></td>
<td width="50" align="center" bgcolor="#000080"><font color="#FFFFFF">答案</font></td>
<td width="50" align="center" bgcolor="#000080"><font color="#FFFFFF">编辑</font></td>
<td width="50" align="center" bgcolor="#000080"><font color="#FFFFFF">删除</font></td>
</tr>

<%
if not (rs.eof and rs.bof) then
Page = cint(Request.querystring("Page"))
'if not isnumeric(request.querystring("Page")) then
'Page=1
'else
'Page=Clng(Request.querystring("Page"))
'end if
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
showpages rs,Page
%>
<%else%>
<tr><td colspan=5><center><font color=red>没有你查的试题信息</font></center></td></tr>
<%end if%>
<%
Sub showpages( rs,Page )
rs.AbsolutePage = Page
for i=0 to rs.pagesize-1
j=j+1
if j mod 2 =0 then
bg="#EFEFF7"
else
bg="#ffffff"
end if

%>

<tr bgcolor=<%=bg%>>
<td align="center"><%=rs("rightorwrongid")%></td>
<td><%=rs("question")%></td>
<td align="center"><%if rs("answer")=true then
d="对"
else
d="错"
end if
response.write d

%></td>
<td align="center"><a href="type_1_edit.asp?id=<%=rs("rightorwrongid")%>">编辑</a></td>
<td align="center"><a href="type_1_del.asp?id=<%=rs("rightorwrongid")%>">删除</a></td>
</tr>
<%
rs.movenext
If rs.EOF Then Exit For
Next%>
<%End Sub%>
<tr>
<td colspan="5" align="center">
<p align="center"> <form action=type_1.asp?keyword=<%=keyword%> method="get" name=form1 >
<%
'If rs.pagecount<>0 then
response.write rs.pagesize&"条一页 "
if Page=1 then
response.write"第一页 "
end if
if Page <> 1 then
Response.Write "<a href='type_1.asp?keyword="&keyword&""&chr(38)&"Page=1'>第一页</a>"
Response.Write "<a href='type_1.asp?keyword="&keyword&""&chr(38)&"Page="&Page-1&"'>上一页</a>"
end if
if Page <> rs.PageCount then
Response.Write "<a href='type_1.asp?keyword="&keyword&""&chr(38)&"Page="&Page+1&"'>下一页</a>"
Response.Write "<a href='type_1.asp?keyword="&keyword&""&chr(38)&"Page="&rs.PageCount&"'>最后一页</a>"
end if
if page= rs.PageCount then
response.write"最后一页 "
end if
response.write "总共有"&rs.pagecount&"页, 目前是第"&page&"页"
'else
'response.write"目前无记录 "
'end If
%>
转到<font class="a">
<input maxLength="8" size="4" name="page" value=<%=page%>>
<input type="hidden" value=<%=keyword%> name="keyword">
页<span lang="en-us"> </span>
<input class="buttonface" type="button" value=" Goto " onclick=check() style="width: 60; height: 22; border-style: solid; border-width: 1px; background-color: #FFFFFF"></font><br>
</a>
</form>

</td>
</tr>
</table>
</center>
</div>
</body>
</html>

这个是一个asp页面就是在那个分页的部分有点问题
麻烦高手看下是什么原因点下一页时就显示
找不到网页
正在查找的网页可能已被删除、重命名或暂时不可用。

--------------------------------------------------------------------------------

请尝试执行下列操作：

如果是在“地址”栏中键入了网页地址，请检查其拼写是否正确。

打开 localhost 主页，然后查找与所需信息相关的链接。
单击后退按钮尝试其他链接。
HTTP 错误 404 - 找不到文件
Internet 信息服务

--------------------------------------------------------------------------------
为什么？

...全文