怎样自动生成生成静态网页?

____繁華依舊 2023-03-18 17:25

• 

  _ahobaka_

  2023-03-18 18:01

  看看例子吧-------------------------------------------下面的例子是将、index.asp?id=1/index.asp?id=2/index.asp?id=3/这三个动态页面，分别生成ndex1.htm,index2.htm,index3.htm存在根目录下面： <%dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_TempHtml_Temp="

  "For i=1 To 3Html_Temp = Html_Temp&"
  • "Item_Classid = iFileName = "Index"&Item_Classid&".htm"FilePath = Server.MapPath("/")&"\"&FileNameHtml_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_ClassidstrUrl = Do_Urldim objXmlHttpset objXmlHttp = Server.CreateObject(" Microsoft.XMLHTTP")objXmlHttp.open "GET",strUrl,falseobjXmlHttp.send()Dim binFileDatabinFileData = objXmlHttp.responseBodyDim objAdoStreamset objAdoStream = Server.CreateObject("ADODB.Stream")objAdoStream.Type = 1objAdoStream.Open()objAdoStream.Write(binFileData)objAdoStream.SaveToFile FilePath,2 objAdoStream.Close()NextHtml_Temp = Html_Temp&"
  "%><%Response.Write ( "成功生成文件：" )Response.Write ( "
  " )Response.Write Html_Temp%>

  参考资料：猎鹰时空

  杀鸡用牛刀，建议楼主先了解下网站建设的基本常识吧！
  0 讨论(0)
  发布评论:

  提交评论

  ---

  •  加载中...