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

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

1. Function selectdo(a,d,b,c) 
2.   Response.write"<select name='"&a&"'><option>"&d&"</option>" 
3.   for i=b to c 
4.     if i<10 then 
5.       i="0"&i 
6.     end if 
7.   Response.write"<option>"&i&"</option>" 
8.   next 
9.   Response.write"</select>" 
10. End Function 

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