急问:SOS ASP 分页!!!

renlily 2004-08-03 11:02:29
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<TITLE></TITLE>
<SCRIPT language="javascript">
function PageFirst()
{
document.MyForm.CurrentPage.selectedIndex=0;
document.MyForm.CurrentPage.onchange();
}
function PagePrior()
{
document.MyForm.CurrentPage.selectedIndex--;
document.MyForm.CurrentPage.onchange();
}
function PageNext()
{
document.MyForm.CurrentPage.selectedIndex++;
document.MyForm.CurrentPage.onchange();
}
function PageLast()
{
document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
document.MyForm.CurrentPage.onchange();
}

function PageCurrent()
{
document.MyForm.action='newpage.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1);
document.MyForm.submit();
}
</SCRIPT>
</HEAD>
<BODY bgcolor="#ffffcc">
<%
dim StrConn,Conn
set Conn=server.CreateObject ("adodb.connection")
StrConn = "driver={SQL Server};server=(local);UID=sa;PWD=;database=wpos"
Conn.Open strConn
set rs =server.CreateObject ("adodb.recordset")
'rs.CursorLocation = adUseClient
rs.PageSize = 4
sql="SELECT USER_ID, USER_MEI, MAIL FROM M_USER"
rs.Open sql,conn,3,2
if rs.EOF then
Response.Write ("<font size=2 color=#000080>[there is no data!]</font>")
else
if Request("Currentpage") = "" then
rs.AbsolutePage = 1
else
rs.AbsolutePage = Clng(Request("CurrentPage"))
Response.Write rs.AbsolutePage
Response.End
end if
if rs.PageCount = 1 then
Response.Write ("[First] [Pre] [Next] [Last]")
else
if rs.AbsolutePage = 1 then
Response.Write ("[First] [Pre]")
Response.Write ("[<a href=javascript:PageNext()>Next</a>]")
Response.Write ("[<a href=javascript:PageLast()>Last</a>]")
else
if rs.AbsolutePage = rs.PageCount then
Response.Write ("[Next] [Last]")
Response.Write ("[<a href=javascript:PageFirst()>First</a>]")
Response.Write ("[<a href=javascript:PagePrior()>Pre</a>]")
else
Response.Write ("[<a href=javascript:PageFirst()>First</a>]")
Response.Write ("[<a href=javascript:PagePrior()>Pre</a>]")
Response.Write ("[<a href=javascript:PageNext()>Next</a>]")
Response.Write ("[<a href=javascript:PageLast()>Last</a>]")
end if
end if
end if
'''''''''''''''''''''''''''''''''''''''''''''''''
Response.Write("NO: <select size=1 name=CurrentPage onchange=PageCurrent()>")
for i=1 to rs.PageCount
if rs.AbsolutePage = i then
Response.Write("<option selected>"&i&"</option>")
else
Response.Write ("<option>"&i&"</option>")
end if
next
Response.Write ("</select>page total"&rs.PageCount&" page total "&rs.RecordCount&" piece note </font></p>")
Response.Write ("</form> ")
end if
Response.Write ("<table align=center border=1 cellspacing=1 cellpaddding=1 ")
Response.Write ("bordercolor=#99ccff>")
Response.Write ("<tr bgcolor=#ccccff bordercolor=#000066>")
for i=0 to rs.Fields.Count-1
Response.Write ("<td align=center width=200 height=13>")
Response.Write ("<font size=2>"&rs.Fields(i).Name&"</font></td>")
next
Response.Write ("</tr>")
for i=1 to rs.PageSize
Response.Write ("<tr bgcolor=#99ccff bordercolor=#000066>")
for j=0 to rs.Fields.Count-1
Response.Write ("<td><font size=2>"&rs.Fields(j).Value&"</font></td>")
next
Response.Write("</tr>")
rs.MoveNext
if rs.EOF then exit for
next
Response.Write ("</table>")

%>
</BODY>
</HTML>
昨天大家告诉我的分页代码,不好用,帮忙看看!!!
...全文
67 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
sunjiujiu 2004-08-03
  • 打赏
  • 举报
回复
if rs.EOF then
Response.Write ("<font size=2 color=#000080>[there is no data!]</font>")
else
if Request("Currentpage") = "" then
rs.AbsolutePage = 1
else
rs.AbsolutePage = Clng(Request("CurrentPage"))
Response.Write rs.AbsolutePage
Response.End
end if
-----

你这里的response.end干什么,给结束了,其它的还怎么显示啊?
把这句去掉
breakshow 2004-08-03
  • 打赏
  • 举报
回复
晕,楼主这里是帮你解决问题的,可不是帮你写程序的.

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