网络编程
位置:首页>> 网络编程>> Asp编程>> 利用XMLHTTP批量生成静态页的函数

利用XMLHTTP批量生成静态页的函数

作者:亮亮 来源:亮亮blog 发布时间:2008-09-10 11:07:00 

标签:xmlhttp,函数,静态

生成静态页的方法有很多种,我比较喜欢用xmlhttp的方法生成,因为我不用考虑很多东西,我只要把动态的asp页面编写好就行了。

<%
sub asp2html(aspFile,para,bId,eId,htmFile)
'aspFile 要转换的asp文件,可以如common/full.asp
'para asp文件后的参数,比如full.asp?wId=6,则para为wId
'bId 开始的id
'eId 结束的id
'htmFile 生成的静态页(html页) 的文件的前面部分,次函数将生成htmfile+id.htm形式的静态页,可以如common/htmlfile
dim Item_id,id,FileName,FilePath,asp_Url
For i=bId To eId 
Item_id = i 
if i=0 then
FileName = htmFile&".htm"
else 
FileName = htmFile&Item_id&".htm"
end if
FilePath = Server.MapPath(FileName) 
asp_Url = "http://" 
asp_Url = asp_Url&Request.Servervariables("SERVER_NAME")&"/"&Aspfile 
asp_Url = asp_Url&"?"&para;&"="&Item_id 
dim objXmlHttp 
set objXmlHttp = Server.CreateObject("Microsoft. XMLHTTP") 
objXmlHttp.open "GET",asp_Url,false 
objXmlHttp.send() 
Dim backData 
backData = objXmlHttp.responseBody 
Dim objAdoStream 
set objAdoStream = Server.CreateObject("ADODB.Stream") 
objAdoStream.Type = 1 
objAdoStream.Open() 
objAdoStream.Write(backData) 
objAdoStream.SaveToFile FilePath,2 
objAdoStream.Close()
response.Write(FileName&"生成成功")
response.Flush()
Next 
end sub
%>


 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com