高端响应式模板免费下载

响应式网页设计、开放源代码、永久使用、不限域名、不限使用次数

aspx如何批量生成静态html并分页

ASP生成静态网页方法

随着网站访问量的加大,每次从数据库读取都是以效率作为代价的,很多用ACCESS作数据库的更会深有体会,静态页加在搜索时,也会被优先考虑。互联网上流行的做法是将数据源代码写入数据库再从数据库读取生成静态面,这样无形间就加大了数据库。将现有的ASP页直接生成静态页,将会节省很多。

下面的例子是将、index.asp?id=1/index.asp?id=2/index.asp?id=3/这三个动态页面,分别生成ndex1.htm??index2.htm??index3.htm存在目录下面:

Code:

<%

dim strUrl??Item_Classid??id??FileName??FilePath??Do_Url??Html_Temp

Html_Temp="

    "

    For i=1 To 3

    Html_Temp = Html_Temp&"

  • "

    Item_Classid = i

    FileName = "Index"&Item_Classid&".htm"

    FilePath = Server.MapPath("/")&"\"&FileName

    Html_Temp = Html_Temp&FilePath&"

  • "

    Do_Url = "http://"

    Do_Url = Do_Url&Request.Servervariables("SERVER_NAME")&"/main/index.asp"

    Do_Url = Do_Url&"?Item_Classid="&Item_Classid

    strUrl = Do_Url

    dim objXmlHttp

    set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

    objXmlHttp.open "GET"??strUrl??false

    objXmlHttp.send()

    Dim binFileData

    binFileData = objXmlHttp.responseBody

    Dim objAdoStream

    set objAdoStream = Server.CreateObject("ADODB.Stream")

    objAdoStream.Type = 1

    objAdoStream.Open()

    objAdoStream.Write(binFileData)

    objAdoStream.SaveToFile FilePath??2

    objAdoStream.Close()

    Next

    Html_Temp = Html_Temp&"

      "

      %>

      <%

      Response.Write ( "成功生成文件:" )

      Response.Write ( "
      " )

      Response.Write Html_Temp

      %>

猜你喜欢