×
会员登录
首页 > 教程 > 编程 > ASP不使用模板生成HTML
ASP不使用模板生成HTML
  • 作者:熊海
  • 点击:554
  • 时间:2016-05-02
  •     刚刚写过一篇利用模板生成HTML的方法,还有个方法是不使用模板生成HTML,不太推荐大家使用这个方法,因为在网速慢的时候容易造成超时,当然,在数据较少的情况下,还是可以使用的,我在实际使用中,全部生成500篇的时候出现超时,当然,在本地测试没有网速的影响,则没有任何问题。

    <%
    '生成目录
    Dim objfso,path,SourceFolder
    Set objfso=Server.CreateObject("Scripting.FileSystemObject") 
    SourceFolder =server.MapPath("\html") 
    '判断文件夹是否存在,如果不存在则创建文件夹
    If Not objfso.FolderExists(SourceFolder) Then
     objfso.CreateFolder SourceFolder    
    End If
    Set objfso=Nothing
    
    set rs=server.createobject("adodb.recordset")
    sql="select * from web_Article where view_yes=1"
    rs.open(sql),conn,1,1
    do while not rs.eof
    id=rs("id")
    '生成Html
    dim objXmlHttp,binFileData,objAdoStream 
    set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 
    objXmlHttp.open "GET","http://"&request.ServerVariables("HTTP_HOST")&"/Article/?"&id&".html",false 
    objXmlHttp.send() 
    binFileData = objXmlHttp.responseBody 
    set objAdoStream = Server.CreateObject("ADODB.Stream") 
    objAdoStream.Type = 1 
    objAdoStream.Open() 
    objAdoStream.Write(binFileData) 
    objAdoStream.SaveToFile server.MapPath("html/"&id&".html"),2 
    objAdoStream.Close() 
    set objAdoStream=nothing 
    set objXmlHttp=nothing 
    
    rs.movenext
    loop 
    Response.write"文章生成完成"
    rs.close
    set rs=nothing
    %>
    文章评论:
    我牛网专业提供平面设计、网页模板、建站素材等各类作品共享下载,我们致力打造优秀的资源共享学习平台。
    © 2016 - 2019 我牛网 & 保留所有权利 鄂ICP备15003561号