Home>Network programming tutorial>ASP tutorial

ASP production login page verification program

Author：Eve Cole Update Time：2025-04-27 10:32:01

Recommended: ADO beginner tutorial: ADO display
The most common way to display data from a record set is to display the data in an HTML table. Show field names and field values ​​We have a database named Northwind, and we want to display the data in the Customers table (remember to save this file with .asp as the extension): htmlbody%set conn=Server.CreateObject(

User login verification script, Chkpwd.asp

  1.  <%
  2.  '=========User login verification script========
  3.  'If the Passed object has not been defined, it is defined as false, indicating that it has not passed the verification
  4.  IfIsEmpty(Session(Passed))Then
  5.  Session(Passed)=false
  6.  EndIf
  8.  'Session(Passed)=False, which means that the verification information passed from the form has not been passed yet.
  9.  IfSession(Passed)=FalseThen
  10.  UserName=Request.Form(UserName)
  11.  UserPwd=Request.Form(UserPwd)
  13.  IfUserName=Then
  14.  Errmsg=Tip: Please enter your username and password
  15.  Else
  16.  '===================================================
  17.  SetConn=Server.CreateObject(ADODB.Connection)
  18.  Conn.Connectionstring=Driver={SQLServer};Server=192.168.1.3;UID=sa;PWD=;Database=zcmrs
  19.  Conn.open
  20.  '============================ Read user data from table log=========================
  21.  'Define RecordSet object
  22.  Setrs=Server.CreateObject(ADODB.Recordset)
  23.  'Set ConnectionString of Connection object
  24.  Setrs.ActiveConnection=Conn
  25.  'Set cursor type
  26.  rs.CursorType=3
  27.  'Open record set
  28.  rs.OpenSelectusername,passwordfromerpuserWhereusername='&UserName&'
  29.  '===================================================
  30.  Ifrs.EOFTThen
  31.  Errmsg=Tip: The user does not exist or the password is wrong
  32.  Else
  33.  IfUserPwd<>rs.Fields(password)Then
  34.  Errmsg=Tip: Login failed! Password error?
  35.  Else'Login successfully
  36.  Errmsg=
  37.  Session(Passed)=True
  38.  Session(UserName)=rs.Fields(username)
  39.  'Identify user permissions Session(UserID)=rs.Fields(UserID)
  40.  EndIf
  41.  EndIf
  42.  EndIf
  43.  EndIf
  44.  'After login failing, the login form will be drawn
  45.  IfNotSession(Passed)=TrueThen
  46.  %>
  48.  <html>
  49.  <head><title>Design Home_dwww.cn</title>
  50.  <styletype=text/css>
  51.  <!--
  52.  .STYLE1{font-size:12px;font-weight:bold;margin-left:120px;outline:double}
  53.  -->
  54.  </style>
  55.  <styletype=text/css>
  56.  <!--
  57.  .STYLE2{font-size:12px;font-weight:bold;outline:double;color:#FF3333}
  58.  -->
  59.  </style>
  60.  </head>
  62.  <bodyleftmargin=0topmargin=0marginheight=0marginwidth=0bgcolor=#000000>
  63.  <divid=parentstyle=height:300;width:450;border-style:solid;border-color:#FFFFF;margin-top:80px;margin-left:25%;margin-right:25%;background-color:#FFFFF>
  65.  <divid=denglustyle=font-size:12px;font-weight:bold;background-color:#0099FF;text-align:center;height:40px;><br>ERP system login</div>
  66.  <formaction=<%=request.ServerVariables(path_info)%>method=postname=MyFormid=MyForm>
  67.  <pclass=STYLE1>Username:<inputname=UserNametype=textid=UserNamesize=18maxlength=20>
  68.  </p>
  69.  <pclass=STYLE1> Password: <inputname=UserPwdtype=passwordid=UserPwdsize=18maxlength=20>
  70.  </p>
  71.  <palign=centerclass=STYLE2><%=Errmsg%></p>
  72.  <p>
  73.  <inputtype=submitalign=middlename=Submitvalue=Login system>
  74.  <inputname=regetype=buttonalign=middleonClick=location='register.asp'id=regevalue=register user>
  75.  </p>
  76.  </form>
  77.  </div>
  79.  </body>
  81.  </html>
  82.  <%
  83.  '<pclass=STYLE1>Verification code: <inputname=CheckCodetype=textid=CheckCodesize=6maxlength=4>
  84.  '<IMGstyle=MARGIN-RIGHT:40pxalt=src=common/getcode.asp></p>
  85.  response.End
  86.  EndIf
  87.  %>

Page to visit erp.asp

  1.  <!--#includefile=chkpwd.asp-->
  2.  <body>
  3.  <divstyle='font-size:12px;font-weight:bold;border:1pxsolid#001;padding:4px;background:#FFCCFF;margin-top:0;'>Welcome to use the ERP query system, the current logged-in user is:
  4.  <%
  5.  IfSession(Passed)=TrueThen
  6.  Response.Write(Session(UserName))
  7.  EndIf
  8.  %><ahref=logout.asp>Exit the system</a>
  9.  </div>
  10.  </body>

Every time you open erp.asp, you first execute Chkpwd.asp(), which can effectively prevent unauthorized users from accessing the specified web page.

Logout.asp system exit

  1.  <body>
  2.  <%
  3.  Session(Passed)=false
  4.  Session(UserName)=
  5.  Response.Redirect(index.asp)
  6.  %>
  7.  </body>

Submit form using pictures

  1.  <formname=form1method=postaction=>
  2.  <tdalign=right><inputtype=imagemethod=submitname=submitsrc=image/loginin.gifwidth=70height=21alt=submit></td>
  3.  </form>

Share: ADO beginner tutorial: ADO add records
We can use SQL's INSERT INTO command to add records to tables in the database. Adding records to tables in database We want to add a new record to the Customers table in Northwind database. We first need to create a form that contains the fields we want to select data: htmlbodyform method=post action=dem

Related Articles