asp翻页出错问题

wyjun1985 2011-11-24 08:36:18

我的翻页代码是这样的，我在本地测试没问题，传到服务器上后，点下一页时，没法跳过去，地址栏上显示的是
http://127.0.0.1:9009/hjzx/list.asp?anclassid=13&nclassid=46&Page=2
请问，这是怎么回事啊？我的翻页代码有问题吗？

Sub PageControl(iCount,pagecount,page,table_style,font_style)

'生成上一页下一页链接

    Dim query, a, x, temp

    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")



    query = Split(Request.ServerVariables("QUERY_STRING"), "&")

    For Each x In query

        a = Split(x, "=")

        If StrComp(a(0), "page", vbTextCompare) <> 0 Then

            temp = temp & a(0) & "=" & a(1) & "&"

        End If

    Next



    Response.Write("<table " & Table_style & ">" & vbCrLf )        

    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )

    Response.Write("<TD align=right>" & vbCrLf )

    Response.Write(font_style & vbCrLf )    

        

    if page<=1 then

        Response.Write ("首页 " & vbCrLf)        

        Response.Write ("上一页 " & vbCrLf)

    else        

        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)

        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)

    end if



    if page>=pagecount then

        Response.Write ("下一页 " & vbCrLf)

        Response.Write ("尾页 " & vbCrLf)            

    else

        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)

        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            

    end if



    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)

    Response.Write(" 共有" & iCount & "条" &  vbCrLf)

    Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")

    Response.Write("</TD>" & vbCrLf )                

    Response.Write("</TR></form>" & vbCrLf )        

    Response.Write("</table>" & vbCrLf )        

End Sub

...全文

94 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

wyjun1985 2011-11-25

打赏
举报

[Quote=引用 2 楼 dogfish 的回复:]

你的网页的url是不是在本地调试（127.0.0.1）？
不如直接使用相对路径，就可解决你现在的问题。
[/Quote]
我在本地测试没问题，但是上传网站后，点击下一页就跳不过去
DB = "database/hjsb.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
我的数据库是这么连的

Dogfish 2011-11-25

打赏
举报

你的网页的url是不是在本地调试（127.0.0.1）？
不如直接使用相对路径，就可解决你现在的问题。

csdn_aspnet 2011-11-24

打赏
举报

//（Yoko:路径按自己的设置好）
<%
dim i,intPage,page,pre,last,filepath
set rs = server.CreateObject("adodb.recordset")
sql="select * from user order by user_ID desc"
rs.PageSize = 20 //（Yoko:这里设定每页显示的记录数
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1 //（Yoko:'这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))

if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>

<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
..................
//（Yoko:要循环显示的内容）..................
...................
<%
rs.movenext
next
%>

<table width="99%" border="1" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
<tr>
<%if rs.pagecount > 0 then%>
<td width="13%" align="left">当前页<%=intpage%>/<%=rs.PageCount%></td>
<%else%>
<td width="41%" align="left">当前页0/0</td><%end if%>
<td width="46%" align="right"> <a href="本页.asp?page=1">首页</a>|
<%if pre then%>
<a href="本页.asp?page=<%=intpage -1%>">上页</a>| <%end if%>
<%if last then%>
<a href="本页.asp?page=<%=intpage +1%>">下页</a> |<%end if%>
<a href="本页.asp?page=<%=rs.PageCount%>">尾页</a>|转到第
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rs.PageCount
if i = intpage then%>
<option value="本页.asp?page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="本页.asp?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页
</td>
</tr>
</table>

下面是CSDN的:

<%

dim Conn,RS,sqlStr,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd

set Conn= Server.CreateObject("ADODB.Connection")

set RS = Server.CreateObject("ADODB.RecordSet")

Conn.open "provider=sqloledb;data source=127.0.0.1;user id=sa;password=;initial catalog=zjydata"

sqlStr="select * from Items order by iID"

RS.open sqlStr,Conn,1,1

PageSize=10

