原理:用asp获取动态页面的html代码后,再将这些html代码写成html代码。
- <%
- Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
- path=server.mappath("index.html")
- If Myfileobject.fileexists(path) Then '如果存在此文件,删除之
- MyfileObject.deletefile path
- End If
- Set MyTextFile=MyFileObject.CreateTextFile(path)
- strurl="http://www.sina.com.cn/" '这里可以换成其他动态页面的地址。
- strTmp = GetHTTPPage(trim(strurl))
- MyTextFile.WriteLine(strTmp)
- MytextFile.Close
- response.write "完成任务"
- %>
- <%
- Function getHTTPPage(url)
- On Error Resume Next
- dim http
- set http=Server.createobject("Microsoft.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
- Response.Write "<p align='center'><font color='red'><b>服务器获取文件内容出错</b></font></p>"
- Err.Clear
- End If
- 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
- %>
文章点评