zoukankan      html  css  js  c++  java
  • asp生成静态HTML(动态读取)

    这样的代码多用于我们没有实现设计生成静态的功能,但又想临时将一些动态页面生成静态的,直接获取动态内容并保存为静态的
    复制代码代码如下:

    <!--#include file="admin_Checkuser.asp"-->
     <% 
    call ConnectionDatabase()
    dim str,str_new
    str=""
    str_new=""
    sqlx="select id from Fl_Products order by id desc" 
    set rsx=conn.execute(sqlx)
    do while not rsx.eof
    str=str&rsx("id")&"|"
    rsx.movenext :loop
    rsx.close
    sqlx="select id from Fl_News order by id desc" 
    set rsx=conn.execute(sqlx)
    do while not rsx.eof
    str_new=str_new&rsx("id")&"|"
    rsx.movenext :loop
    rsx.close
    place=InStrRev(str,"|") 
    str=Left(str,place-1) 
    place=InStrRev(str_new,"|") 
    str_new=Left(str_new,place-1) 
     dim url,cwww,act
     act=Trim(Request.QueryString("act"))
    url =Request.ServerVariables("HTTP_HOST")
    cwww="http://"+url
        MakeHtm cwww&"/index.asp","../index.htm","首页写入成功!"
        MakeHtm cwww&"/about.asp","../about.htm","企业简介写入成功!"
    MakeHtm cwww&"/contact.asp","../contact.htm","联系我们写入成功!"
    MakeHtm cwww&"/ry.asp","../ry.htm","资质荣誉写入成功!"
    MakeHtm cwww&"/liuyan.asp","../liuyan.htm","联系我们写入成功!"
    MakeHtm cwww&"/pro.asp","../pro.htm","产品展示写入成功!"
    MakeHtm cwww&"/news.asp","../news.htm","生成车间写入成功!"
        MakeHtm cwww&"/xinwen.asp","../xinwen.htm","新闻资讯写入成功!"
        MakeHtm cwww&"/alliance.asp","../alliance.htm","销售网络写入成功!" 
    '生成产品
    xstr=split(str,"|")
    for i=0 to ubound(xstr)
    MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","产品"&xstr(i)&"写入成功!"
    next
    xstr=split(str_new,"|")
    for i=1 to ubound(xstr)/25+1
    MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm","新闻列表"&i&"写入成功!"
    next 
    xstr=split(str_new,"|")
    for i=0 to ubound(xstr)
    MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","新闻"&xstr(i)&"写入成功!"
    next ///www.jbxue.com
    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
     Function MakeHtm(curl,turl,mess)
     Set xml = Server.CreateObject("Microsoft.XMLHTTP")
    '把下面的地址替换成你的首页的文件地址,一定要用http://开头的绝对路径,不能写相对路径
    xml.Open "GET", curl, False
    xml.Send
    BodyText=xml.ResponseBody
    BodyText=BytesToBstr(BodyText,"gb2312")
    Set xml = Nothing
     '替换
     BodyText=RegReplace(BodyText,"uzProduct.asp?id=(d*)", "uzProduct_$1.htm")
     BodyText=RegReplace(BodyText,"uzNews.asp?id=(d*)", "uzNews_$1.htm")
     BodyText=RegReplace(BodyText,"xinwen.asp?Page=(d*)", "xinwen_$1.htm")
     BodyText=replace(BodyText,"index.asp","index.htm")
     BodyText=replace(BodyText,"about.asp","about.htm")
     BodyText=replace(BodyText,"pro.asp","pro.htm")
     BodyText=replace(BodyText,"news.asp","news.htm")
     BodyText=replace(BodyText,"liuyan.asp","liuyan.htm")
     BodyText=replace(BodyText,"ry.asp","ry.htm")
     BodyText=replace(BodyText,"xinwen.asp","xinwen.htm")
     BodyText=replace(BodyText,"contact.asp","contact.htm")
    Dim fso, MyFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set MyFile= fso.CreateTextFile(server.MapPath(turl), True)
    MyFile.WriteLine(BodyText)
    MyFile.Close
    response.Write mess
    response.Write "<br>"
    End Function
    Public Function RegReplace(sContent, sPatrn, sNewStr)
            Dim oTempReg : Set oTempReg = New RegExp
            With oTempReg
                    .IgnoreCase = True
                    .Global = True
                    .Pattern = sPatrn
                    RegReplace = .Replace(sContent, sNewStr)
            End With
            Set oTempReg = Nothing
    End Function
    call CloseDatabase()
      %>
      <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
    <title>Untitled Document</title>
    <style>
    body,td{font-family:Verdana, Arial, Helvetica, sans-serif;
    font-size:10.5pt;}
    </style>
    </head>
    <body>
    </body>
    </html>
  • 相关阅读:
    韩式英语
    Daily dictation 听课笔记
    words with same pronunciation
    you will need to restart eclipse for the changes to take effect. would you like to restart now?
    glottal stop(britain fountain mountain)
    education 的发音
    第一次用Matlab 的lamada语句
    SVN的switch命令
    String的split
    SVN模型仓库中的资源从一个地方移动到另一个地方的办法(很久才解决)
  • 原文地址:https://www.cnblogs.com/linuxnotes/p/3458722.html
Copyright © 2011-2022 走看看