静态页生成

<
%
url
= " 1shouye.asp " ' 源文件
filename = " index.html " ' 目标文件

Set MyFileObject = Server.CreateObject( " Scripting.FileSystemObject " )
path1
= server.mappath(filename)
Set MyTextFile = MyFileObject.CreateTextFile(path1)
strurl
= url
strTmp
= GetHTTPPage( trim (strurl))
MytextFile.Close
response.write
" <p> 生成 " & filename & " 成功 <br></p> "
Set MyFileObject = nothing

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

Function timetohtml(str)
timetohtml
= Replace ( Replace ( Replace (str, " : " , "" ), " - " , "" ), " " , "" ) & " .html "
End Function
%
>
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值