快捷導(dǎo)航

將首頁(yè)轉(zhuǎn)成靜態(tài)html頁(yè)的asp文件

更新時(shí)間：2007年03月01日 00:00:00 作者：

此程序只能將首頁(yè)轉(zhuǎn)成靜態(tài)!(真對(duì)一個(gè)頁(yè)面)

將createhtml.asp文件上傳到你的空間存放首頁(yè)文件（index.asp）的目錄下
錄入網(wǎng)址直接打開createhtml.asp接提示操作就可以了
如果沒有轉(zhuǎn)成功可將createhtml.asp更名試一下(如:改成z.asp)錄入網(wǎng)址直接打開z.asp
本文件可以隨便改名不影響運(yùn)行

復(fù)制代碼代碼如下:

<% 
if request.QueryString("action")="ok"  then 
dim kk,url,http,reurl 
url =trim(request.Form("url")) 
if url="" then 
url="http://chabaoo.cn" 
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('發(fā)布成功');" 
response.write "location.href='"&reurl&"';" 
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">要轉(zhuǎn)靜態(tài)的網(wǎng)址：</span></td><td><input name="url" type="text" id="url" value="http://chabaoo.cn" />  
  <span class="STYLE1">例如http://chabaoo.cn 本機(jī)的文件 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 就是保存為和本文件同一目錄下的一個(gè)index.html</span></td> 
   </tr> 
   <tr> 
    <td><span class="STYLE2">轉(zhuǎn)靜態(tài)后需要跳轉(zhuǎn)到：</span></td> 
    <td> 
    <input name="reurl" type="text" id="reurl" value="index.htm" />  
    <span class="STYLE1">轉(zhuǎn)靜態(tài)完成后會(huì)有提示框然后確定后就轉(zhuǎn)到您填寫的頁(yè)面</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">本文件可以隨便改名不影響運(yùn)行</span>