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

转自这里：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>