对于ASP高手当然没什么用了，但是对于刚入门的初学者和美工就有些用处了。

Function selectdo(a,d,b,c)
  Response.write"select name='"a"'>option>"d"/option>"
  for i=b to c
    if i10 then
      i="0"i
    end if
  Response.write"option>"i"/option>"
  next
  Response.write"/select>"
End Function

在此基础上还可以扩展出更完整的SELECT表单。