''构造查询字段列表 ------------------------------------------
strTmp = ""
For i = 1 To iFieldCount - 1
strTmp = strTmp & sFieldNameArr(i) & ","
Next
strTmp = strTmp & sFieldNameArr(iFieldCount)
strSql = "Select Distinct " & strTmp & " From Ams." & sTableName & " " & sWhere
set rstTmp = Server.CreateObject("ADODB.RecordSet")
rstTmp.Open strSql,Session("OraAMSCnn")
Response.Write("<Script Language = ''Javascript''>" & vbCrLf)
''先清空selName中的所有Option -------------------------------------------
Response.Write("for (i = " & selName & ".options.length ; i >= 0 ; i --)" & vbCrLf)
Response.Write("{" & selName & ".options[i] = null ; }" & vbCrLf)
Response.Write("var optItem ;" & vbCrLf)
If bShowAll = 1 Then '' 表示要显示所有内容
Response.Write("optItem = document.createElement(''OPTION'') ; " & vbCrLf)
Response.Write("optItem.text = ''请选择...'' ; " & vbCrLf)
Response.Write("optItem.value = ''ALL'' ; " & vbCrLf)
Response.Write(selName & ".add(optItem);" & vbCrLf)
End if
If Not(rstTmp.Bof And rstTmp.Eof) Then
rstTmp.MoveFirst
iCount = 0
Do While Not rstTmp.Eof
Response.Write("optItem = document.createElement(''OPTION'') ; " & vbCrLf)
strTmp = ""
For i = 0 To iFieldCount - 1
strTmp = strTmp & AHshRFillStr(rstTmp.Fields(i)," ",iFieldLenArr(i + 1)) & ">"
Next
strTmp = Mid(strTmp,1,Len(strTmp) - 1)
Response.Write("optItem.text = ''" & strTmp & "'' ; " & vbCrLf)
Response.Write("optItem.value = ''" & strTmp & "'' ; " & vbCrLf)
Response.Write(selName & ".add(optItem);" & vbCrLf)
iCount = iCount + 1
rstTmp.MoveNext
Loop
End If
rstTmp.Close
set rstTmp = Nothing
If iCount > 0 Then
Response.Write(selName & ".selectindex = 1 ;" & vbCrLf)
End IF
AHshLoadSelData = iCount
Response.Write("</Script>" & vbCrLf)
End Function
无忧CMS,5ucms.org建站仿站首选!
上一篇:5ucms培训,动态生成select选项全接触 下一篇:5ucms插件,检查指定Text输入框的值是否是数值型数据 |
|
本站声明:本网站所载文章等内容,目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权及其它问题,请在30日内与本网联系(Email:3876307#qq.com),我们将在第一时间删除内容。若原创内容转载请注明出处。 5ucms仿站,将sTableName表中的sFieldNameArr数组字段数据根据条件sWhere加载到selName的关键词: |