Question

ASP 如何批量生成静态？

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 = request.QueryString("id")&".html"
FilePath = Server.MapPath("/")&"\"&FileName
Html_Temp = Html_Temp&FilePath&"</LI>"
Do_Url = "http://"
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/info.asp?id="&request.QueryString("id")&""
'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>"

Call alert_href("生成成功", "/info/"&request.QueryString("id")&".html")
这是单个可以生成的文件。。
如何能让他批量呢？ 就是数据库表 cms_info 字段有ID 就是根据ID来生成

当然不可能ID是1 2 3 4 5 可能会1 5 因为有些会删除嘛 谁可以帮我写下吗？

Answer 1

你现在写出来的代码就是一个alert_href（）函数吗？
如果是的话：打开数据库，读取cms_info表的所有信租槐息，然后写一个循环啊
while not rs.eof
调宏型高用alert_href（）
rs.movenext
wend
注意一下：先前的应该是传了个ID过来吧，不知道是如何传的，反正想办法把这个：
request.QueryString("id") 换成数据库里当蔽尺前记录的ID：rs("id")