100分寻求ASP文件改正:跳页翻转问题
来源:百度知道 编辑:UC知道 时间:2024/09/22 06:45:11
Rs1.close
set rs1=nothing
Set Rs1 = Server.CreateObject("Adodb.Recordset")
Sql1 = "SELECT * FROM btitle WHERE bid='" & bid&"' and lid='"&lid&"' and id>"&id&" order by pid asc"
Rs1.Open Sql1,conn,1,1
if not (rs1.bof and rs1.eof) then
Response.Write("<a href='view.asp?lid="&rs1("lid")&"&aid="&aid&"&id="&rs1("id")&"&bid=" & rs1("bid") & "'>上一章:"&rs1("name")&"</a><br/>")
end if
Rs1.close
set rs1=nothing
end if
if PageCount>2 then%>
<br/><input name="Page" format="*N" maxlength="5"/>
<anchor>跳页
<go href="
你的原码不全 只好贴一些你参照著改吧
<%rs.movenext
next
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
end if
rs.close
set rs=nothing
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 width=100% border=0 cellpadding=0 cellspacing=0>" & vbCrLf )
Response.Write("<form