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

答案：此程序只能将首页转成静态!(真对一个页面) 
将createhtml.asp文件上传到 你的空间存放首页文件（index.asp）的目录下
录入网址直接打开createhtml.asp接提示操作就可以了
如果没有转成功可将createhtml.asp更名试一下(如:改成z.asp)录入网址直接打开z.asp 
本文件可以随便改名不影响运行
[复制此代码]CODE:

<% 
if request.QueryString("action")="ok"  then 
dim kk,url,http,reurl 
url =trim(request.Form("url")) 
if url="" then 
url="http://www.zzzyk.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 "<script language='javascript'>" 
response.write "alert('发布成功');" 
response.write "location.href=>response.write "</script>" 
else 
%> 
<style type="text/css"> 
<!-- 
.STYLE1 { 
    font-size: 12px; 
    color: #FF0000; 
} 
.STYLE2 { 
    color: #0000FF; 
    font-size: 12px; 
} 
--> 
</style> 
<form id="form1" name="form1" method="post" action="http://<%=request.ServerVariables("HTTP_HOST")&request.ServerVariables("SCRIPT_NAME")%>?action=ok"> 
<table><tr><td> 
  <span class="STYLE2">要转静态的网址：</span></td><td><input name="url" type="text" id="url" value="http://www.zzzyk.com" />  
  <span class="STYLE1">例如http://www.zzzyk.com 本机的文件 http://localhost/</span></td> 
   </tr> 
   <tr><td><span class="STYLE2">存放的路径：</span></td><td> 
   <input name="ad" type="text" id="ad"  value="index.htm"/>  
   <span class="STYLE1">比如index.html 就是保存为和本文件同一目录下的一个index.html</span></td> 
   </tr> 
   <tr> 
    <td><span class="STYLE2">转静态后需要跳转到：</span></td> 
    <td> 
    <input name="reurl" type="text" id="reurl" value="index.htm" />  
    <span class="STYLE1">转静态完成后会有提示框然后确定后就转到您填写的页面</span></td> 
    </tr> 
   <tr><td><div align="right">    
    </div></td><td><input type="submit" name="Submit" value="提交" /></td> 
    </tr></table> 
</form> 
<%end if%> 
<span class="STYLE1">本文件可以随便改名不影响运行</span>

上一个：批量文件自动搜索替换插入器 Ver2.1
下一个：Ajax+ASP和Flash+ASP数据读取取方法有些相似的实现方法