If RS.RecordCount=0 then

%>

<TABLE WIDTH=100% BORDER=0 CELLPADDING=1 CELLSPACING=1 style='font-size:9pt'>

<TR bgcolor=#003366 height=20px>

<TD align=center>商品代码</TD>

<TD align=center>商品名称</TD>

<TD align=center>型号规格</TD>

<TD align=center>计量单位</TD>

<TD align=center>参考进价</TD>

<TD align=center>参考售价</TD>

<TD align=center>备注

</TR>

<TR height=20px>

<TD align=center>没有任何商品信息!</TD>

<TR>

</TABLE>

<%

else

RS.PageSize = Cint(PageSize)

TotalPages=RS.PageCount

PageNo=Request.QueryString("PageNo")

if PageNo="" or PageNo<1 Then

PageNo = 1

end if

RS.AbsolutePage = PageNo

Position=RS.PageSize*PageNo

PageBegin=Position-RS.PageSize+1

if Position <RS.RecordCount then

PageEnd=Position

else

PageEnd= RS.RecordCount

end if

%>

<TABLE WIDTH=100% BORDER=0 CELLPADDING=1 CELLSPACING=1 style='font-size:9pt'>

<TR>

<TD width=20%>

<%

Response.Write "页："& PageNo &" / "& TotalPages &" | 记录："& PageBegin & " - " & PageEnd & " / " &RS.RecordCount

%>

</TD>

<TD align=right>

<%

if PageNo > 1 Then

response.write "<a href=list.asp?PageNo=1>首页</a> <a href=list.asp?PageNo=" & (PageNo-1) & ">上页</a> "

end if

if TotalPages > 1 and cint(PageNo) <> cint(TotalPages) then

response.write "<a href=list.asp?PageNo=" & (PageNo+1) & ">下页</a> <a href=list.asp?PageNo=" & TotalPages & ">末页</a> "

end if

%>

</TD>

</TR>

<TR bgcolor=#003366 height=20px>

<TD align=center width=20%>商品代码</TD>

<TD align=center width=30%>商品名称</TD>

<TD align=center width=8%>型号规格</TD>

<TD align=center width=8%>计量单位</TD>

<TD align=center width=8%>参考进价</TD>

<TD align=center width=8%>参考售价</TD>

<TD align=center width=18%>备注</TR>

<%

RowCount = RS.PageSize

dim color1,color2

color1="#dddddd"

color2="#eeeeee"

Do While Not RS.EOF and RowCount > 0

Response.Write "<TR height=20px bgcolor="

%>

<%

if RowCount mod 2=0 then:response.write color1 else:response.write color2

%>

<%

Response.Write ">"

%>

<TD><a href=manage.asp?id=<%=rs(0)%>><% =RS("vCode")%></a></td>

<TD><% =RS("vName")%></td>

<TD><% =RS("vSpec")%></TD>

<TD><% =RS("vUnit")%></td>

<TD><% =RS("fInPrice")%></td>

<TD><% =RS("fOutPrice")%></TD>

<TD><% =RS("vDescription")%></td>

</TR>

<%

RowCount = RowCount - 1

RS.MoveNext

Loop

Conn.Close

set RS = nothing

set Conn = nothing

%>

<TR bgcolor=#003366 height=20px>

<TD align=center width=20%>商品代码</TD>

<TD align=center width=30%>商品名称</TD>

<TD align=center width=8%>型号规格</TD>

<TD align=center width=8%>计量单位</TD>

<TD align=center width=8%>参考进价</TD>

<TD align=center width=8%>参考售价</TD>

<TD align=center width=18%>备注

</TR>

<TR>

<TD>

<%

For i=1 to TotalPages

if CInt(PageNo) = CInt(i) then

response.write "["&i&"]"

else

response.write " <a href=list.asp?PageNo="&i&">"&i&"</a> "

end if

Next

%>

</TD>

</TR>

</TABLE>

<%

End if

%>