您现在的位置是：网站首页> 编程资料编程资料
将首页转成静态html页的asp文件_应用技巧_
2023-05-25
237人已围观
简介 将首页转成静态html页的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 ""
response.write "alert('发布成功');"
response.write "location.href='"&reurl&"';"
response.write ""
else
%>
?action=ok">
<%end if%>
本文件可以随便改名不影响运行
将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 "
response.write "alert('发布成功');"
response.write "location.href='"&reurl&"';"
response.write ""
else
%>
<%end if%>
您可能感兴趣的文章:
