24/09/2008 Development / asp3

Segue um exemplo de como chamar desenvolver uma classe para gerar uma combo. Esse exemplo também pode ser aplicado em uma dll, assim basta somente invocar a dll passando os parametros e atributos.

<%
Class FHCombo
 
 Private oAttributes
 Private sQuery
 
 Private Sub Class_Initialize()
  Set oAttributes = Server.CreateObject("Scripting.Dictionary")
 End Sub 

 Public Property Let setAttribute( attributeName, attributeValue )
  oAttributes.Add attributeName, attributeValue
 End Property
 

 Public Property Let SQL( query )
  sQuery = query
 End Property


 Public Sub Create
  
  response.write "<select"
  
  For Each sKey In oAttributes
   Response.Write Space(1) & sKey & "="""& oAttributes(sKey) &""""
  Next
  response.Write ">" & vbCrLf
  
  response.write "<option>" & sQuery & "</option>"
  
  response.write "</select>"
  
 End Sub

End Class


Set cb = new FHCombo
cb.setAttribute("class") = "cssCombo"
cb.setAttribute("onchange") = "alerta()"
cb.SQL = "Select * from dados"
cb.Create
%>