首页 爱情文章 亲情文章 友情文章 生活随笔 校园文章 经典文章 人生哲理 励志文章 搞笑文章 心情日记
  • 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
    •
    当前位置: 山茶花美文网 > 人生哲理 > 正文

    asp分页生成html的程序脚本代码_html分页代码实例

    时间：2020-05-28来源：山茶花美文网 本文已影响 人 山茶花美文网手机站

    这是asp分页列表生成静态页面得asp小程序脚本

    代码：<!--#include file="conn.asp"-->

    <html><head><TITLE>分页测试</TITLE><LINK href="inc/style.css" type=text/css rel=stylesheet></head>
    <%strHead=strHead&"<html>"
    strHead=strHead&"<head>"
    strHead=strHead&"<TITLE>分页测试</TITLE>"
    strHead=strHead&"<LINK href=""inc/style.css"" type=text/css rel=stylesheet>"
    strHead=strHead&"</head>"
    %>
    <%
    sql="select * from news"
    set rs=server.createObject("ADODB.Recordset")
    rs.open sql,conn,1,1
    %><%
    rs.pagesize=2
    totalpage=rs.pagecount
    rs.close
    set rs=nothing

    for j=1 to totalpage
    sql="select * from news"
    set rs=server.createObject("ADODB.Recordset")
    rs.open sql,conn,1,1

    whichpage=j
    rs.pagesize=2
    totalpage=rs.pagecount
    rs.absolutepage=whichpage
    howmanyrecs=0
    %><%
    str0=""
    str0=str0&"</p>"
    str0=str0&"<table bgcolor=#cecfce align=center border=0 width=800 cellpadding=2 cellspacing=1>"
    %><%
    do while not rs.eof and howmanyrecs<rs.pagesize
    %><%
    str0=str0&"<tr bgcolor=#f7f7f7>"
    str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs(0)&"</td>"
    str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs(1)&"</td>"
    str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs(2)&"</td>"
    str0=str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs(3)&"</td>"
    str0=str0&"</tr>"
    %><%
    rs.movenext
    howmanyrecs=howmanyrecs+1
    loop
    rs.close
    set rs=nothing
    %><%str0=str0&"</table>"
    %><%

    "分页部分
    ref=""

    ref=ref&"<br>"
    ref=ref&"<table bgcolor=#cecfce align=center border=0 width=800 cellpadding=0 cellspacing=1> "
    ref=ref&"<tr bgcolor=#f7f7f7>"
    ref=ref&"<td> "
    ref=ref&"<b>Pages： " & j & " / " & totalpage &"</b>"
    ref=ref&"</td>"
    ref=ref&"<td> "

    ref=ref&"<a href=list_1.html"&">" & "<FONT face=Webdings>9</FONT>" & "</a> "
    if whichpage=1 then
    ref=ref&"<FONT face=Webdings>7</FONT>"
    else
    ref=ref&"<a href=list_"&j-1&".html"&">" & "<FONT face=Webdings>7</FONT>" & "</a> "
    end if

    for counter=1 to totalpage
    ref=ref&"<a href=list_"&counter&".html"&">[" & counter & "]</a>"
    ref=ref& " "
    if counter mod 10 = 0 then
    ref=ref& "<br>"
    end if
    next

    if (whichpage>totalpage or whichpage=totalpage) then
    ref=ref&"<FONT face=Webdings>8</FONT>"
    else
    ref=ref&"<a href=list_"&j+1&".html"&">" & "<FONT face=Webdings>8</FONT>" & "</a> "
    end if
    ref=ref&"<a href=list_"&totalpage&".html"&">" & "<FONT face=Webdings>:</FONT>" & "</a> "

    Dim fso,f
    Dim strTitle,strContent,strOut
    "创建文件系统对象
    Set fso=Server.createObject("Scripting.FileSystemObject")
    Set f=fso.createTextFile(Server.MapPath("list_"&j&".html"),true)

    "写入网页内容
    f.WriteLine strHead&str0&ref
    f.close
    response.write "正在生成第"&j&"个页面!<br>"
    %><%
    next%>

    • asp分页生成html的程序脚本代码_html分页代码实例 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全

    最新文章

    热点文章

    推荐访问

    军训远足心得体会 军训爬山心得体会 大学军训徒步拉练感想 军训徒步作文 军训徒步10公里感想 军训徒步心得体会 5分钟演讲中秋节节日 中秋一分钟演讲 中秋节演讲稿4分钟 中秋节演讲稿一分钟 中秋节演讲稿五分钟 3-5分钟 中秋节短篇演讲稿 中秋节演讲稿两分钟 中秋节的演讲稿3分钟 关于中秋节的演讲稿三分钟 孩子体验军训的心得 参加孩子军训活动的感受与收获 家长对孩子军训后的收获和感悟 小孩军训的收获与感悟 学生军训的收获与感悟 孩子军训成长过程家长感悟 孩子军训感悟 孩子军训心得体会 孩子军训的收获与感悟 兵役前训练心得体会 部队当兵的心得 新兵役前教育训练心得体会 预备役军训心得体会 新兵军训感悟

    本文asp分页生成html的程序脚本代码_html分页代码实例由山茶花美文网整理提供，版权归原作者、原出处所有。

    Copyright © 山茶花美文网 All Rights Reserved.