如何生成静态页代码[本站推荐]
来源:
互联网
日期:2008-3-13
<% '================================================== 'HTML采集信息函数 '================================================== On Error Resume Next '忽略掉所有非致命性错误 Server.Scripttimeout=999 '设置运行超时 Function Gethttppage(Path) T = Getbody(Path) Gethttppage=Bytestobstr(T,"Gb2312") End Function Function Getbody(Url) '然后调用xmlhttp组件创建一个对象并进行初始化设置。 On Error Resume Next Set Retrieval = Createobject("Microsoft.Xmlhttp") Retrieval.Open "Get", Url, False, "", "" Retrieval.Send Getbody = Retrieval.Responsebody Set Retrieval = Nothing End Function Function BytesToBstr(body,Cset) '默认的utf-8编码转换成gb2312编码 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 pageurl="http://www.tc711.com/2006" '这个自己修改即可 url=pageurl &"/index.asp" '动态页地址 pageurls="index.html" '生成的静态页地址 pageurlss=server.MapPath(pageurls) set fso= Server.CreateObject("Scripting.FileSystemObject") set pagefile=fso.CreateTextFile(pageurlss,true) page=Gethttppage(url) 'response.Write page pagefile.WriteLine page pagefile.close response.Write("----生成成功!!<a href="&pageurls&">返回查看</a>") %>
更多的如何生成静态页代码[本站推荐]请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源:
互联网
日期:2008-3-13
|
|
|