/ Forside/ Teknologi / Udvikling / ASP / Tip
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
*SUPER TIP* - Oprettelse af klasser.
jschroll har modtaget 30 point for dette tip
Fra : jschroll
Vist : 637 gange

Dato : 01-12-00 14:34

Det kan rent faktisk lade sig gøre at arbejde med sine egne klasser i vbscripting. Det gøres således:
<%

CLASS Webbutik
dim gstrRate
   Public Property Get Rate 'Substitute with the name of the actual field
      Rate = gstrRate
   End Property
   
   Public Property Let Rate(strRate)
      gstrRate = strRate
   End Property
   
   Private Sub Class_Initialize()
Response.Write "oprettes"
   End Sub
   
   Private Sub Class_Terminate()
      Response.Write "afsluttes"
   End Sub

   
   public FUNCTION sql2htm(strTemp)
      sql2htm=replace(strTemp,vbCrLf,"<br>")
   End function

   Public Sub Opendb
      dim myconn
      Set myConn = Server.CreateObject("ADODB.Connection")
      myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(db_location)
      SET rs = myConn.EXECUTE("SELECT * FROM Biler")
      myConn.Close
      Set myConn = Nothing
      Set rs = Nothing
   End sub

End Class

Set Nybutik = New Webbutik
   nybutik.Rate="asdasd"
   var=nybutik.Rate
   Response.Write Nybutik.sql2htm("asdsadassad")
   Nybutik.opendb
Set Nybutik = nothing

%>

 
 
Bedømmelse

Fra : gandalf


Dato : 17-01-01 23:24



Bedømmelse

Fra : pawel


Dato : 12-12-00 15:20



Bedømmelse

Fra : gandalf


Dato : 17-01-01 23:24



Bedømmelse

Fra : gch


Dato : 10-01-01 12:52



Bedømmelse

Fra : gandalf


Dato : 17-01-01 15:36



Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177554
Tips : 31968
Nyheder : 719565
Indlæg : 6408855
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste