按ID批量生成htm的问题

[众联财务]

mb.asp?id=1 2 3 4 5 .......500

现在我要求生成 mb.asp?id=50~80中间的30个怎么写

[不耐烦]

sql="select * from img where id between 50 and 80"

[众联财务]

现在我要求生成html
id.htm
mb.asp?id=50~80中间的30个

[hookee]

这样？

For i=50 To 80
  url = "mb.asp?id=" & i
  filename = i & ".htm"
  gen url, filename
Next

[众联财务]

gen url 什么意思

[众联财务]

现在生成的是这样的
''''''''''''''''''生成html开始''''''''''''''''''''''''''
ServerURL=CStr(Request.ServerVariables("SCRIPT_NAME"))
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
ServerURL=left(ServerURL, n-1)'显示从左边数第"n-1"个字符前面的字符,
n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
ServerURL=left(ServerURL, n)'显示从左边数第"n"个字符前面的字符,
ServerURL="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURL&"mb.asp?id="&id&""

Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.CreateMHTMLBody ServerURL,31
AA=Mail1.HTMLBody
Set Mail1 = Nothing
set objfso = Server.CreateObject("Scripting.FileSystemObject")
set htmout = objfso.CreateTextFile(server.mappath("../html/"&id&".htm"))
htmout.write replace(AA,"html/images/","images/")
htmout.close
set htmout=nothing
set objfso=nothing
''''''''''''''''''生成html结束''''''''''''''''''''''''''