對于asp高手當(dāng)然沒什么用了，但是對于剛?cè)腴T的初學(xué)者和美工就有些用處了。

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

在此基礎(chǔ)上還可以擴(kuò)展出更完整的SELECT表單。