静态 !(真对一个页面) 将createhtml.asp文件上传到你的空间存放首页文件(index.asp)的目录下 录入网址直接打开createhtml.asp接提示操作就可以了 如果没有转成功可将createhtml.asp更名试一下(如:改成z.asp)录入网" />
服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - 将首页转成静态html页的asp文件

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

2019-10-23 12:17asp技术网 ASP教程

此程序只能将首页转成html">静态 !(真对一个页面) 将createhtml.asp文件上传到你的空间存放首页文件(index.asp)的目录下 录入网址直接打开createhtml.asp接提示操作就可以了 如果没有转成功可将createhtml.asp更名试一下(如:改成z.asp)录入网

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

将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="//www.zzvips.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='"&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="//www.zzvips.com" />  
  <span class="STYLE1">例如//www.zzvips.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>

延伸 · 阅读

精彩推荐