首頁>網絡編程教程>ASP教程

ASP製作登陸頁面驗證程序

作者：Eve Cole 更新時間：2025-04-27 10:32:01

推薦：ADO初學者教程：ADO 顯示
顯示來自記錄集中的數據的最常用的方法，就是把數據顯示在HTML表格中。 顯示字段名稱和字段值我們有一個名為Northwind的數據庫，並且我們希望顯示出Customers表中的數據（記得以.asp為擴展名來保存這個文件）： htmlbody%set conn=Server.CreateObject(

用戶登錄驗證腳本,Chkpwd.asp

  1.  <%
  2.  '=======用戶登錄驗證腳本=======
  3.  '如果尚未定義Passed對象,則將其定義為false,表示沒有通過驗證
  4. IfIsEmpty(Session(Passed))Then
  5.  Session(Passed)=false
  6.  EndIf
  8.  'Session(Passed)=False,表示尚未通過驗證,則開始讀取從表單傳來的驗證信息
  9. IfSession(Passed)=FalseThen
  10.  UserName=Request.Form(UserName)
  11.  UserPwd=Request.Form(UserPwd)
  13.  IfUserName=Then
  14.  Errmsg=提示:請輸入用戶名和密碼
  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.  '===================從表log中讀取用戶數據=====================
  21.  '定義RecordSet對象
  22. Setrs=Server.CreateObject(ADODB.Recordset)
  23.  '設置Connection對象的ConnectionString
  24.  Setrs.ActiveConnection=Conn
  25.  '設置游標類型
  26. rs.CursorType=3
  27.  '打開記錄集
  28. rs.OpenSelectusername,passwordfromerpuserWhereusername='&UserName&'
  29.  '===================身份驗證======================
  30.  Ifrs.EOFThen
  31.  Errmsg=提示:用戶不存在或密碼錯誤
  32. Else
  33.  IfUserPwd<>rs.Fields(password)Then
  34.  Errmsg=提示:登錄失敗!密碼錯誤？
  35.  Else'登錄成功
  36. Errmsg=
  37.  Session(Passed)=True
  38.  Session(UserName)=rs.Fields(username)
  39.  '標識用戶權限Session(UserID)=rs.Fields(UserID)
  40.  EndIf
  41.  EndIf
  42.  EndIf
  43.  EndIf
  44.  '經過登錄不成功,則畫出登錄表單
  45. IfNotSession(Passed)=TrueThen
  46.  %>
  48.  <html>
  49.  <head><title>設計家園_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:#FFFFFF;margin-top:80px;margin-left:25%;margin-right:25%;background-color:#FFFFFF>
  65.  <divid=denglustyle=font-size:12px;font-weight:bold;background-color:#0099FF;text-align:center;height:40px;><br>ERP系統登錄</div>
  66.  <formaction=<%=request.ServerVariables(path_info)%>method=postname=MyFormid=MyForm>
  67.  <pclass=STYLE1>用戶名:<inputname=UserNametype=textid=UserNamesize=18maxlength=20>
  68.  </p>
  69.  <pclass=STYLE1>密碼:<inputname=UserPwdtype=passwordid=UserPwdsize=18maxlength=20>
  70.  </p>
  71.  <palign=centerclass=STYLE2><%=Errmsg%></p>
  72.  <p>
  73.  <inputtype=submitalign=middlename=Submitvalue=登錄系統>
  74.  <inputname=regetype=buttonalign=middleonClick=location='register.asp'id=regevalue=註冊用戶>
  75.  </p>
  76.  </form>
  77.  </div>
  79.  </body>
  81.  </html>
  82.  <%
  83.  '<pclass=STYLE1>驗證碼:<inputname=CheckCodetype=textid=CheckCodesize=6maxlength=4>
  84.  '<IMGstyle=MARGIN-RIGHT:40pxalt=src=common/getcode.asp></p>
  85.  response.End
  86.  EndIf
  87.  %>

要訪問的頁面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;'>歡迎使用ERP查詢系統,當前登錄用戶為:
  4.  <%
  5.  IfSession(Passed)=TrueThen
  6.  Response.Write(Session(UserName))
  7.  EndIf
  8.  %><ahref=logout.asp>退出系統</a>
  9.  </div>
  10.  </body>

以上每次打開erp.asp的時候,都首先執行Chkpwd.asp(),這樣可以有效防止未授權用戶訪問指定網頁.

logout.asp系統退出

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

使用圖片提交表單

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

分享：ADO初學者教程：ADO 添加記錄
我們可以使用SQL的INSERT INTO命令向數據庫中的表添加記錄。 向數據庫中的表添加記錄我們希望向Northwind數據庫中的Customers表添加一條新的記錄。我們首先要創建一個表單，這個表單包含了我們希望選定數據的字段： htmlbodyform method=post action=dem

相關文章