欢迎来到站长教程网!
兔子CDN

ASP编程

当前位置:主页 > 网络编程 > ASP编程 >

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

时间:2020-09-16|栏目: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="https://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="https://www.jb51.net" /> 
  <span class="STYLE1">例如https://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() 构造器

栏    目:ASP编程

下一篇:ASP常用函数:ReplaceHTML

本文标题:将首页转成静态html页的asp文件

本文地址:www.dtcnnet.com/asp/31490.html

您可能感兴趣的文章

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:584415406 | 邮箱:584415406#qq.com(#换成@)

Copyright © 2015-2020 小白站长网 版权所有 苏ICP备20040415号