• 详谈asp生成静态页方法


    生成静态页的好处不用说,当今大型网站,为缓解服务器端的压力许的的页面都改用了静态的页面,并利用AJAX技术动态地更新其中的部分内容,如广告等。

    一个简单的不用模板可以直接生成HTML静态页的方法.

    如一个正常的index.asp动态页面,

    新建一个文件 makeasp2html.asp

    <form method="post" action=""> 

        <textarea name="asp2html" style="display:none"><!--#include file="index.asp"--></textarea> 

        <input type="submit" value="生成html页"/> 

    </form> 

    <% 

    If request.Form("asp2html")<>"" then 

        filename="index.html" 

        set fso = Server.CreateObject("Scripting.FileSystemObject") 

        set fout = fso.CreateTextFile(server.mappath(""&filename&"")) 

        fout.write request.form("asp2html") 

        fout.close 

        set fout=nothing 

        set fso=nothing 

    end if 

    %> 

    这样index.html文件就生成了,连模板都用不着,只要服务器要支持FSO,将正常情况下使用的ASP文件读取到textarea里就可以了。

    ------------------------------------------------------------------------------------------------------

    细说一下常用的几种生成HTML的方法:


    生成HTML方法主要步骤只有两个:
    一、获取要生成的html文件的内容
    二、将获取的html文件内容保存为html文件

    我在这里主要说明的只是第一步:如何获取要生成的html文件的内容:
    目前常用获取html文件的内容的方法有几下几种:
    1、

    CODE: [Copy to clipboard] str=" 内容 "
    str=str&" 内容 数据库读取内容.... ....."这种方法与是在脚本内写要生成的html内容,不太方便预览生成页面的内容,无法可视化布局页面,更改html模板时会更加复杂。
    用这种方法的人很多,但我感觉这种方法是最不方便的。

    2、
    制作单独的HTML模板页,动态的内容用特定的字符作为标记(如:有人用$title$标记为网页标题),用ADODB.Stream或者Scripting.FileSystemObject将其模板内容载入,然后再用替换方法把原先定好的标记替换为动态内容(如:Replace(载入的模板内容,"$title$",rs("title" ) ) )。

    3、
    用XMLHTTP或serverXMLHTTP获取动态页所显示的HTML内容,

    CODE: [Copy to clipboard] 我常用的生成html文件的实例:
    'weburl是要获取的动态页地址
    'getHTTPPage(weburl)是获取动态页内容的函数
    weburl="http://"&Request.ServerVariables("SERVER_NAME")&"/contact.asp?id="&rs("id")&""‘指定动态页地址
    body=getHTTPPage(weburl)'用函数取到动态页地址的内容此方法最大的好处就是不用费力气专门去写静态的模板页面,只是将原来就有的动态页面转换为HTML静态页面,但生成速度不是太快。

    我常用的生成HTML的方法就是第3种:用XMLHTTP获取动态页生成的HTML内容,再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。

    第二步是生成文件的方法:
    ASP里常用的有用ADODB.Stream生成文件和Scripting.FileSystemObject生成文件两种
    1、

    Scripting.FileSystemObject生成文件方法:

    CODE: [Copy to clipboard] Set fso = CreateObject("Scripting.FileSystemObject")
    File=Server.MapPath("要生成文件路径和文件名.htm")
    Set txt=fso.OpenTextFile(File,8,True)  
    data1="文件内容"用WriteLine方法生成文件
    txt.WriteLine data1
    data2="文件内容"'用Write方法生成文件
    txt.Write data2
    txt.Close
    txt.fso2、

    ADODB.Stream生成文件方法:

    CODE: [Copy to clipboard] Dim objAdoStream
    set objAdoStream = Server.createObject("ADODB.Stream")
    objAdoStream.Type = 1
    objAdoStream.Open()
    objAdoStream.Write("文件内容")
    objAdoStream.SaveToFile 要生成文件路径和文件名.htm,2

    [next] 

    objAdoStream.Close()再说一下我对HTML防采集却不防搜索引擎蜘蛛的一些经验: 

     

    我开发过几个采集程序,也研究过很多采集程序代码,所以对采集程序的原理还算是稍微有些了解。
    先说一下采集原理:

    采集程序的主要步骤如下:

    一、获取被采集的页面的内容
    二、从获取代码中提取所有用的数据

    一、获取被采集的页面的内容

    我目前所掌握的ASP常用获取被采集的页面的内容方法:

    1、用serverXMLHTTP组件获取数据

    CODE: [Copy to clipboard] Function GetBody(weburl) 
        '创建对象
        Dim ObjXMLHTTP
        Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
        '请求文件,以异步形式
        ObjXMLHTTP.Open "GET",weburl,False
        ObjXMLHTTP.send
        While ObjXMLHTTP.readyState <> 4
            ObjXMLHTTP.waitForResponse 1000
        Wend
        '得到结果
         GetBody=ObjXMLHTTP.responseBody
        '释放对象
         Set ObjXMLHTTP=Nothing
    End Function
    调用方法:
    GetBody(文件的URLf地址) 2、或XMLHTTP组件获取数据

    CODE: [Copy to clipboard] Function GetBody(weburl) 
        '创建对象
        Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
        With Retrieval 
         .Open "Get", weburl, False, "", "" 
         .Send 
         GetBody = .ResponseBody
         End With 
        '释放对象
        Set Retrieval = Nothing 
    End Function
    调用方法:
    GetBody(文件的URLf地址) 这样获取的数据内容还需要进行编码转换才可以使用

    CODE: [Copy to clipboard] Function BytesToBstr(body,Cset)
            dim objstream
            set objstream = Server.CreateObject("adodb.stream")
            objstream.Type = 1
            objstream.Mode =3
            objstream.Open
            objstream.Write body
            objstream.Position = 0
            objstream.Type = 2
            objstream.Charset = Cset
            BytesToBstr = objstream.ReadText 
            objstream.Close
            set objstream = nothing
    End Function

    调用方法:BytesToBstr(要转换的数据,编码)'编码常用为GB2312和UTF-8二、从获取代码中提取所有用的数据
    目前我掌握的方法有:
    1、用ASP内置的MID函数截取需要的数据

    CODE: [Copy to clipboard] Function body(wstr,start,over)
    start=Newstring(wstr,start)
    '设置需要处理的数据的唯一的开始标记
    over=Newstring(wstr,over)
    '和start相对应的就是需要处理的数据的唯一的结束标记
    body=mid(wstr,start,over-start)
    '设置显示页面的范围
    End Function
    调用方法:body(被采集的页面的内容,开始标记,结束标记)2、用正则获取需要的数据

    CODE: [Copy to clipboard] Function body(wstr,start,over)

    Set xiaoqi = New Regexp'设置配置对象
    xiaoqi.IgnoreCase = True'忽略大小写
    xiaoqi.Global = True'设置为全文搜索
    xiaoqi.Pattern =  "”&start&“.+?”&over&“"'正则表达式 
    Set Matches =xiaoqi.Execute(wstr)'开始执行配置

    [next] 

    set  xiaoqi=nothing 
    body=""
    For Each Match in Matches
    body=body&Match.Value '循环匹配
    Next 

     

    End Function
    调用方法:body(被采集的页面的内容,开始标记,结束标记)采集程序祥细思路:
    1、取得网站的分页列表页的每页地址
    目前绝大部分动态网站的分页地址都有规则,如:
    动态页
    第一页:index.asp?page=1
    第二页:index.asp?page=2
    第三页:index.asp?page=3
    .....

    静态页
    第一页:page_1.htm
    第二页:page_2.htm
    第三页:page_3.htm
    .....
    取得网站的分页列表页的每页地址,只需要用变量替代每页地址的变化的字符即可如:page_<%="&page&"%>.htm

    2、获取被采集网站的分页列表页内容
    3、从分页列表代码中提取被采集的内容页面的URL连接地址
    绝大部分分页页面里的内容页连接也有固定规则,如:
    连接1 

    连接2 

    连接3 


    用以下代码就可以获得一个URL连接集合

    CODE: [Copy to clipboard] Set xiaoqi = New Regexp
    xiaoqi.IgnoreCase = True
    xiaoqi.Global = True
    xiaoqi.Pattern =  ””“.+?”““
    Set Matches =xiaoqi.Execute(页面列表内容)
    set  xiaoqi=nothing 
    url=""
    For Each Match in Matches
    url=url&Match.Value 
    Next4、取得被采集的内容页面内容,根据”提取标记“从被采集的内容页面分别截取要取得的数据

    因为是动态生成的页面,大多数内容页面内都有相同的html标记,我们可以根据这些有规则的标记提取需要的各个部分的内容。
    如:
    每个页面都有网页标题,用我上面写的MID截取函数就可以获得之间的值,也可以用正则表达式来获得。
    例:body("","")


    介绍完采集器的祥细原理后,就开始说一下防采集的策略。

    目前防采集的方法有很多种,先介绍一下常见防采集策略方法和它的弊端及采集对策:

    一、判断一个IP在一定时间内对本站页面的访问次数,如果明显超过了正常人浏览速度,就拒绝此IP访问
    弊端:
    1、此方法只适用于动态页面,如:asp\jsp\php等...静态页面无法判断某个IP一定时间访问本站页面的次数
    2、此方法会严重影响搜索引擎蜘蛛对其收录,因为搜索引擎蜘蛛收录时,浏览速度都会比较快而且是多线程。此方法也会拒绝搜索引擎蜘蛛收录站内文件
    采集对策:只能放慢采集速度,或者不采
    建议:做个搜索引擎蜘蛛的IP库,只允许搜索引擎蜘蛛快速浏览站内内容。搜索引擎蜘蛛的IP库的收集,也不太容易,一个搜索引擎蜘蛛,也不一定只有一个固定的IP地址。
    评论:此方法对防采集比较有效,但却会影响搜索引擎对其收录。

    二、用javascript加密内容页面

    弊端:此方法适用于静态页面,但会严重影响搜索引擎对其收录情况,搜索引擎收到到的内容,也都是加密后的内容
    采集对策:建议不采,如非要采,就把解密码的JS脚本也采下来。
    建议:目前没有好的改良建议
    评论:建议指望搜索引擎带流量的站长不要使用此方法。

    三、把内容页面里的特定标记替换为”特定标记+隐藏版权文字“

    弊端:此方法弊端不大,仅仅会增加一点点的页面文件大小,但容易反采集
    采集对策:把采集来的含有隐藏版权文字内容的版权文字替掉,或替换成自己的版权。
    建议:目前没有好的改良建议
    评论:自己感觉实用价值不大,就算是加上随机的隐藏文字,也等于画蛇添足。


    四、只允许用户登陆后才可以浏览
    弊端:此方法会严重影响搜索引擎蜘蛛对其收录
    采集对策:目前落伍已经有人发了对策文章 ,具体对策就看这个吧《ASP小偷程序如何利用XMLHTTP实现表单的提交以及cookies或session的发送》
    建议:目前没有好的改良建议
    评论:建议指望搜索引擎带流量的站长不要使用此方法。不过此方法防一般的采集程序,还是有点效果的。

    五、用javascript、vbscript脚本做分页
    弊端:影响搜索引擎对其收录
    采集对策:分析javascript、vbscript脚本,找出其分页规则,自己做个对应此站的分页集合页即可。

    [next]

    建议:目前没有好的改良建议
    评论:感觉懂点脚本语言的人都能找出其分页规则 

     

    六、只允许通过本站页面连接查看,如:Request.ServerVariables("HTTP_REFERER")
    弊端:影响搜索引擎对其收录
    采集对策:不知道能不能模拟网页来源。。。。目前我没有对应此方法的采集对策
    建议:目前没有好的改良建议
    评论:建议指望搜索引擎带流量的站长不要使用此方法。不过此方法防一般的采集程序,还是有点效果的。

    从以上可以看出,目前常用的防采集方法,要么会对搜索引擎收录有较大影响,要么防采集效果不好,起不到防采集的效果。那么,还有没有一种有效防采集,而又不影响搜索引擎收录的方法呢?那就请继续往下看吧,精彩的地方马上呈献给大家。

    下面就是我的防采集策略,防采集而又不防搜索引擎

    从前面的我讲的采集原理大家可以看出,绝大多数采集程序都是靠分析规则来进行采集的,如分析分页文件名规则、分析页面代码规则。

    一、分页文件名规则防采集对策

    大部分采集器都是靠分析分页文件名规则,进行批量、多页采集的。如果别人找不出你的分页文件的文件名规则,那么别人就无法对你的网站进行批量多页采集。
    实现方法:
    我认为用MD5加密分页文件名是一个比较好的方法,说到这里,有人会说,你用MD5加密分页文件名,别人根据此规则也可以模拟你的加密规则得到你的分页文件名。

    我要指出的是我们加密分页文件名时,不要只加密文件名变化的部分
    如果I代表分页的页码,那么我们不要这样加密 
    page_name=Md5(I,16)&".htm"

    最好给要加密的页码上再跟进一个或多个字符,如:page_name=Md5(I&"任意一个或几个字母",16)&".htm"

    因为MD5是无法反解密的,别人看到的会页字母是MD5加密后的结果,所以加人也无法知道你在 I 后面跟进的字母是什么,除非他用暴力破解MD5,不过不太现实。

    二、页面代码规则防采集对策

    如果说我们的内容页面无代码规则,那么别人就无法从你的代码中提取他们所需要的一条条内容。
    所以我们要的这一步做到防采集,就要使代码无规则。
    实现方法:
    使对方需要提取的标记随机化
    1、定制多个网页模板,每个网页模板里的重要HTML标记不同,呈现页面内容时,随机选取网页模板,有的页面用CSS+DIV布局,有的页面用table布局,此方法是麻烦了点,一个内容页面,要多做几个模板页面,不过防采集本身就是一件很烦琐的事情,多做一个模板,能起到防采集的作用,对很多人来说,都是值得的。
    2、如果嫌上面的方法太麻烦,把网页里的重要HTML标记随机化,也可以。

    做的网页模板越多,html代码越是随机化,对方分析起内容代码时,就越麻烦,对方针对你的网站专门写采集策略时,难度就更大,在这个时候,绝大部分人,都会知难而退,因为这此人就是因为懒,才会采集别人网站数据嘛~~~再说一下,目前大部分人都是拿别人开发的采集程序去采集数据,自己开发采集程序去采集数据的人毕竟是少数。

    还有些简单的思路提供给大家:
    1、把对数据采集者重要,而对搜索引擎不重要的内容用客户端脚本显示
    2、把一页数据,分为N个页面显示,也是加大采集难度的方法
    3、用更深层的连接,因为目前大部分采集程序只能采集到网站内容的前3层,如果内容所在的连接层更深,也可以避免被采集。不过这样可能会给客户造成浏览上的不便。
    如:
    大多网站都是 首页----内容索引分页----内容页
    如果改成:
    首页----内容索引分页----内容页入口----内容页
    注:内容页入口最好能加上自动转入内容页的代码

    CODE: [Copy to clipboard] <meta&NBSP;HTTP-EQUIV="REFRESH"&NBSP;CONTENT="6;URL=内容页">其实,只要做好防采集的第一步(加密分页文件名规则),防采集的效果就已经不错了,还是建议两条反采集方法同时使用,给采集者增加采集难度,使得他们知难页退。

    关于Adodb.Stream 的使用说明

    组件:"Adodb.Stream"
    有下列方法:
    Cancel 方法
    使用方法如下
    Object.Cancel
    说明:取消执行挂起的异步 Execute 或 Open 方法的调用。
    Close 方法
    使用方法如下
    Object.Close
    :关闭对像
    CopyTo 方法
    使用方法如下
    Object.CopyTo(destStream,[CharNumber])
    说明:将对像的数据复制,destStream指向要复制的对像,CharNumber为可选参数,指要复制的字节数,不选为全部复制。
    Flush 方法
    使用方法如下
    Object.Flush
    说明:
    LoadFromFile 方法
    使用方法如下
    Object.LoadFromFile(FileName)
    说明:将FileName指定的文件装入对像中,参数FileName为指定的用户名。
    Open 方法
    使用方法如下
    Object.Open(Source,[Mode],[Options],[UserName],[Password])
    说明:打开对像,
    参数说明:Sourece 对像源,可不指定
    Mode 指定打开模式,可不指定,可选参数如下:
    adModeRead =1
    adModeReadWrite =3
    adModeRecursive =4194304
    adModeShareDenyNone =16
    adModeShareDenyRead =4
    adModeShareDenyWrite =8
    adModeShareExclusive =12
    adModeUnknown =0
    adModeWrite =2
    Options 指定打开的选项,可不指定,可选参数如下:
    adOpenStreamAsync =1
    adOpenStreamFromRecord =4
    adOpenStreamUnspecified=-1
    UserName 指定用户名,可不指定。
    Password 指定用户名的密码
    Read 方法
    使用方法如下:
    Object.Read(Numbytes)
    说明:读取指定长度的二进制内容。
    参数说明:Numbytes指定的要读取的找度,不指定则读取全部。

    ReadText 方法
    使用方法如下:
    Object.ReadText(NumChars)
    说明:读取指定长度的文本
    参数说明:NumChars指定的要读取的找度,不指定则读取全部。

    SaveToFile 方法
    使用方法如下:
    Object.SaveToFile(FileName,[Options])
    说明:将对像的内容写到FileName指定的文件中
    参数说明:FileName指定的文件
    Options 存取的选项,可不指定,可选参数如下:
    adSaveCreateNotExist =1
    adSaveCreateOverWrite =2

    SetEOS 方法
    使用方法如下:
    Object.setEOS()
    说明:
    SkipLine 方法
    使用方法如下:
    Object.SkipLine()
    说明:
    Write 方法
    使用方法如下:
    Object.Write(Buffer)
    说明:将指定的数据装入对像中。
    参数说明:Buffer 为指定的要写入的内容。
    WriteText 方法
    使用方法如下:
    Object.Write(Data,[Options])
    说明:将指定的文本数据装入对像中。
    参数说明:Data 为指定的要写入的内容。
    Options 写入的选项,可不指定,可选参数如下:
    adWriteChar =0
    adWriteLine =1




    有下列属性:
    Charset
    EOS 返回对像内数据是否为空。

    LineSeparator 指定换行格式,可选参数有
    adCR =13
    adCRLF =-1
    adLF =10

    Mode 指定或返加模式。

    Position 指定或返加对像内数据的当前指针。

    Size 返回对像内数据的大小。

    State 返加对像状态是否打开。

    Type 指定或返回的数据类型,可选参数为:
    adTypeBinary =1
    adTypeText =2


    ASP+FSO+框架实现ASP批量生成HTML并分页的方法
     

    <!--#include file="conn.asp"-->'数据连接文件
    <%
    On Error Resume Next'容错处理
    Dim City'定义取得要生成页面的城市
    City=Request.Querystring("City")'获取生成的城市酒店值从框架传过来的在后面将介绍
    HtmlStartName=Request.Querystring("HtmlStartName")'获得生成htm文件名前缀
    Dim sql'搜索字符串,这里我就直接打开表不用搜索变量了,搜索条件按自己写就可以
    sql="select * from Hotel where [City] = '" & City & "' "
    Dim oRs'数据操作对象
    Dim PageCounts'实现分页生成必须得知呀有多少页
    Set oRs = Server.CreateObject("ADODB.Recordset")
    oRs.Open Sql,oConn,1,1'找开酒店等于City变量的表
    oRs.pagesize=10'十个记录为一页
    PageCounts=oRs.pagecount'得出要生成多少个页面,循环生成使用
    Dim fs'定义fso文件对象
    Dim folders'存放生成静态页的文件夹名称
    Dim Filestart'定义生成htm文件前缀
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Dim i
    for i=1 to PageCounts'开始循环生成页面,也就是分页生成了
    page=i
    oRs.absolutepage=i'页码
    rowcount=oRs.pagesize'当页记录数
    folders=server.mappath("CityHtml")
    if (fs.FolderExists(folders)) then'判断文件夹是否存在
    else
    fs.CreateFolder(folders)'不存在则创建CityHtml文件夹
    end if
    if i=1 then
    Filestart=HtmlStartName'如果为第一页则定义文件名为传值名.例如beijing则为beijing.htm
    else
    Filestart=HtmlStartName&i'如果第二页则为beijing+1例如有两页也就是i等于2则为 beijing2.htm如此类推...(.htm后缀就在后面加上)
    end if
    Dim files'定义生成文本文件名称变量
    Dim filez'定义文件路径名称变量
    files=Filestart&".txt"'本文件名称
    filez=folders&"\"&"files'文本文件路径
    '册除文件
    Dim checkfile'检查文本文件是否已经存在,是则删除
    checkfile=server.mappath("CityHtml\"&Filestart&".htm")'检查htm文件是否已经存在,是则删除
    if (fs.FileExists(checkfile)) then'检查htm文件是否已经存在,是则删除
    Dim df'定义文件对象*删除文件使用*
    Set df=fs.GetFile(checkfile)'定义要册除的文件
    df.delete'册除文件
    end if'判断结束
    Dim ts'定义写入文件对象
    set ts = fs.createtextfile(filez,true) '开启写入文件内容**我在正文只简单写入酒店名称和静态数字分页显示**
    ts.write("<Html><Head><Title>生成"&City&"城市酒店</Title>"&vbcrlf)'之后就是要生成的正文件内容了跟使用Response.write
    ts.write("<META http-equiv=Content-Type content=text/html; charset=gb2312>"&vbcrlf)
    ts.write("<meta name=keywords content="&city&"酒店>"&vbcrlf)
    ts.write("<link href='/Style/style.css' rel='stylesheet' type='text/css'></head><body topmargin=0>"&vbcrlf)
    ts.Write("<TABLE WIDTH=760 cellspacing=0 cellpadding=0 align=center>"&vbcrlf&_
    "<TR><TD width='100%'>"&vbcrlf)
    '分页输出开始
    '数字分页程序原理在这我就不多说了,不懂的朋友可在网上搜索一下
    Dim page'当前页
    Dim Page2'数字分页变量
    Dim s'数字分页变量
    if page=1 then
    ts.write (" [首 页] [前一页] ")
    else
    ts.write (" <a href="&HtmlStartName&".htm"&" class=blue>[首 页]</a> <a href="&HtmlStartName&Replace(page-1,1,"")&".htm"&" class=blue>前一页</a> ")
    end if
    page2=(page-(page mod 10))/10
    if page2<1 then page2=0
    for s=page2*10-1 to page2*10+10
    if s>0 then
    if s=cint(page) then
    ts.write (" <font color='#000000'>["& s & "]</font>")
    else
    if s=1 then
    ts.write (" <a href="&HtmlStartName&replace(s,1,"")&".htm"&" class=blue>["& s &"]</a>")
    else
    ts.write (" <a href="&HtmlStartName&s&".htm"&" class=blue>["& s &"]</a>")
    end if
    end if
    if s=ors.pagecount then
    exit for
    end if
    end if
    next
    if cint(page)=ors.pagecount then
    ts.write (" [后一页] [尾 页]")
    else
    ts.write (" <a href="&HtmlStartName&page+1&".htm"&" class=blue>[后一页]</a> <a href="&HtmlStartName&ors.pagecount&".htm"&" class=blue>[尾 页]</a>")
    end if
    ts.write("</TD></TR>")
    '分页输出结束
    do while not ors.eof and rowcount>0 '输出酒店名称
    ts.write("<TR><TD width='100%'>"&oRs.Fields("Chinese_Name")&"</TD></TR>"&vbcrlf)
    oRs.movenext
    rowcount=rowcount-1'当页记录数-1 loop
    ts.write("</Table></body></html>"&vbcrlf)
    ts.close
    set ts=nothing '释放对象
    Dim EditFile'定义改写文件变量
    Set EditFile = fs.GetFile(filez)'设置改写文件对象
    EditFile.name= left(EditFile.name,len(EditFile.name)-4)&".htm" '改写文本文件成htm
    next'循环生成结束(分页生成)
    set EditFile=nothing '释放对象
    set fs=nothing'释放对象
    if err.number<>0 then '处理生成错误
    Response.write (City&"更新时发生未知错误<A href=ToHtml.asp?City="&City&"&HtmlName="&HtmlStartName& ">重新更新</A>")
    else
    Response.Write(City&"酒店更新已完成 "&Now())
    end if
    %>




    超长文章内容进行分页并生成HTML文件

    以下是程序源代码:
    <% 
    dim fname,fso,fout,htmlcode 
    dim htmlbody,htmlbody1,page_n 
    htmlbody=request.form("body") 
    page_n=len(htmlbody)-len(replace(htmlbody,"$","")) 
    ’生成文件名的函数 
    function makefilename(fname) 
    fname = fname 
    fname = replace(fname,"-","") 
    fname = replace(fname," ","")  
    fname = replace(fname,":","") 
    fname = replace(fname,"PM","") 
    fname = replace(fname,"AM","") 
    fname = replace(fname,"上午","") 
    fname = replace(fname,"下午","") 
    makefilename=fname 
    end function 
    if request.querystring("action")="add" then 
    for i=0 to page_n 
    fname=makefilename(now()) 
    if i=0 then 
    ppage=0 
    else 
    ppage=i-1 
    end if 
    if i=0 and page_n>i then 
    npage=i+1 
    else 
    npage=page_n 
    end if 
    shtml=split(htmlbody,"$")(i) & vbcrlf 
    shtml=shtml&"<br><a href="""&fname&"_"&ppage&".html"">上一页</a> <a href="""&fname&"_"&npage&".html"">下一页</a>" 
    Set fso = Server.CreateObject("Scripting.FileSystemObject") 
    Set fout = fso.CreateTextFile(Server.MapPath(fname&"_"&i&".html")) 
    fout.WriteLine shtml 
    fout.close 
    next 
    response.write"<SCRIPT language=JavaScript>alert(’成功生成"&page_n+1&"个HTML页’);this.location.href=’javascript:history.back();’</SCRIPT>" 
    end if 
    %> 
    <html> 
    <head> 
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
    <title>阿里西西_超长文件分页并生成HTML文件简单示例</title> 
    </head> 
    <body> 
    <form name="form1" method="post" action="?action=add"> 
    文章内容: 
    <br> 
    <textarea name="body" cols="60" rows="8"> 
    第一页内容 

    第二页内容 

    第三页内容</textarea> 
    <br> 
    <input type="submit" name="Submit" value="提交"> 
    </form> 
    </body> 
    </html>

    SHTML和HTML的区别,如果用一句话来解释就是:SHTML 不是HTML而是一种服务器 API,shtml是服务器动态产成的html. 虽然两者都是超文本格式,但shtml是一种用于SSI技术的文件。 也就是Server Side Include--SSI 服务器端包含指令。 如果Web Server有SSI功能的话(大多数(尤其是基于Unix平台)的WEB服务器如Netscape Enterprise Server等均支持SSI命令)。 会对shtml文件特殊招待。 先扫一次shtml文件看没有特殊的SSI指令现在。 有就按Web Server设定规则解释SSI指令。 解释完后跟一般html一起掉去客户端。shtml
      使用SSI(Server Side Include)的html文件扩展名,SSI(Server Side Include),通常称为"服务器端嵌入"或者叫"服务器端包含",是一种类似于ASP的基于服务器的网页制作技术。SSI工作原理:  将内容发送到浏览器之前,可以使用“服务器端包含 (SSI)”指令将文本、图形或应用程序信息包含到网页中。例如,可以使用 SSI 包含时间/日期戳、版权声明或供客户填写并返回的表单。对于在多个文件中重复出现的文本或图形,使用包含文件是一种简便的方法。将内容存入一个包含文件中即可,而不必将内容输入所有文件。通过一个非常简单的语句即可调用包含文件,此语句指示 Web 服务器将内容插入适当网页。而且,使用包含文件时,对内容的所有更改只需在一个地方就能完成。因为包含 SSI 指令的文件要求特殊处理,所以必须为所有 SSI 文件赋予 SSI 文件扩展名。默认扩展名是 .stm、.shtm 和 .shtmlWeb 服务器在处理网页的同时处理 SSI 指令。当 Web 服务器遇到 SSI 指令时,直接将包含文件的内容插入 HTML 网页。如果“包含文件”中包含 SSI 指令,则同时插入此文件。除了用于包含文件的基本指令之外,还可以使用 SSI 指令插入文件的相关信息(如文件的大小)或者运行应用程序或 shell 命令。
      网站维护常常碰到的一个问题是,网站的结构已经固定,却为了更新一点内容而不得不重做一大批网页。SSI提供了一种简单、有效的方法来解决这一问题,它将一个网站的基本结构放在几个简单的HTML文件中(模板),以后我们要做的只是将文本传到服务器,让程序按照模板自动生成网页,从而使管理大型网站变得容易。所以,利用SHTML格式的页面目的和 ASP 差不多,但是因为是 API 所以运转速度更快,效率更高,比ASP快,比HTML慢,但由于可以使用服务器端包含,因此使页面更新容易(特别是批量更新banner,版权等),想象一下吧,你有一段 HTML,要在中间穿插一些特殊的服务端脚本,比如插入其他 HTML 段落,你选择 ASP 来完成这个任务,但是如果任务更繁重,需要更多的时间,比如 5 s,这个时候你不用 ASP 而用 SHTML,或许处理时间就只用 4 s 了.
        其实说了这么多,对驼而言,用shtml最直接的就是可以用include~~
  • 相关阅读:
    鼠标滑过,图片放大效果。
    ASP.NET自定义省市级联控件
    C++ Test单元测试工具
    网络超时检测
    电子工程师知识汇整【转】
    DDD进行调试 介绍 转
    VS2008配置PC Lint (静态代码检查工具PCLint)
    【转】三大UML建模工具Visio、Rational Rose、PowerDesign的区别
    第一个corba服务Hello World (转)
    python简介
  • 原文地址:https://www.cnblogs.com/tdalcn/p/1131772.html
Copyright © 2020-2023  润新知