wap怎么使页面每200个字一分页

我这里有一个用ASP分页的方法，当然，里面的参数可以根据你的实际情况自己修改

'====LIST.ASP->DISPLAY.ASP页面的分CARD函数====
function fpage(id,content,length,title,sdate,infotype,city,tel)

'=================================参数解释================================
'== id当前记录的ID，content信息内容，length一页显示的字符串长度 ==
'== title当前card的标题,sdate当前记录的发布时间 ==
'== infotype当前记录的信息类型，city当前记录发布城市，tel联系电话 ==
'=========================================================================
dim k,k1,num,i
    k=len(content)/length

    k=formatnumber(k,5,-1)
     k1=split(k,".")
     if k1(1)>0 then
     num=k1(0)+1
     else
     num=k1(0)
     end if
     for i=0 to num-1
            response.write "<card title="""&title&""" id=""n"&i&""">"
            response.write "<p>"
            if i=0 then
             response.write "["&infotype&"]["&city&"]<br/>发布日期:"&sdate
             response.write "<br/>"
             response.write "联系电话:"&tel&"<br/>"
            end if
            
             response.write mid(content,i*length+1,length)
             response.write "<br/>"
            
             if i>0 then
             response.write "<a href=""#n"&i-1&""" title=""上一页"">上一页</a><br/>"
             end if
             if i<num-1 then
             response.write "<a href=""#n"&i+1&""" title=""下一页"">下一页</a><br/>"
             end if
             response.write "<br/>"
            
             '===上一条记录
             set rsid1=conn.execute("select top 1 id from info where id>"&id&" order by id desc")
             if not rsid1.eof then
             response.write "<a href=""display.asp?id="&rsid1("id")&""" title=""确定"">上一项</a><br/>"
             end if
            
             '===下一条记录
             set rsid2=conn.execute("select top 1 id from info where id<"&id&" order by id desc")
             if not rsid2.eof then
             response.write "<a href=""display.asp?id="&rsid2("id")&""" title=""确定"">下一项</a><br/>"
             end if

             response.write "<a href=""list.asp"" title=""确定"">返回上级</a><br/>"
             response.write "<a title=""确定"" href="""&pub_url&""">返回首页</a>"
             response.write "</p>"
             response.write "<do type=""options"" label=""回首页"">"
response.write "<go href="""&pub_url&"""/>"
response.write "</do>"
             response.write "</card>"
     next
end function
使用示例

<%
response.CacheControl="no-cache"
Response.ContentType="text/vnd.wap.wml"
%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//OPENWAVE.COM//DTD WML 1.3//EN" "http://www.openwave.com/dtd/wml13.dtd">
<wml>

<!--#include file="inc/Conn.asp"-->
<!--#include file="inc/Const.asp"-->
<!--#include file="inc/function.asp"-->
<%
id=trim(request("id"))
sql1="select * from info inner join city on info.cityid=city.cityid inner join infotype on info.infotypeid=infotype.infotypeid where id="&id
set rs=conn.execute(sql1)

if not rs.EOF then
'====更新点击数====
conn.execute("update info set hitnum=hitnum+1 where id="&id&"")
%>
<%=fpage(id,rs("content"),200,"详细信息",jtime(rs("createtime")),rs("infotype"),rs("city"),rs("tel"))%>
<%
    
else
%>
<card title="XXXXXX">
<p>
对不起，记录不存在或已经删除，请返回上级页面
<br/>
<a href=main.asp title="确定">返回上级</a><br/>
<a title="确定" href="<%=pub_url%>">返回首页</a>
<do type="options" label="回首页">
<go href="<%=pub_url%>"/>
</do>
</card><%
end if
conn.Close()
set conn=nothing
set rs=nothing
%>
</wml>

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

function fenye(content)
PageLength = 200 '每页显示多少字符
CLength = Len(content)
'PageCount = Int(Clength/PageLength)+1 '????
artPages = int(Clength/PageLength)+1
if request("page"="" then
page=1
else
page=int(request("page")
end if
output=mid(content,(page-1)*PageLength+1,PageLength)
if page=1 then
response.Write("<p>"&output&"</p>"
response.Write("<p>共"&artpages&"页"
response.Write(" 第"&page&"页<br/>"
response.Write("上页 <a href='show.asp?unid="&unid&"&amp;page="&page+1&"'>下页</a></p>"
elseif page=artpages then
response.Write("<p>"&output&"</p>"
response.Write("<p>共"&artpages&"页"
response.Write(" 第"&page&"页<br/>"
response.Write("<a href='show.asp?unid="&unid&"&amp;page="&page-1&"'>上页</a> 下页</p>"
else
response.Write("<p>"&output&"</p>"
response.Write("<p>共"&artpages&"页"
response.Write(" 第"&page&"页<br/>"
response.Write("<a href='show.asp?unid="&unid&"&amp;page="&page-1&"'>上页</a>"
response.Write(" <a href='show.asp?unid="&unid&"&amp;page="&page+1&"'>下页</a></p>"
end if
end function