Homa Page di Daniele Franceschini

Funzione per creare un tag select HTML

• 
• 

Valutazione attuale:  / 1

ScarsoOttimo 

Dettagli

Categoria principale: Code Snippets

Pubblicato Giovedì, 12 Febbraio 2009 13:16

Visite: 1447

Questa funzione ASP si occupa di creare un tag select che permette di evitare inutili ripetizioni di codice qualora nella pagina fossero presenti molti elementi di questo tipo. La funzione da per scontato che il primo campo della selezione sia il valore che deve essere dato all'elemento della select.

function createSelect(tagName, dbTable, id_selected, fieldNameSelected, fieldShow, sEvents, sSize, 
bMultiselect,default_id, default_value, where)
	'tagName = Nome del tag usato anche come id_listino
	'dbTable = Nome della tabella o istruzione sql da interrogare
	'id_selected = Valore/valori dell'elemento che deve essere selezionato, 
	'nel caso di selezione multipla 
	'passare gi elementei in una stringa separata da virgole, es. "1,2,3"
	'fieldNameSelected = Nome del campo della tabella da confrontare per la 
	'selezione dell'elemento
	'fieldShow = Nome del campo della tabella da visualizzare nel tag select
	'sEvents = Contiene la stringa completa per la gestione degli eventi
	'sSize = Nel caso sia un campo a selezione multipla indica l'altezza che deve 
	'avere il Controllo
	'bMultiselect = Incica se il tag è a selezione multipla oppure no (true/false)
	'default_id = Specifica un id di default
	'default_value = Specifica un valore di default
	'where = Specifica la condizione per la selezione dei dati senza indicare 
	'la clausula where, ossia 
"campo = 1 and campo = 2 ..."
	dim rs, mySelect, mySelected, sMultiselect
	set rs = CreateObject("Adodb.Recordset")
	if CBool(bMultiselect) then sMultiselect = "MULTIPLE"
	if sSize  "" then sSize = "size = '" & sSize & "'"
	with rs
		.Open "select * from " & dbTable & " where " & where, mscs,adOpenKeyset,adLockReadOnly
		if not (.BOF and .EOF) then
			mySelect = ""
			if cstr(default_id)  "" then mySelect = mySelect & "" & default_value & ""
			id_selected = split(id_selected,",")
			if ubound(id_selected) > 1 then
				elements = ubound(id_selected)
			else
				elements = ubound(id_selected) + 1
			end if
		end if
		do until .EOF
			mySelected = ""
			for x = 0 to ubound(id_selected)
				if cstr(id_selected(x)) = cstr(rs(0)) then
					mySelected = "selected = 'selected'"
					exit for
				end if
			next
			mySelect = mySelect & "" & rs(fieldShow) & "" & vbNewLine
			.MoveNext
		loop
		if not (.BOF and .EOF) then mySelect = mySelect & ""
		set rs = nothing
	end with
	createSelect = mySelect
end function

• < Prec
• Succ >