请选择 进入手机版 | 继续访问电脑版

站长赚钱网赚钱论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 29|回复: 0

[仿站论坛] asp单页生成静态页

[复制链接]

715

主题

1411

帖子

4211

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
4211
发表于 2018-11-12 11:20:37 | 显示全部楼层 |阅读模式
asp单页生成静态页
今天在网上找了好久关于ASP生成静态页的代码  最多的就是 FSO方法,模板方法,但不知道,我把代码拿来之后都不好用,就是提供下载的压缩包里面写好的我运行都是有错误。。
不过黄天不负有心人,我终于找到一个单页生成静态的方法,拿出来给大家分享
<!-- ======================== 生成静态方法 ====================== -->
<%
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=" /index.asp"'要读取的页面地址
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.html")
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 "更新完成!"
response.End()
%>
保存为asp就行,需要生成,执行一下这个文件!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|站长赚钱网赚钱论坛 ( 皖ICP备13004459号 )

GMT+8, 2018-12-11 08:46 , Processed in 0.140787 second(s), 22 queries .

Powered by 站长赚钱网 X3.4

© 2001-2017 中国免费的网上赚钱平台

快速回复 返回顶部 返回列表