Class em ASP

[hostrl 0]

Queria saber se é possivel criar uma class em ASP?

Se sim poderiam me dar um exmeplo prático e chamando ela?

vlw gente!

[hargon 64]

Muita coisa tem pronta aqui no Fórum, basta pesquisar antes de criar um tópico.

 

Veja dois exemplos de Classe utilizando ASP.

 

http://forum.imasters.com.br/index.php?showtopic=296540

http://forum.imasters.com.br/index.php?showtopic=284527

 

Qualquer dúvida poste aqui.

[xanburzum 169]

Este é um exemplo simples de uma classe VBScript, que irá retornar o nome completo de um estado ou um país, dada a sua abreviatura de duas letras. Isso é realmente útil com seleccionar as caixas de formulários e formatação de resultados a partir de bases de dados.

 

<%
Option Explicit

Class cConvert
  Public Function sStateName( sSName )
	Select Case LCase( sSName )
	  Case "SP"
		sStateName = "São Paulo"
	  Case "MG"
		sStateName = "Minas Gerias"
	  Case "RJ"
		sStateName = "Rio de Janeiro"
	  Case "RS"
	   sStateName = "Rio Grande do Sul"
	  Case Else
		sStateName = "Outro"
	End Select
  End Function

  Public Function sCountryName( sCName )
	Select Case LCase( sCName )
	  Case "al"
		  sCountryName = "Albania"
	  Case "dz"
		  sCountryName = "Algeria"
	  Case "as"
		  sCountryName = "American Samoa"
	  Case "ad"
		  sCountryName = "Andorra"
	  Case "ai"
		  sCountryName = "Anguilla"
	  Case "aq"
		  sCountryName = "Antartica"
	  Case "ag"
		  sCountryName = "Antigua and Barbuda"
	  Case "ar"
		  sCountryName = "Argentina"
	  Case "am"
		  sCountryName = "Armenia"
	  Case "aw"
		  sCountryName = "Aruba"
	  Case "au"
		  sCountryName = "Australia"
	  Case "at"
		  sCountryName = "Austria"
	  Case "az"
		  sCountryName = "Azerbaijan"
	  Case "bs"
		  sCountryName = "Bahamas"
	  Case "bh"
		  sCountryName = "Bahrain"
	  Case "bd"
		  sCountryName = "Bangladesh"
	  Case "bb"
		  sCountryName = "Barbados"
	  Case "by"
		  sCountryName = "Belarus"
	  Case "be"
		  sCountryName = "Belgium"
	  Case "bz"
		  sCountryName = "Belize"
	  Case "bj"
		  sCountryName = "Benin"
	  Case "bm"
		  sCountryName = "Bermuda"
	  Case "bt"
		  sCountryName = "Bhutan"
	  Case "bo"
		  sCountryName = "Bolivia"
	  Case "bw"
		  sCountryName = "Botswana"
	  Case "bv"
		  sCountryName = "Bouvet Island"
	  Case "br"
		  sCountryName = "Brazil"
	  Case "io"
		  sCountryName = "British Indian Ocean Terr."
	  Case "bn"
		  sCountryName = "Brunei Darussalam"
	  Case "bg"
		  sCountryName = "Bulgaria"
	  Case "bf"
		  sCountryName = "Burkina Faso"
	  Case "bi"
		  sCountryName = "Burundi"
	  Case "kh"
		  sCountryName = "Cambodia"
	  Case "cm"
		  sCountryName = "Cameroon"
	  Case "ca"
		  sCountryName = "Canada"
	  Case "cv"
		  sCountryName = "Cape Verde"
	  Case "ky"
		  sCountryName = "Cayman Islands"
	  Case "cf"
		  sCountryName = "Central African Republic"
	  Case "td"
		  sCountryName = "Chad"
	  Case "cl"
		  sCountryName = "Chile"
	  Case "cn"
		  sCountryName = "China"
	  Case "cx"
		  sCountryName = "Christmas Island"
	  Case "cc"
		  sCountryName = "Cocos (Keeling) Isl"
	  Case "co"
		  sCountryName = "Colombia"
	  Case "km"
		  sCountryName = "Comoros"
	  Case "cg"
		  sCountryName = "Congo"
	  Case "ck"
		  sCountryName = "Cook Isl"
	  Case "cr"
		  sCountryName = "Costa Rica"
	  Case "ci"
		  sCountryName = "Cote D'Ivoire"
	  Case "hr"
		  sCountryName = "Croatia"
	  Case "cy"
		  sCountryName = "Cyprus"
	  Case "cz"
		  sCountryName = "Czech Republic"
	  Case "dk"
		  sCountryName = "Denmark"
	  Case "dj"
		  sCountryName = "Djibouti"
	  Case "dm"
		  sCountryName = "Dominica"
	  Case "do"
		  sCountryName = "Dominican Republic"
	  Case "tp"
		  sCountryName = "East Timor"
	  Case "ec"
		  sCountryName = "Ecuador"
	  Case "eg"
		  sCountryName = "Egypt"
	  Case "sv"
		  sCountryName = "El Salvador"
	  Case "gq"
		  sCountryName = "Equatorial Guinea"
	  Case "ee"
		  sCountryName = "Estonia"
	  Case "et"
		  sCountryName = "Ethiopia"
	  Case "fo"
		  sCountryName = "Faeroe Islands"
	  Case "fk"
		  sCountryName = "Falkland Isl. (Malvinas)"
	  Case "fj"
		  sCountryName = "Fiji"
	  Case "fi"
		  sCountryName = "Finland"
	  Case "fr"
		  sCountryName = "France"
	  Case "gf"
		  sCountryName = "French Guiana"
	  Case "pf"
		  sCountryName = "French Polynesia"
	  Case "tf"
		  sCountryName = "French Southern Terr."
	  Case "ga"
		  sCountryName = "Gabon"
	  Case "gm"
		  sCountryName = "Gambia"
	  Case "ge"
		  sCountryName = "Georgia"
	  Case "de"
		  sCountryName = "Germany"
	  Case "gh"
		  sCountryName = "Ghana"
	  Case "gi"
		  sCountryName = "Gibraltar"
	  Case "gr"
		  sCountryName = "Greece"
	  Case "gl"
		  sCountryName = "Greenland"
	  Case "gd"
		  sCountryName = "Grenada"
	  Case "gp"
		  sCountryName = "Guadeloupe"
	  Case "gu"
		  sCountryName = "Guam"
	  Case "gt"
		  sCountryName = "Guatemala"
	  Case "gg"
		  sCountryName = "Guernsey, C.I."
	  Case "gn"
		  sCountryName = "Guinea"
	  Case "gw"
		  sCountryName = "Guinea-Bissau"
	  Case "gy"
		  sCountryName = "Guyana"
	  Case "ht"
		  sCountryName = "Haiti"
	  Case "hm"
		  sCountryName = "Heard and McDonald Isl"
	  Case "hn"
		  sCountryName = "Honduras"
	  Case "hk"
		  sCountryName = "Hong Kong"
	  Case "hu"
		  sCountryName = "Hungary"
	  Case "is"
		  sCountryName = "Iceland"
	  Case "in"
		  sCountryName = "India"
	  Case "id"
		  sCountryName = "Indonesia"
	  Case "ie"
		  sCountryName = "Ireland"
	  Case "im"
		  sCountryName = "Isle of Man"
	  Case "il"
		  sCountryName = "Israel"
	  Case "it"
		  sCountryName = "Italy"
	  Case "jm"
		  sCountryName = "Jamaica"
	  Case "jp"
		  sCountryName = "Japan"
	  Case "je"
		  sCountryName = "Jersey, C.I."
	  Case "jo"
		  sCountryName = "Jordan"
	  Case "kz"
		  sCountryName = "Kazakhstan"
	  Case "ke"
		  sCountryName = "Kenya"
	  Case "ki"
		  sCountryName = "Kiribati"
	  Case "kr"
		  sCountryName = "Korea, Republic of"
	  Case "kw"
		  sCountryName = "Kuwait"
	  Case "kg"
		  sCountryName = "Kyrgyzstan"
	  Case "la"
		  sCountryName = "Laos"
	  Case "lv"
		  sCountryName = "Latvia"
	  Case "lb"
		  sCountryName = "Lebanon"
	  Case "ls"
		  sCountryName = "Lesotho"
	  Case "lr"
		  sCountryName = "Liberia"
	  Case "li"
		  sCountryName = "Liechtenstein"
	  Case "lt"
		  sCountryName = "Lithuania"
	  Case "lu"
		  sCountryName = "Luxemborg"
	  Case "mo"
		  sCountryName = "Macau"
	  Case "mg"
		  sCountryName = "Madagascar"
	  Case "mw"
		  sCountryName = "Malawi"
	  Case "my"
		  sCountryName = "Malaysia"
	  Case "mv"
		  sCountryName = "Maldives"
	  Case "ml"
		  sCountryName = "Mali"
	  Case "mt"
		  sCountryName = "Malta"
	  Case "mh"
		  sCountryName = "Marshall Isl"
	  Case "mq"
		  sCountryName = "Martinique"
	  Case "mr"
		  sCountryName = "Mauritania"
	  Case "mu"
		  sCountryName = "Mauritius"
	  Case "mx"
		  sCountryName = "Mexico"
	  Case "fm"
		  sCountryName = "Micronesia"
	  Case "md"
		  sCountryName = "Moldova, Republic of"
	  Case "mc"
		  sCountryName = "Monaco"
	  Case "mn"
		  sCountryName = "Mongolia"
	  Case "ms"
		  sCountryName = "Montserrat"
	  Case "ma"
		  sCountryName = "Morocco"
	  Case "mz"
		  sCountryName = "Mozambique"
	  Case "mm"
		  sCountryName = "Myanmar"
	  Case "na"
		  sCountryName = "Namibia"
	  Case "nr"
		  sCountryName = "Nauru"
	  Case "np"
		  sCountryName = "Nepal"
	  Case "an"
		  sCountryName = "Netherland Antilles"
	  Case "nl"
		  sCountryName = "Netherlands"
	  Case "nc"
		  sCountryName = "New Caledonia"
	  Case "nz"
		  sCountryName = "New Zealand"
	  Case "ni"
		  sCountryName = "Nicaragua"
	  Case "ne"
		  sCountryName = "Niger"
	  Case "ng"
		  sCountryName = "Nigeria"
	  Case "nu"
		  sCountryName = "Niue"
	  Case "nf"
		  sCountryName = "Norfolk Isl"
	  Case "mp"
		  sCountryName = "Northern Mariana Isl"
	  Case "no"
		  sCountryName = "Norway"
	  Case "om"
		  sCountryName = "Oman"
	  Case "pk"
		  sCountryName = "Pakistan"
	  Case "pw"
		  sCountryName = "Palau"
	  Case "pa"
		  sCountryName = "Panama"
	  Case "pz"
		  sCountryName = "Panama Canal Zone"
	  Case "pg"
		  sCountryName = "Papua New Guinea"
	  Case "py"
		  sCountryName = "Paraguay"
	  Case "pe"
		  sCountryName = "Peru"
	  Case "ph"
		  sCountryName = "Philippines"
	  Case "pn"
		  sCountryName = "Pitcairn"
	  Case "pl"
		  sCountryName = "Poland"
	  Case "pt"
		  sCountryName = "Portugal"
	  Case "pr"
		  sCountryName = "Puerto Rico"
	  Case "qa"
		  sCountryName = "Qatar"
	  Case "re"
		  sCountryName = "Reunion"
	  Case "ro"
		  sCountryName = "Romania"
	  Case "ru"
		  sCountryName = "Russian Federation"
	  Case "rw"
		  sCountryName = "Rwanda"
	  Case "kn"
		  sCountryName = "Saint Kitts and Nevis"
	  Case "lc"
		  sCountryName = "Saint Lucia"
	  Case "ws"
		  sCountryName = "Samoa"
	  Case "sm"
		  sCountryName = "San Marino"
	  Case "st"
		  sCountryName = "Sao Tome and Principe"
	  Case "sa"
		  sCountryName = "Saudi Arabia"
	  Case "sn"
		  sCountryName = "Senegal"
	  Case "sc"
		  sCountryName = "Seychelles"
	  Case "sl"
		  sCountryName = "Sierra Leone"
	  Case "sg"
		  sCountryName = "Singapore"
	  Case "sk"
		  sCountryName = "Slovakia"
	  Case "si"
		  sCountryName = "Slovenia"
	  Case "sb"
		  sCountryName = "Solomon Islands"
	  Case "so"
		  sCountryName = "Somalia"
	  Case "za"
		  sCountryName = "South Africa"
	  Case "es"
		  sCountryName = "Spain"
	  Case "lk"
		  sCountryName = "Sri Lanka"
	  Case "sh"
		  sCountryName = "St. Helena"
	  Case "pm"
		  sCountryName = "St. Pierre and Miquelon"
	  Case "você"
		  sCountryName = "St. Vincent and Grenadines"
	  Case "sr"
		  sCountryName = "Suriname"
	  Case "sj"
		  sCountryName = "Svalbard and Jan Mayen Isl"
	  Case "sz"
		  sCountryName = "Swaziland"
	  Case "se"
		  sCountryName = "Sweden"
	  Case "ch"
		  sCountryName = "Switzerland"
	  Case "tw"
		  sCountryName = "Taiwan"
	  Case "tj"
		  sCountryName = "Tajikistan"
	  Case "tz"
		  sCountryName = "Tanzania, United Republic "
	  Case "th"
		  sCountryName = "Thailand"
	  Case "tg"
		  sCountryName = "Togo"
	  Case "tk"
		  sCountryName = "Tokelau"
	  Case "to"
		  sCountryName = "Tonga"
	  Case "tt"
		  sCountryName = "Trinidad and Tobago"
	  Case "tn"
		  sCountryName = "Tunisia"
	  Case "tr"
		  sCountryName = "Turkey"
	  Case "tm"
		  sCountryName = "Turkmenistan"
	  Case "tc"
		  sCountryName = "Turks and Caicos Isl"
	  Case "tv"
		  sCountryName = "Tuvalu"
	  Case "ae"
		  sCountryName = "U.A.E."
	  Case "um"
		  sCountryName = "U.S.Minor Outlying Isl"
	  Case "ug"
		  sCountryName = "Uganda"
	  Case "ua"
		  sCountryName = "Ukraine"
	  Case "gb"
		  sCountryName = "United Kingdom"
	  Case "us"
		  sCountryName = "United States"
	  Case "uy"
		  sCountryName = "Uruguay"
	  Case "uz"
		  sCountryName = "Uzbekistan"
	  Case "vu"
		  sCountryName = "Vanuatu"
	  Case "va"
		  sCountryName = "Vatican City State"
	  Case "ve"
		  sCountryName = "Venezuela"
	  Case "vn"
		  sCountryName = "Viet Nam"
	  Case "vg"
		  sCountryName = "Virgin Isl (British)"
	  Case "vi"
		  sCountryName = "Virgin Isl, (U.S.)"
	  Case "wf"
		  sCountryName = "Wallis and Futuna Islands"
	  Case "eh"
		  sCountryName = "Western Sahara"
	  Case "ye"
		  sCountryName = "Yemen, Republic of"
	  Case "zr"
		  sCountryName = "Zaire"
	  Case "zm"
		  sCountryName = "Zambia"
	  Case "zw"
		  sCountryName = "Zimbabwe"
	End Select
  End Function

  Public Function sNumberName( iNName )
	REM - Não implementada
  End Fucntion
