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

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

　　Function selectdo(a,d,b,c)

　　Response.write"<select name='"&a&"'><option>"&d&"</option>"

　　for i=b to c

　　if i<10 then

　　i="0"&i

　　end if

　　Response.write"<option>"&i&"</option>"

　　next

　　Response.write"</select>"

　　End Function

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