一个标准动态下拉列表函数

转自这里：http://topic.csdn.net/t/20060820/18/4962708.html

<%   '动态标准下拉列表函数   'Table 要查询的表名(必正确)   'ValueField 用于option的value字段名(必正确)，可与TextField相同   'TextField 用于option显示文本的字段名(必正确)，可与ValueField相同   'OrderStr 查询排序(可为0字符窜)   'whereStr 查询条件(可为0字符窜)   'CurrVlaue 当前可传的值(可为0字符窜)   '默认数据库连接对象为conn   Function getStandardSelect(Table, ValueField, TextField, WhereStr, OrderStr, CurrValue)   Dim gssSql, gssRs, gssStr, gssSlted, newValue   If len(Table) = 0 or len(ValueField) = 0 or len(TextField) = 0 Then   getStandardSelect="<option>参数不完整</option>"   Exit Function   End If   If len(CurrValue&"") = 0 Then currValue = ""   gssSql = "SELECT "&ValueField&", "&TextField&" FROM "&Table&" "   if len(whereStr&"")>=1 Then   gssSql = gssSql&"where "&whereStr&""   end if   If len(OrderStr) >= 1 Then   gssSql = gssSql&"ORDER BY "&OrderStr&""   End If   gssStr = ""   call OpenConn(dbConnStr)   set gssRs = dbconn.execute(gssSql)   If gssRs.Eof Then     gssStr = "<option value="""">无项目</option>"   Else   Do While Not gssRs.eof   gssSlted = ""   newValue = gssRs(ValueField)   If len(newValue&"") = 0 Then newValue = ""   If Cstr(Trim(CurrValue)) = Cstr(Trim(newValue)) Then gssSlted = " selected"   gssStr = gssStr&"<option value="""&Trim(gssRs(ValueField))&""""&gssSlted&">"&Trim(gssRs(TextField))&"</option>"&vbCrLf   If gssRs.Eof Then Exit Do   gssRs.MoveNext     Loop   End If   gssRs.close   set gssRs = nothing   getStandardSelect = gssStr   End Function   %>     <select name="">   <option>请选择</option>   <%=getStandardSelect(Table, ValueField, TextField, WhereStr, OrderStr, CurrValue)%>   </select>