<%@ language="VBScript" %> <% Option Explicit %> <html> <body> <!--#include virtual="/adovbs.inc"--> <% Dim objconn, objrs, uname, pwd, flag uname=Request("t1") pwd=Request("pwd") set objconn=server.createobject("ADODB.Connection") set objrs=server.createobject("ADODB.RecordSet") objconn.connectionstring="DSN=login.dsn" objconn.open objrs.open "logtab",objconn,,,adcmdtable objrs.movefirst Do while NOT(objrs.EOF) If ((objrs("username")=uname) AND (objrs("password")=pwd)) then flag=1 Exit Do Elseif ((objrs("username")<>uname) AND (objrs("password")=pwd)) then flag=0 objrs.movenext Elseif ((objrs("username")=uname) AND (objrs("password")<>pwd)) then flag=0 objrs.movenext Elseif ((objrs("username")<>uname) AND (objrs("password")<>pwd)) then flag=0 objrs.movenext End If loop If (flag=1) then Response.redirect("Default.asp") Else Response.redirect("login2.asp") End If objconn.close set objconn="nothing" set objrs="nothing" %> </body> </html>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)