无为清净楼资源网 Design By www.qnjia.com
此程序只能将首页转成静态!(真对一个页面)
将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>
将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>
无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com
暂无评论...
更新日志
2024年09月20日
2024年09月20日
- [电影原声带]黎允文《天将雄师》[FLAC+CUE]
- 曝NS继任机型已进入量产阶段:已花了30亿日元
- 不是Switch2?曝《马里奥惊奇》NS捆绑包即将公开
- 暖心任天堂!网友Switch维修返还时贴纸被完好保留
- 《国语老歌 经典对唱情歌 2CD》[WAV/分轨][1.1GB]
- 《刀郎 翻唱精选华语专辑 披着羊皮的狼 》[WAV+CUE][430MB]
- 《真的田震 中国乐坛红极一时的歌者 精品集》[WAV+CUE][300MB]
- 群星.1995-新滚石九大天王之情歌大全【滚石】【WAV+CUE】
- 群星.1993-滚石九大天王十二出好戏·纵夏欢唱【滚石】【WAV+CUE】
- 群星.1993-滚石九大天王十二出好戏·贺岁齐唱【滚石】【WAV+CUE】
- 黑神话悟空上品虫校尉精魄获取方法一览|上品虫校尉精魄收集攻略
- 《指环王:夏尔的传说》推迟至2025年初发行
- 黑神话悟空上品蝎太子精魄获取方法一览|上品蝎太子精魄收集攻略
- 银霞.1977-《台北66电影原声带》台湾复刻版[WAV+CUE]
- 银霞.1980-《你那好冷的小手》台湾珍藏纪念版[WAV+CUE]