Dll fil der skriver og henter fra db!!!!

Jeg har nemlig hørt at dette skulle være mere sikkert end den connectionstring man ellers laver i asp!

Hov jeg glemte noget!!

Den skal jo gøre sådan at den skal rette i db'en så der er et felt der hedder usrOnline er = true!! + der er nogen andre ting der skal rettes!!

Det kan godt lade sig gøre, nedenstående eksempel kræver lidt tilretninger men overordnet er det sådan det skal gøres....

Funktionen validate user skal så indlejres i din DLL, og der kalder du så din database.

Håber det kan bruges!

dim username, password
username = Request.Form("ediUsername")
password = Request.Form("ediPassword")
   
Dim arEmployee, userSettings
       
Dim mydll
Dim oParam(1)

Set mydll = Server.CreateObject("MyDLL.connection")

oParam(0) = username
oParam(1) = password
arUser = mydll.validateUser(oParam)
       
if (arEmployee(0)(0) <> 0) Then
  Session.TimeOut = 20
  Session("Userid") = arUser(0)(0)
  Session("Password") = arUser(0)(1)
  Response.Redirect("loginsucces.asp")
Else
  Response.Redirect("loginerror.asp") End If
       
Set mydll = Nothing

jeg skal have hjælp til at lave dll'en!!

>> ahl, er du kun til VB eller er VC++ i orden?

VB!!!
Jeg kan ikke c

OK, nu har jeg oprettet et projekt i VB som er et ActiveX Dll!

Jeg har oprettet en funktion som denne:
Public Funktion Connect(username as string, password as string)

end function

hvordan får jeg den så til at oprette en forbindelse til en database og checke om brugernavn og password er rigtigt, og derefter stille brugeren videre til en anden side??

Ok, jeg hæver spørgsmålet til 500p!!

Så prøver vi den anden halvdel af løsnignen....du skal selvfølgelig tilpasse løsningen til din DB.

Derudover skal du inkludere en reference til msado15.dll i dit projekt...

Dim adodbconnection As ADODB.Connection

Function Connect(username As String, password As String)
    Dim rsQuery
    Dim sConnect
    Dim SQLString
   
sConnect = "DSN=DINDSNSTRENG"
   
Set adodbconnection = CreateObject("adodb.connection")
 
adodbconnection.Open sConnect
   
SQLString = "select username, password from TABLE1 where username='" &
username & "' AND password='" & password
               
rsQuery = adodbconnection.execute(SQLString)
   
If rsQuery.EOF Then
        SQLString = "Update TABLE1 set CURRENTUSER = 0"
        rsQuery = adodbconnection.execute(SQLString)
        Connect = False
    Else
        SQLString = "Update TABLE1 set CURRENTUSER = 1"
        rsQuery = adodbconnection.execute(SQLString)
        Connect = True
    End If
End Function

hvad går den her:
If rsQuery.EOF Then
        SQLString = "Update Bruger set CURRENTUSER = 0"
        rsQuery = adodbconnection.execute(SQLString)
        Connect = False
    Else
        SQLString = "Update Bruger set CURRENTUSER = 1"
        rsQuery = adodbconnection.execute(SQLString)
        Connect = True
End If

checker om der findes en eksisterende bruger med det indtastede brugernavn og password....

Hvis der ikke returneres noget (EOF) er indtastningen ugyldig, og brugeren skal ikke logges på.

I if sætningen kan du så sætte eventuelle parametre og returmere værdier til din ASP

ok, men jeg har ikke msado15.dll!!!

Prøv på microsoft sitet - der er lidt at vælge imellem + lidt info om brug og div.
http://www.microsoft.com/data/download.htm

Det er til VC++ & C++!!

jeg kan heller ikke finde den!

Det er jeg nu ikke sikker på - har du installeret IE5, jeg mener at den følger med den. (muligvis følger den også med VB6 i "Data acces components")

Den ender i \program files\common files\system\ado\

Ellers er det bare at gå på jagt....

øøøøø!!!!

Hvordan compiler man sådan en .DLL -- og hvad kræver det af serveren for at køre den ?

phylox2>
1. Hvordan tror du kan kompiler den!!?
2. alle servere kan køre den, de skal bare "installeres" med regsvr32!

ahl>

1. Jeg kender ikke en skid til VB

2. Det er noget man skal have adgang til via Telnet, right?

1. Hvis du ikke kender til vb, så tror jeg ikke det her er et godt sted at begynde!! du kan begynde at lave et adressekartotek, der lærer man alle de nødvendige ting for at fortsætte!

2. Du kan bede din udbyder om det!

1. Det jeg skulle bruge det til, var i sammenhæng med ASP :)

2. Det kan jeg vist ikke

buhl> kan du ikke sende den til  mig?

jooo...det kan jeg da godt - Hvortil??

anders@hjemmesiden.com

Ikke for at nasse, men kunne jeg ikke også se, hvordan sådan en ser ud ?! ... opbygningsmessigt

phylox2 - det jeg sender er en kompileret DLL lavet af microsoft, jeg tror ikke den er videre interessant at se....

ChatBy fejl '800a01a8'

Object required

/dbdll/Default.asp, line 9

Default.asp!
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
set db = server.CreateObject("ChatBy.db")
Response.Write db.Connect("anders", "pensom")
%>
</BODY>
</HTML>

Nej .. okay --- det kan jeg se ... hvad skal jeg så bruge, for at LAVE disse filer ??? ...

Har du husket at registrere din DLL???

Phylox2 - VB/C++ kodning af DLL eller wsc komponenter....

Ja

Det vil sige : Hvilket program ?

server.createobject("Chatby.db")

Hedder din komponent Chatby og din public klasse db???

ja

sker her noget?

haaaaaaaaaaaaalloooooooooo???!

i får 1 dag, så lukker jeg spørgsmålet.

Det var synd!