Har fundet denne Script,
og har lavet
access db med en tabel med
Pass-FtpUser-FtpPass-FtpServer-FtpPort
og har lagt db der hvor den skal ligge
men kan ikke få det til at virke
<%
If Request.QueryString("Mode") = "" Then
Response.Write "<Form Action=""/Ftp.asp?Mode=Login"" Method=""Post"">" & vbCrLf
Response.write "<Input Type=""Text"" Name=""Username"" Size=""12"">" & "<Br>" & vbCrLf
Response.write "<Input Type=""Password"" Name=""Pass"" Size=""12"">" & "<Br>" & vbCrLf
Response.Write "<Input Id=""Knap"" Type=""Submit"" Value=""Login"">" & vbCrLf
Response.Write "</Form>" & vbCrLf
ElseIf Request.QueryString("Mode") = "Login" Then
' Database forbindelse
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/database.mdb") & ";" & "Persist Security Info=False"
' Hent fra formen
strFormUser = Trim(Request.Form("Username"))
strFormPass = Trim(Request.Form("Pass"))
' Sikre mod SQL fejl
strFormUser = Replace(strFormUser,"'","''")
strFormPass = Replace(strFormPass,"'","''")
' Er der skrevet et bruger navn ?
If strFormUser <> "" Then
' Er der skrever et password ?
If strFormPass <> "" Then
' Så skal vi lige have fat i recordsetet
Set objRS = objConn.Execute("Select * From User Where Username = '" & strFormUser & "'")
' Tjecker om brugeren eksisterer
If (Not objRS.EOF) And (Not objRS.BOF) Then
' Hent fra recordsetet
strPass = objRS("Pass")
strFtpUser = objRS("FtpUser")
strFtpPass = objRS("FtpPass")
strFtpServer = objRS("FtpServer")
strFtpPort = objRS("FtpPort")
' Så kan vi godt lukke for recordsetet igen
objRS.Close
Set objRS = Nothing
' Er det det rigtigt password ?
If strFormPass = strPass Then
' Send vidre til ftp'en
Response.Redirect("
ftp://" & strFtpUser & ":" & strFtpPass & "@" & strFtpServer & ":" & strFtpPort & "")
' Hvis det er forkert password
Else
Response.Write "Det er ikke det rigtige password..."
End If
' Hvis brugeren ikke findes
Else
Response.Write "Brugernavnet findes ikke..."
End If
' Hvis der ikke er skrevet et password
Else
Response.Write "Du har ikke skrevet et password..."
End If
' Hvis der ikke er skrevet et brugernavn
Else
Response.Write "Du har ikke skrevet et brugernavn..."
End If
' Luk database forbindelse
objConn.Close
Set objConn = Nothing
End If
%>
mvh
mvhansen
