% Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/combe.mdb") & ";" username = Replace(request.form("username"), "'", "''") password = Replace(request.form("password"), "'", "''") SQL = "SELECT * FROM login_gallery WHERE username = '" & username & "'" & " AND password ='" & password & "'" set oRs = conn.Execute(SQL) If oRs.EOF then Session("login") = False Else session("ID") = oRs("session_ID") Session("login") = True End If oRs.Close Set oRs = Nothing conn.Close Set conn = Nothing %>
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||