ASP生成.html静态页面

<%
'spell原创
'需要设置的参数
----------------------------------
newsfloder="\tohtml" '存放新闻的上一级文件夹
strUrl="http://www.mudiao.com/zixun/newsshow.asp?newsid=320"'新闻来源
----------------------------------
dim objfso
set objfso=server.CreateObject("scripting.filesystemobject")
flodername=cstr(year(now)&month(now))'用年月创建文件夹
newspath=server.MapPath(newsfloder) '判断与创建文件夹
pathfloder=newspath&"\"&flodername
if objfso.FolderExists(server.MapPath(newsfloder&"\"&flodername)) then
else
objfso.CreateFolder(pathfloder)
end if

function getChkCode()'产生随机数
dim ranNum
randomize
ranNum=int(9000*rnd)+1000
getChkCode = ranNum
end function
ck=getChkCode

dim FileName,FilePath
FileName = cstr(year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now))&cstr(ck)&".html"
FilePath = pathfloder&"\"&FileName

dim objXmlHttp
set objXmlHttp = Server.createObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
set objXmlHttp=nothing
Dim objAdoStream
set objAdoStream = Server.createObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
set objAdoStream=nothing

set objfso=nothing
set aimfloder=nothing
response.Redirect(flodername&"/"&FileName)
%>

更多的ASP生成.html静态页面请到论坛查看: http://BBS.TC711.COM

【双击滚屏】【评论】【收藏】【打印】【关闭】来源：互联网日期：2006-12-2