ASP生成静态首页的例子代码

发布时间：2023-07-10 14:32:08 所属栏目：Asp教程来源：

导读：简单点的，ASP生成静态首页的示例代码

<%

dim objXmlHttp,binFileData,objAdoStream

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

objXmlHttp.open "GET","http://"&request.ServerV

简单点的，ASP生成静态首页的示例代码

<%

dim objXmlHttp,binFileData,objAdoStream

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

objXmlHttp.open "GET","http://"&request.ServerVariables("HTTP_HOST")&"/index1.asp",false

objXmlHttp.send()

binFileData = objXmlHttp.responseBody

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

objAdoStream.Type = 1

objAdoStream.Open()

objAdoStream.Write(binFileData)

objAdoStream.SaveToFile server.MapPath("../index.html"),2

objAdoStream.Close()

set objAdoStream=nothing

set objXmlHttp=nothing

response.write"<script language=javascript>alert('首页生成完成!');this.location.href='manage_main.asp';</script>"

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!