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

作者:网络 来源:佚名 更新时间:2009-02-25 09:21:56 点击:

简单点的,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>"
%>

  • 本文来源于网页设计爱好者web开发社区http://www.html.org.cn收集整理,欢迎访问。