將首頁轉成靜態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="http://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 "<script language='javascript'>"
response.write "alert('發布成功');"
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">要轉靜態網址：</span></td><td><input name="url" type="text" id="url" value="http://www.jb51.net" />
<span class="STYLE1">例如http://www.jb51.net 原生檔案 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>