将首页转成静态html页的asp文件
程序员文章站
2024-02-09 08:15:46
此程序只能将首页转成静态!(真对一个页面) 将createhtml.asp文件上传到 你的空间存放首页文件(index.asp)的目录下录入网址直接打开creat...
此程序只能将首页转成静态!(真对一个页面)
将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.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="//www.jb51.net" />
<span class="style1">例如//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="//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="//www.jb51.net" />
<span class="style1">例如//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>
推荐阅读
-
将首页转成静态html页的asp文件
-
asp.net html静态文件没有触发global.asax中的Application_BeginRequest事件的解决方法
-
python 自动化将markdown文件转成html文件的方法
-
python 自动化将markdown文件转成html文件的方法
-
将首页转成静态html页的asp文件
-
将HTML或txt文件转换为ASP输出的vbs代码
-
不用模板只用ASP+FSO生成静态HTML页的一个方法
-
不用模板,只用ASP+FSO生成静态HTML页的一个方法
-
ASP生成静态文件编码为UTF-8格式的HTML文件
-
将RTF格式的文件转成HTML并在网页中显示的代码