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

最新推荐文章于 2022-04-07 13:52:14 发布

原创最新推荐文章于 2022-04-07 13:52:14 发布 · 1.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #html #function #url

WEB开发专栏收录该内容

30 篇文章

订阅专栏

博客展示了用ASP实现网页内容抓取与更新的代码。定义了GetPage和BytesToBstr两个函数，前者用于获取指定URL页面内容，后者用于处理字节数据。代码从指定URL抓取内容，删除原有的index.htm文件，再将新内容写入新的index.htm文件。

<%
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.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")) Then
fs.DeleteFile(server.MapPath("./")&"/index.htm")
End If

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