<%
　　dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
　　Html_Temp="<UL>"
　　For i=1 To 3
　　Html_Temp = Html_Temp&"<LI>"
　　Item_Classid = i
　　FileName = "Index"&Item_Classid&".htm"
　　FilePath = Server.MapPath("/")&"\"&FileName
　　Html_Temp = Html_Temp&FilePath&"</LI>"
　　Do_Url = 你的网站地址
　　Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/main/index.asp"
　　Do_Url = Do_Url&"?Item_Classid="&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
　　%>