• ASP生成.shtml.html,多页

    <!--#include file="conn.asp"--> 
    <html><head><TITLE>分页测试</TITLE><LINK href="inc/style.css" type=text/css rel=stylesheet></head> 
    <% 
    dim strhead,sql,totalpage,j,whichpage,howmanyrecs,str0,ref,counter,yyyy 
    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>" 
    %    > 
    <% 
    yyyy    =5 
    sql    ="select * from news order by atime desc" 
    set rs=server.createObject("ADODB.Recordset") 
    rs.open sql,conn,    1,1 
    %    ><% 
    rs.pagesize    =yyyy 
    totalpage    =rs.pagecount 
    rs.close 
    set rs=nothing 

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

    whichpage    =j 
    rs.pagesize    =yyyy 
    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""><a href="&rs("address")&">"&rs("name")&"</a></td>" 
    str0    =str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs("atime")&"</td>" 
    str0    =str0&"<td bgcolor=#f7f7f7 align=""center"">"&rs("text")&"</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%>
  • 相关阅读:
    C#：基于WMI查询USB设备信息 及 Android设备厂商VID列表
    C#中 @ 的3种用途
    有关于 使用 命名管道 进行网络 进程间通信 的资料收集
    MySql LAST_INSERT_ID 【插入多条数据时】
    两个“不合理继承 ”的判定标识
    MYSQL 函数 字符串到整数
    Spring MVC 对于@ModelAttribute 、@SessionAttributes 的详细处理流程
    重构，拥有多个构造函数(重载)的类
    vue二级联动select
    gulp.dest用法详解
  • 原文地址：https://www.cnblogs.com/zwl12549/p/863634.html
Copyright © 2020-2023  润新知