ASP读取远程页面生成静态页

最新推荐文章于 2025-03-15 09:58:44 发布

原创最新推荐文章于 2025-03-15 09:58:44 发布 · 652 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #function #url #fun

ASP.NET 同时被 2 个专栏收录

35 篇文章

订阅专栏

Others

11 篇文章

订阅专栏

本文介绍了一个使用ASP编写的脚本，该脚本能从指定URL获取网页内容，并将其保存到本地文件中。此外，还实现了简单的页面重定向功能。涉及到的技术包括HTTP请求处理、文件读写操作及字符编码转换。

<% Function CreateStatic(txtURL,FileName) '写入文件 sText = getHTTPPage(txtURL) Set FileObject=Server.CreateObject("Scripting.FileSystemObject") Set openFile=FileObject.OpenTextfile(server.mapPath(Filename),2,true) 'true为不存在自行建立 openFile.writeline(sText) Set OpenFile=nothing End Function Function BytesToBstr(body,Cset) '字符转换 dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") set http=nothing if err.number<>0 then err.Clear end function url = request("url") 'response.Write(url) fileName = request("fileName") gotourl = request("gotourl") Call CreateStatic("http://"&url,"/html/ZP/"&fileName & ".html") if gotourl <> "" then response.Write("<mce:script type="text/javascript"></mce:script>") response.Write("<br/><br/><table align=center><tr><td>操作成功,3秒后自动跳转...</td></tr></table>") response.End() end if %>