ASP内容分页问题

来源：百度知道编辑：UC知道时间：2024/05/22 18:27:53

<%
str="数据库文章内容测试内容哈哈"
function page(str,fontnum)
if len(str) >fontnum then
if len(str) mod fontnum >0 then '计算总页数
pagecontent=len(str)\fontnum+1
else
pagecontent=len(str)\fontnum
end if

Dim arr()
ReDim arr(pagecontent)

for m = 1 to pagecontent
if m < >pagecontent then
arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)
else
arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))
end if
next

if Request.QueryString("page") < >"" then
Response.Write(arr(Request.QueryString("page")))
else
Response.Write(arr(1))
end if

Response.Write(" <br >")

for i = 1 to pagecontent
Response.Write(" <a href=?page="&i&" >"&i&" </a > ")
next
else
Response.Write(str)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>你页面的地址</title>
<%
dim conn,connstr
set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库地址")
conn.Open connstr
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select *

ASP内容分页问题 ASP内容分页问题请教高手 ASP 内容分页代码。 ASP长内容分页 asp问题?分页问题求教ASP分页问题 asp分页的问题 asp分页显示问题? 关于ASP分页问题? asp分页问题