将asp重写url(html)页面
来源:互联网 发布:自动采集视频网站源码 编辑:程序博客网 时间:2024/04/29 10:05
<%
Function GetPage(url)
'获得文件内容
dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False ', "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
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 = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
on error resume next
Url="http://www.sina.com.cn"'要读取的页面地址
response.write "开始更新首页..."
wstr = GetPage(Url)
'response.write(wstr)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'if not MyFile.FolderExists(server.MapPath("/html/")) then
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
'要存放的页面地址
dizhi=server.MapPath("index.htm")
If (fs.FileExists(dizhi)) Then
fs.DeleteFile(dizhi)
End If
Set CrFi=fs.CreateTextFile(dizhi)
Crfi.Writeline(wstr)
set CrFi=nothing
set fs=nothing
response.write "...<font color=red>更新完成!</font>"
%>
代码算是最简单的,直接保存成一个asp文件即可,只要把URL(要转化的asp地址)和dizhi(要保存的html地址)设置好就可以了,一般这两个文件在同一个目录,才能保证图片或者CSS、js起作用。
- 将asp重写url(html)页面
- asp.net 页面url重写
- ASP.NET中Url重写后,打不开真正的Html页面
- 将asp页面转换成html页面
- ASP.NET页面静态化之URL重写 (转)
- ASP.net 静态化页面之的URL重写
- ASP.net 静态化页面之的URL重写
- asp.net mvc web url 伪静态页面重写技术
- Asp.Net Url重写页面中Session无效
- ASP URL重写
- ASP.NET URL重写
- ASP.NET URL重写
- URL 重写(Asp.Net)
- asp.net url重写
- asp.net url重写
- url重写 asp.net
- asp.net url重写
- ASP.NET重写URL
- FreeBSD 最小化安装 +diablo-jdk +Apache 与 Tomcat 整合 !
- VC_XML
- 项目干系人分析的“四步法”
- 让 VMWare Workstation 5.5.3 能够在 Ubuntu 7.04 (Feisty Fawn)中正常运行!
- CreateEvent的用法
- 将asp重写url(html)页面
- 想当然和偏执狂都要不得!握其法而又能知其度,善莫大焉!
- 对UNIX/Linux风格的顿悟!
- web.config信息及RSA加密方式
- 今天遇到 Could not determine type for: java.util.List
- 用Linux搞定了Windows中无法使用也无法修复的MP3!
- Expression Web 中文版
- Swiftfox:“告诉我你的CPU类型,我给你最优化的Firefox!”
- Linux中通过缓存DNS的解析来提高上网的响应速度!