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

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

将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=”https://www.jb51.net”
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
%>

<!–
.STYLE1 {
    font-size: 12px;
    color: #FF0000;
}
.STYLE2 {
    color: #0000FF;
    font-size: 12px;
}
–>

<form id="form1" name="form1" method="post" action="http://?action=ok”>

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