‹‹ 上一主题 | 下一主题 ››
发新话题
打印

分页问题！

本主题由 帅青蛙 于 2008-1-29 13:17 合并
bihairen [楼主]

初级会员

帖子
61 
体力
137  
威望
0  
离线
160 天
1# 大 中 小 发表于 2007-12-24 19:11 
问题当最后一页的标题小于定义数（8）时显示出错，请高手帮忙看看

代码如下

<%
rs1.pagesize=8
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs1.absolutepage=curpage
%>

<%
for i= 1 to rs1.pagesize
if rs1.eof then
exit for
end if
%><a href='down.asp?SoftID=<%=rs1("softid")%>'><%=rs1("SoftName")%></a><br/>
<%
rs1.movenext
next
%>

<br>
<%=curpage%>/<%=rs1.pagecount%>页
<%if curpage=1 then%>
1
<%else%>
<a href='long.asp?sortid=<%=rs1("sortid")%>&curpage=1'>1</a>
<%end if%>

<%if curpage=1 then%>
上一页
<%else%>
<a href='long.asp?sortid=<%=rs1("sortid")%>&curpage=<%=curpage-1%>'>上一页</a>
<%end if%>

<%if rs1.pagecount<curpage+1 then%>
下一页
<%else%>
<a href='long.asp?sortid=<%=rs1("sortid")%>&curpage=<%=curpage+1%>'>下一页</a>
<%end if%>

<%if rs1.pagecount<curpage+1 then%>
<%=rs1.pagecount%>
<%else%>
<a href='long.asp?sortid=<%=rs1("sortid")%>&curpage=<%=rs1.pagecount%>'><%=rs1.pagecount%></a>
<%end if%>

TOP

bihairen [楼主]

初级会员

帖子
61 
体力
137  
威望
0  
离线
160 天
2# 大 中 小 发表于 2007-12-25 18:43 
怎么没人帮帮我？

TOP

bihairen [楼主]

初级会员

帖子
61 
体力
137  
威望
0  
离线
160 天
3# 大 中 小 发表于 2008-1-6 22:35 

wap网页问题,

我分别用了两种手机访问自己的网页，MOTO E680G打开网页是没有问题，用NOKIA3120访问就打不开网页了，提示未知回应。但NOKIA3120访问乐迅却又没有问题。按理我的网页并不比乐迅的网页大。

TOP

tuxun

新手上路

帖子
13 
体力
29  
威望
0  
离线
215 天
4# 大 中 小 发表于 2008-1-7 09:51 
模拟器可以访问吗?

TOP

还在为头像烦恼?还在为不能关注好友动态烦忧?快来蓝色理想家园吧!
心开风神

版主

帖子
2591 
体力
4683  
威望
0  
当前
河北 石家庄
离线
4 天
5# 大 中 小 发表于 2008-1-7 17:34 
一般这样问题解决方式是用模拟器打开，然后看源码，是否严谨。
手机不同，对wml的解析也不尽相同。一般说来，低端的手机对wml格式要求非常严格。
贱卖双线空间贴补股市【pm我】 免费群发工具

TOP

bihairen [楼主]

初级会员

帖子
61 
体力
137  
威望
0  
离线
160 天
6# 大 中 小 发表于 2008-1-9 23:14 
模拟器也不行

TOP

tuxun

新手上路

帖子
13 
体力
29  
威望
0  
离线
215 天
7# 大 中 小 发表于 2008-1-10 10:08 
模拟器不行。那肯定是编码的问题。
你可以用opera的“校验”功能。进行检测。。看问题出在那儿了！！
tuxun.mobi

TOP

bihairen [楼主]

初级会员

帖子
61 
体力
137  
威望
0  
离线
160 天
8# 大 中 小 发表于 2008-1-10 16:27 
但前面几页都没问题,就是最后一页不行,第一页不够也可以,我把代码发贴上,<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.ContentType="text/vnd.wap.wml" %><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<%
exec="select sortid,SortName,readme,parentid from NC_SoftSort where sortid="&request.querystring("sortid")
set rs1=server.createobject("adodb.recordset")
rs1.open exec,conn,1,1
%>
<card id='main' title='<% = rs1("SortName") %>'>
<p>
<img src='logo.gif' alt='load...'/><br/>
<a href='index.asp'>首页</a>--<a href='title.asp?parentid=<%=rs1("parentid")%>'><% = rs1("readme")%></a>--<% = rs1("SortName") %>
<br/>~~~~~~~~~~~~<br/>
<%
       rs1.close
    sql="select * from NC_Softinfo where sortid="&request.querystring("sortid")&" ORDER BY softid DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<%
rs.pagesize=8
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs.absolutepage=curpage
%>
<%
for i= 1 to rs.pagesize
if rs.bof and rs.eof then
exit for
end if
%>
<a href='downok.asp?SoftID=<%=rs("softid")%>'><%=rs("SoftName")%></a><br/>人气：<%=rs("Hits")%>
<br/>
<%
rs.movenext
next
%>
<%=curpage%>/<%=rs.pagecount%>页
<%if curpage=1 then%>
<%else%>
<a href='long.asp?sortid=<%=rs("sortid")%>&curpage=<%=curpage-1%>'>上一页</a>
<%end if%>

<%if curpage=rs.pagecount then%>
<%else%>
<a href="long.asp?sortid=<%=rs("sortid")%>&curpage=<%=curpage+1%>">下一页</a>
<%end if%>
<br/>
-------------
<br/>
<a href='index.asp'>返回首页</a>
<br/>   
</p>
</card>
</wml>大家帮我看看!

TOP

bihairen [楼主]

初级会员

帖子
61 
体力
137  
威望
0  
离线
160 天
9# 大 中 小 发表于 2008-1-11 08:57 
但前面几页都没问题,就是最后一页不行,第一页不够也可以,我把代码发贴上,<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.ContentType="text/vnd.wap.wml" %><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<%
exec="select sortid,SortName,readme,parentid from NC_SoftSort where sortid="&request.querystring("sortid")
set rs1=server.createobject("adodb.recordset")
rs1.open exec,conn,1,1
%>
<card id='main' title='<% = rs1("SortName") %>'>
<p>
<img src='logo.gif' alt='load...'/><br/>
<a href='index.asp'>首页</a>--<a href='title.asp?parentid=<%=rs1("parentid")%>'><% = rs1("readme")%></a>--<% = rs1("SortName") %>
<br/>~~~~~~~~~~~~<br/>
<%
       rs1.close
    sql="select * from NC_Softinfo where sortid="&request.querystring("sortid")&" ORDER BY softid DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<%
rs.pagesize=8
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs.absolutepage=curpage
%>
<%
for i= 1 to rs.pagesize
if rs.bof and rs.eof then
exit for
end if
%>
<a href='downok.asp?SoftID=<%=rs("softid")%>'><%=rs("SoftName")%></a><br/>人气：<%=rs("Hits")%>
<br/>
<%
rs.movenext
next
%>
<%=curpage%>/<%=rs.pagecount%>页
<%if curpage=1 then%>
<%else%>
<a href='long.asp?sortid=<%=rs("sortid")%>&curpage=<%=curpage-1%>'>上一页</a>
<%end if%>

<%if curpage=rs.pagecount then%>
<%else%>
<a href="long.asp?sortid=<%=rs("sortid")%>&curpage=<%=curpage+1%>">下一页</a>
<%end if%>
<br/>
-------------
<br/>
<a href='index.asp'>返回首页</a>
<br/>   
</p>
</card>
</wml>大家帮我看看!

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题