有哪位大哥帮我下吗？ASP内容分页

来源：百度知道编辑：UC知道时间：2024/05/23 02:14:37

<%
t=rs("content")
sub autopage()
dim Maxpagelen,page,content,PageNumber,ArticleID
dim contentlen
dim BeginPoint,EndPoint
Maxpagelen=3000
content=ubbcode(t)
ArticleID=owen
contentlen=len(content)
page=request.QueryString("page")
if contentlen<=Maxpagelen then
response.Write content
else
if page="" then
page=1
else
page=Cint(page)
end if

if pageNumber*MaxPagelen<contentlen then
PageNumber=PageNumber+1
end if
PageNumber=int(contentlen/Maxpagelen)+1
if page<1 then page=1
if page>PageNumber then page=PageNumber
if page=1 then
BeginPoint=1
else
BeginPoint=MaxPagelen*(page-1)+1
end if
if page=PageNumber then
EndPoint=contentlen
else
EndPoint=MaxPagelen*page
if EndPoint>=ContentLen then
EndPoint=ContentLen
end if
end if

content=Mid(content,Beg

我这儿有一个分页程序你自己看一下吧：
<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("6649.mdb")
conn.Open strcon

Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from 6649 where tyeid='"&tyeid&"' order by id desc"
rs.Open sql, conn, 1

%>
<%
rs.PageSize=20 '指示Recordest 中一页所包含的记录数
PageCount=rs.PageCount '使用PageCount属性可确定 Recordest 对象中数据的页数
page=int(request("page"))
if page<=0 then page=1
if request("page")=""then page=1
rs.AbsolutePage=page '指定当前记录所在的页
%>

<title><%=rs("tyeid")%></title>
<style type="text/css">
<!--
.style2 {font-size: 12px}
body {
background-color: #FFC78E;
margin-left

有哪位大哥帮我下吗？ASP内容分页哪位大哥能帮我写个小ASP程序吗？哪位大哥帮我翻译下谢谢哪位大哥帮我翻译下英文哪位大哥帮我翻译下``` 有哪位大哥帮我解决一下哪位大哥帮解决下,光盘带的asp.net程序不会运行啊! 小弟不会下载war3.exe有没有哪位大哥帮我搞下哪位大哥帮我翻译下谢谢了哪位大哥帮我翻译下谢谢1