SHARE
TWEET

Untitled

a guest May 19th, 2019 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. Set rs = Server.CreateObject("<database>")
  3. recID=""
  4. recPWD=""
  5. If (ID<>"") And (PWD<>"") Then
  6.  
  7.     SQL="SELECT * from Users Where ID='" & ID & "'"
  8.     rs.Open SQL,conn,1,1
  9.    
  10.     If Not rs.EOF Then
  11.         recID=rs("ID")
  12.         recPWD=rs("PWD")
  13.     Else
  14.         recID=""
  15.         recPWD=""
  16.     End If
  17.                
  18.     If ID=recID Then
  19.         If PWD=recPWD Then
  20.             If rs("Enable")=True  Then
  21.                 'login
  22.            Else
  23.                 'account no enabled
  24.            End If
  25.         else
  26.             'wrong password
  27.        End If
  28.     Else
  29.         'no such account
  30.    End If
  31. Else
  32.     'please input id and pwd
  33. End If
  34.  
  35. rs.close
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top