SHARE
TWEET

Untitled

a guest May 19th, 2019 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Set rs = Server.CreateObject("<database>")
  2. recID=""
  3. recPWD=""
  4. If (ID<>"") And (PWD<>"") Then
  5.  
  6.     SQL="SELECT * from Users Where ID='" & ID & "'"
  7.     rs.Open SQL,conn,1,1
  8.    
  9.     If Not rs.EOF Then
  10.         recID=rs("ID")
  11.         recPWD=rs("PWD")
  12.     Else
  13.         recID=""
  14.         recPWD=""
  15.     End If
  16.                
  17.     If ID=recID Then
  18.         If PWD=recPWD Then
  19.             If rs("Enable")=True  Then
  20.                 'login
  21.            Else
  22.                 'account no enabled
  23.            End If
  24.         else
  25.             'wrong password
  26.        End If
  27.     Else
  28.         'no such account
  29.    End If
  30. Else
  31.     'please input id and pwd
  32. End If
  33.  
  34. 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
 
Top