ASP写的自动生成SELECT表单的函数

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

Function selectdo(a,d,b,c)
Response.write"

1<select name='"&amp;a&amp;"'><option>"&amp;d&amp;"</option>"   
2for i=b to c   
3if i&lt;10 then   
4i="0"&amp;i   
5end if   
6Response.write"<option>"&amp;i&amp;"</option>"   
7next   
8Response.write"</select>

"
End Function

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