此程序只能将首页转成静态!(真对一个页面) 将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>
推荐阅读
javascript asp教程第三课 new String() 构造器
开始:new String() 是本课程计划中较早出现的另一个让人感觉到奇怪的地方。但和转义字符一样, new String()是创建一个成功的asp javascript应用的必须元素。下面是本课的两个脚本:下面是实际上承担重量的脚本:>>>详细阅读
本文标题:将首页转成静态html页的asp文件
地址:http://www.17bianji.com/kaifa2/ASP/32708.html
1/2 1