UC知道asp分页不好用请求帮助
来源：百度知道 编辑：UC知道 时间：2024/04/27 20:49:19
<%
Dim c,c1,c2,c3,t,t1,t2,t3,p,s,pw,ph,zs,zt,d
c1=Strint(Request("city_oneid"))
c2=Strint(Request("city_twoid"))
c3=Strint(Request("city_threeid"))
t1=Strint(Request("type_oneid"))
t2=Strint(Request("type_twoid"))
t3=Strint(Request("type_threeid"))
p=Strint(Request("p"))
s=Strint(Request("s"))
pw=Strint(Request("pw"))
ph=Strint(Request("ph"))
zs=Strint(Request("zs"))
zt=Strint(Request("zt"))
d=Strint(Request("d"))
dbpath="../"
dblink
dim typeData,TempText,ii,n,co,cop
co=3
IF pw<=0 or ph<=0 Then co=co-1
IF d<>1 Then co=co-1
IF co>1 Then cop=" colspan="&co
Set Rs=Conn.Execute("Select adid,city_oneid,city_twoid,city_threeid,city_one,city_two,city_three,type_oneid,type_twoid,type_threeid,[color],[title],[text],[
Dim c,c1,c2,c3,t,t1,t2,t3,p,s,pw,ph,zs,zt,d
c1=Strint(Request("city_oneid"))
c2=Strint(Request("city_twoid"))
c3=Strint(Request("city_threeid"))
t1=Strint(Request("type_oneid"))
t2=Strint(Request("type_twoid"))
t3=Strint(Request("type_threeid"))
p=Strint(Request("p"))
s=Strint(Request("s"))
pw=Strint(Request("pw"))
ph=Strint(Request("ph"))
zs=Strint(Request("zs"))
zt=Strint(Request("zt"))
d=Strint(Request("d"))
dbpath="../"
dblink
dim typeData,TempText,ii,n,co,cop
co=3
IF pw<=0 or ph<=0 Then co=co-1
IF d<>1 Then co=co-1
IF co>1 Then cop=" colspan="&co
Set Rs=Conn.Execute("Select adid,city_oneid,city_twoid,city_threeid,city_one,city_two,city_three,type_oneid,type_twoid,type_threeid,[color],[title],[text],[
看的眼花了
给你段asp分页的代码 自己看着改吧
<%
sql="…………"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.Write("no record")
else
'----------------分页部分参数------------------
rs.pagesize=20 '每页记录条数
curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
if curpage="" then curpage="1" end if '初始化页数
rs.absolutepage=curpage '将本页设为curpage设置的页数
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
内容
<%
rs.movenext
next
end if
%>
----------------翻页部分-----------------
<%if curpage=1 then%>
<a title="Top"><font face="webdings" color="#000000" >9</font></a>
<%else%>