ASP guru...

[Han-Solo]

Jag har problem...

 

Hur fungerar det med 'class':er

Jag har gjort en klass i en fil, class.asp, som fungerar! ->Om jag anropar den innifrån sidan fungerar den fint!

 

MEN nu är frågan. Om jag vill återanvända denna class hur kan man inkludera den filen( SSI??? )

Kan man ha classen i en *.asp fil eller ska man använda något annat fil tillägg, *.class eller liknande???

GetObject? är det nått man kan använda... Jag får det inte att fungera... GetObject("C:\sökväg", ClassensNamn)....

 

grrrr sån't här gör mig tikig

 

 

...in a galaxy far far away

[Magnus Ahlkvist]

Hej hopp.

 

Gör så här:

 

<!--#include file="minklass.asp"-->

 

Använd _inte_ något annat filtillägg än .asp på filen, eftersom den då kan bli åtkomlig för någon som vill läsa din hemliga (?) programkod.

 

GetObject använder du för att få tag på ett globalt objekt på servern, ex.vis IIS-Admin-klasserna. Det är antagligen inte vad du är ute efter.

 

Om du har skapat din klass på rätt sätt kan du (om du inkluderat filen med SSI alltså) göra:

Dim oMinKlass

Set oMinKlass=New MinKlass

 

mvh/LeMarw

 

[Han-Solo]

Det är precis så jag gjort!!!

 

filen 'class.asp'

--------

<%

'Option Explicit

Class egenClass ' Enligt IE är felet här!!!

Sub ExeSQL(strSQL)

Dim objConnection

Set objConnection = Server.CreateObject("adodb.connection")

With objConnection

.Open("server=192.168.0.2; db=forum; driver=mySQL; uid=anvandarnamn; pwd=losenord")

.Execute(strSQL)

.Close

End With

Set objConnection = Nothing

End Sub

 

Function Alert(strMessage)

Alert = "<script language='javascript'>alert('" & strMessage & "')</script>"

End Function

 

Function Confirm(strMessage, sidaOK, sidaCancel)

Confirm = "<script language='javascript'> if (confirm('" & strMessage & "')){ document.location.href='" &amp; sidaOK &amp; "' } else { document.location.href='" & sidaCancel & "' } </script>"

End Function

End Class

%>

-----------

 

i filen som jag include:rat class.asp skriver jag :

--------------

dim ClassNamn

set ClassNamn = new egenClass

ClassNamn.ExeSQL(sql)

ClassNamn.ExeSQL(sql2)

ClassNamn.Alert("Posten tillagd")

set ClassNamn = nothing

------------

 

Detta ger det mycket givande felmeddelandet:

 

Kompileringsfel i Microsoft VBScript (0x800A03EA)

Syntaxfel

 

 

[inlägget ändrat 2002-02-20 07:57:29 av Han-Solo]

[inlägget ändrat 2002-02-20 07:59:48 av Han-Solo]

[Magnus Ahlkvist]

Jag har provkört koden, och det enda fel jag hittade var:

Confirm="<script language='javascript'> if (confirm('" & strMessage & "')){ document.location.href='" &amp; sidaOK &amp; "' } else { document.location.href='" & sidaCancel & "' } </script>"

 

Det ska vara:

Confirm = "<script language='javascript'> if (confirm('" & strMessage & "')){ document.location.href='" & sidaOK & "' } else { document.location.href='" & sidaCancel & "' } </script>"

 

Alltså - inte &amp; sidaOK &amp;

utan istället & sidaOK &

 

Men det borde inte ge det fel du får.

Vad är det för windows-version? Vad är det för version på Scripting Host? Class kom först i senare versioner av Windows Scripting Host

 

[Han-Solo]

Det där men &amp; och & är inte det som är felet... det är det är forumet som möblerar om i texten, fipplar om till HTML uttryck... (skriv ett & sen går du in och redigerar det du skrivit så får du se att det blivit &amp; ist.)

 

scripting host?

Jag kör IE 5.5 och IIS 5