<%
'动态标准下拉列表函数
'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>