将指定的asp文件内容生成HTML文件

[复制链接]

人杰地灵

电梯直达

1^#

发表于 2009-3-16 17:59:48 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%Function GetPage(url) dim RetrievalSet 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 objstreamset objstream = Server.CreateObject("adodb.stream")objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = "GB2312"BytesToBstr = objstream.ReadText objstream.Closeset objstream = nothingEnd Functionon error resume nextUrl="http://www.taiang.com.cn/index.asp"response.write "开始更新首页..."wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'if not MyFile.FolderExists(server.MapPath("/html/")) then 'MyFile.CreateFolder(server.MapPath("/html/"))''end if
If (fs.FileExists(server.MapPath("./")&"\index.htm")) Thenfs.DeleteFile(server.MapPath("./")&"\index.htm")End If

Set CrFi=fs.CreateTextFile(server.MapPath("./")&"\index.htm")Crfi.Writeline(wstr)set CrFi=nothingset fs=nothingresponse.write "...<font color=red>更新完成！</font>"%>

收藏0

使用道具举报

返回列表

GMT+8, 2024-11-19 14:41 , Processed in 0.099624 second(s), 8 queries , Gzip On, Memcache On.

		自动登录	找回密码
密码			注册