End Class

Dim objConvert
Set objConvert = New cConvert

Response.Write( "<b>objConvert.sStateName( ""sc"" ) =</b> " & objConvert.sStateName( "sc" ) & "<br/>" )
Response.Write( "<b>objConvert.sCountryName( ""us"" ) =</b> " & objConvert.sCountryName( "us" ) & "<br/>" )

Set objConvert = Nothing
objConvert = NULL
%>

definir classes como um objeto, com seus próprios métodos (funções que atuam sobre este objeto) e propriedades (variáveis do objeto). Assim, o comando MyClass.Build() chama o método Build do objeto MyClass e MyClass.Titulo = "abc" define o valor da propriedade Titulo do mesmo objeto. Pra quem acha isso complicado, vale o lembrete que, quando criamos um objeto ADODB.Connection, facilmente trabalhamos com suas propriedades (CursorType, Provider, etc) e métodos (Execute(), Open(), etc).

 

Classes podem ser criadas facilmente no VBScript, mediante a utilização de alguns comandos não comumente usados. O uso de classes pode ser útil pela reutilização do mesmo código em diversas partes da aplicação e pela facilidade de atribuir seus valores.

 

Pense no exemplo de paginação: qtas páginas de seu site usam o recurso de paginação, com a alteração de apenas uma ou duas características ? Pense qto código pode ser economizado com a utilização de apenas um código genérico. E lembre-se que o ASP é interpretado; ou seja: qto menos código, mais rápido a aplicação roda.

 

O primeiro dos comandos necessários é o Class, que define o nome da Classe. Não tem muito o que dizer, exceto que ele deve ser terminado com End Class, que vai depois de todo o código da Classe, englobando-a. Após definir o nome da classe, você precisa definir as propriedades. você pode simplesmente colocar Public Propriedade e então esta variável pode ser acessada externamente à ela. Caso coloque Private MyVar, esta variável terá escopo apenas dentro da classe. Muita gente usa o Propriety, que permite executar uma sequencia de comandos quando o valor da propriedade for atribuido, permitindo consistir os dados entrados.

Após a definição das propriedades, podemos definir os métodos. Assim, o comando Public Default Sub NomeMetodo define o método padrão para a Classe. você tbém pode definir o escopo para Private, fazendo com que a sub/function seja acessível apenas internamente à classe.