<% 
dim strUrl,Item_Classid,GetName,FileName,FilePath,Do_Url,Html_Temp 
Html_Temp="<UL>" 
For i=1 To 6
Html_Temp = Html_Temp&"<LI>" 
 select case i
case "1"
Item_Classid ="newbbs"
case "2"
Item_Classid ="hotbbs"
case "3"
Item_Classid ="show"
case "4"
Item_Classid ="boardnews1"
case "5"
Item_Classid ="hotbbs1"
case "6"
Item_Classid ="newbbs1"
case else
'其它
 end select 
FileName = "Index"&Item_Classid&".htm" 
FilePath =Server.MapPath("/")&"\chaotie\"&FileName
Html_Temp = Html_Temp&FileName&"</LI>" 
'Do_Url = "http://" 
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/www/2005/chaotie/Dv_News.asp" 
Do_Url = "http://www.chaotie.com/chaotie/DV_News.asp" 
Do_Url = Do_Url&"?GetName="&Item_Classid 
strUrl = Do_Url
dim objXmlHttp 
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 
objXmlHttp.open "GET",strUrl,false 
objXmlHttp.send() 
Dim binFileData 
binFileData = objXmlHttp.responseBody 
Dim objAdoStream 
set objAdoStream = Server.CreateObject("ADODB.Stream") 
objAdoStream.Type = 1 
objAdoStream.Open() 
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2 
objAdoStream.Close()
Next
Html_Temp = Html_Temp&"<UL>" 
Response.Write ( "刷新最新贴子成功,生成文件：" ) 
Response.Write ( "<BR>" ) 
Response.Write Html_Temp 
Response.Write ( "<a href='../'>返回主页</a>" ) 
%> 