Et dll spørsmål.

eks:

'------------------ Class1 ------------------
' Project1.Class1

Option Explicit

Private m_data As String

Public Function IndData(ByVal strData As String)
  m_data = strData
End Function

Public Function UdData() As String
  UdData = m_data
End Function
'------------------ Class1 ------------------



<%
'------------------- ASP --------------------
Dim dllDemo
Set dllDemo = Server.CreateObject("Project1.Class1")

dllDemo.IndData Request.Servervariables("PATH_TRANSLATED")

Response.Write dllDemo.UdData

Set dllDemo = Nothing
'------------------- ASP --------------------
%>

Det skal ikke være sådan at bruger selv kan ratte i den kode.
men sådan at kode kan se at den kommer fra domæne www.a.dk og ikke www.b.dk
en beskyttels af brug af adgang til denne fil.

Hvad formål skal det have.
skal du ikke bruge den på din egen server?

Nej, men på en server som bruges af mange men det skal kun være bestemte folk der skal have adgang til denne dll. hvis de har betalt for brug af den..

Så må du bare lave noget password i din dll-file

'------------------ Class1 ------------------
Option Explicit

Private m_Password As String

Public Function Password(ByVal strData As String)
  m_Password = strData
End Function

Public Function UdData() As String
  If m_Password = "12345" Then
    UdData = "Ok"
      Else
    UdData = "Error"
  End If
End Function
'------------------ Class1 ------------------

<%
'------------------- ASP --------------------
Dim dllDemo
Set dllDemo = Server.CreateObject("Project1.Class1")

dllDemo.Password "12345"

Response.Write dllDemo.UdData

Set dllDemo = Nothing
'------------------- ASP --------------------
%>

Nej, det skal være stien eller domæne jeg så ikke et password..

jeg kan ikke se hvad du mener.

hvor dan skal det virke?

hvor dan = hvordan

Det skal være sådan at det kun er folk der er opratte der kan bruge denne dll

jaja.. men hvordan skal folk bruge din dll-file skal de downloade den eller hvad?

Nej det er til mit webhottel, sådan at de kun hvis de har betalt for at bruge den kan bruge den dll fil. da den dll skal give adgang til en ny function jeg er ved at lave.

skal man downloade din dll-file eller køre dll-file den på dit webhottel?

den køre på mit webhottel.

så brug:

Request.ServerVariables("HTTP_REFERER")

i din ASP-file

så kan du se hvor bruger kommer fra

Ja men det skal være i dll file at det gøres og ikke af mig..

da det vil blive fornemt at snyde sig forbi den sikkerhed.

Ja men bruger kommer jo ikke i kontakt med din dll-file

når de skriver i deres asp kode

Dim weblogin
Set weblogin = Server.CreateObject("Project1.weblogin")
Response.Write weblogin.login
Set weblogin = Nothing

skal den gerne se om du må bruge den kode eller ej, da det er en kode man skal betale for at bruge. da det skal være sådan at man kan bruge en kode vi har eller man kan lave sin ejen.
og så skal den dll fil finde kundes dir og finde en fil og gøre som den får besked fra af den fil.

så kan du vel bare bruge Open "C:\file.xxx" For... i din dll-file

ja, men jeg får ikke deres domæne og der kan man så snyder sig til brug af den.

jeg har en ide, men først i morgen.

og der kan opstå problemmer ved det.

ok..

lige et spørgsmål, dem som skal bruge din dll-file har de fast IP?

Nej desvære ikke, eller også har de samme ip alle samme. *øv*

Lav en key generator over harddisk serialnumber, så giver brugeren dig det nummer som står når han/hun køre en lille fil, og du laver keyen efter det nummer, så virker det kun på den computer vor hardisken med det serialnumber er på, kun ved formatering skal brugeren have en ny key.



Private Sub Form_Load()
Dim fs As Object
Dim sn As Object
Dim strDrev As String
strDrev = Chr(67) & Chr(58) & Chr(92) ' = C:\
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set sn = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(strDrev)))
Me.Caption = sn.SerialNumber
End Sub

Ja det er da meget fint men folk har også deres kode på samme hardisk som filen liger. og hvis der er 5 personer med samme koder er det jo ikke så fedt.

Det jeg skal bruge er navn på det domæne der kalder den dll eller deres mappe adrasse.

Kan du ikke bruge:

CGI_ServerName = Environ("SERVER_NAME")
http://www.users.dircon.co.uk/~tbrown/vb/cgi.htm

Jeg får ikke nåde info..

Har droppe ide..