combo.vbs

来自「ASPSQL企业网络管理系统」· VBS 代码 · 共 29 行

' VB Script Document
function Combo(Name,oConn,sql,Selected,Disabled,Onchange,Style)
	dim rstmptmp
	set rstmp = Server.CreateObject("ADODB.RECORDSET")
	rstmp.Open Sql,oConn 
	Response.Write("<select id=""sel_" & Name & """ name=""" & Name & """")
	if Disabled = "true" then
		Response.Write(" disabled")
	end if
	if OnChange <> "" then
		Response.Write(" onchange = """ & OnChange & """")
	end if
	if style <> "" then
		Response.Write(" style = """ & style & """")
	end if
	Response.Write(">" & chr(10))
	while not rstmp.EOF
		if rstmp(0) = Selected then
			Response.Write("<option value=""" & rstmp(0) & """ selected>" & rstmp(1) & "</option>" & chr(10))
		else
			Response.Write("<option value=""" & rstmp(0) & """>" & rstmp(1) & "</option>" & chr(10))
		end if
		rstmp.MoveNext
	wend
	Response.Write("</select>" & chr(10))
	rstmp.Close
	set rstmp=nothing
	Combo = true
end function