html转为asp,将首页转成静态html页的asp文件

此程序只能将首页转成html">静态!(真对一个页面)

将createhtml.asp文件上传到 你的空间存放首页文件(index.asp)的目录下

录入网址直接打开createhtml.asp接提示操作就可以了

如果没有转成功可将createhtml.asp更名试一下(如:改成z.asp)录入网址直接打开z.asp

本文件可以随便改名不影响运行

复制代码代码如下:

if request.QueryString("action")="ok"  then

dim kk,url,http,reurl

url =trim(request.Form("url"))

if url="" then

url="//www.zzvips.com"

end  if

kk=trim(request.Form("ad"))

if kk="" then

kk="index.html"

end  if

reurl=trim(request.Form("reurl"))

set http=Server.createobject("Microsoft."&chr(120)&"MLHTTP")

Http.open "GET",url,false

Http.send()

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

objStream.type = 1

objStream.open

objstream.write http.responseBody

objstream.saveToFile server.mappath(kk),2

response.write "

response.write "alert('发布成功');"

response.write "location.href='"&reurl&"';"

response.write ""

else

%>

?action=ok">

要转静态的网址：	例如//www.zzvips.com 本机的文件 http://localhost/
存放的路径：	比如index.html 就是保存为和本文件同一目录下的一个index.html
转静态后需要跳转到：	转静态完成后会有提示框然后确定后就转到您填写的页面

本文件可以随便改名不影响运行