程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP入門教程 >> 簡單的ASP用戶登錄模塊

簡單的ASP用戶登錄模塊

編輯:ASP入門教程

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

  1. <%   
  2. '=======用戶登錄驗證腳本=======   
  3. '如果尚未定義Passed對象,則將其定義為false,表示沒有通過驗證   
  4. If IsEmpty(Session("Passed")) Then   
  5. Session("Passed")=false   
  6. End If   
  7.     
  8. 'Session("Passed")=False,表示尚未通過驗證,則開始讀取從表單傳來的驗證信息   
  9. If Session("Passed")=False Then   
  10. UserName=Request.Form("UserName")   
  11. UserPwd=Request.Form("UserPwd")   
  12.     
  13. If UserName="" Then   
  14. Errmsg="提示:請輸入用戶名和密碼"   
  15. Else   
  16. '===================連接數據庫=====================   
  17. Set Conn= Server.CreateObject("ADODB.Connection")   
  18. Conn.Connectionstring= "Driver={SQL Server};Server=192.168.1.3;UID=sa;PWD=;Database=zcmrs"   
  19. Conn.open   
  20. '===================從表log中讀取用戶數據=====================   
  21. '定義RecordSet對象   
  22. Set rs=Server.CreateObject("ADODB.Recordset")   
  23. '設置Connection對象的ConnectionString   
  24. Set rs.ActiveConnection=Conn   
  25. '設置游標類型   
  26. rs.CursorType=3   
  27. '打開記錄集   
  28. rs.Open "Select username,passWord from erpuser Where username='"&UserName&"'"   
  29. '===================身份驗證======================   
  30. If rs.EOF Then   
  31. Errmsg="提示:用戶不存在或密碼錯誤"   
  32. Else   
  33. If UserPwd<>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. End If   
  41. End If   
  42. End If   
  43. End If   
  44. '經過登錄不成功,則畫出登錄表單   
  45. If Not Session("Passed")=True Then   
  46. %>  
  1. <Html>   
  2. <head><title>無標題文檔</title>   
  3. <style type="text/CSS">   
  4. <!--   
  5. .STYLE1 {font-size: 12px;font-weight:bold;margin-left:120px;outline:double}   
  6. -->   
  7. </style>   
  8. <style type="text/CSS">   
  9. <!--   
  10. .STYLE2 {font-size: 12px;font-weight:bold;outline:double;color:#FF3333}   
  11. -->   
  12. </style>   
  13. </head>   
  14.     
  15. <body leftmargin=0 topmargin=0 marginheight="0" marginwidth="0" bgcolor="#000000">   
  16. <div id=parent >   
  17.     
  18. <div id=denglu ><br>ERP系統登錄</div>   
  19. <form action="<%=request.ServerVariables("path_info")%>" method="post" name="MyForm" id="MyForm">   
  20. <p class="STYLE1">用戶名:<input name="UserName" type="text" id="UserName" size="18" maxlength="20">   
  21. </p>   
  22. <p class="STYLE1">密 碼:<input name="UserPwd" type="passWord" id="UserPwd" size="18" maxlength="20">   
  23. </p>   
  24. <p align="center" class="STYLE2"><%=Errmsg%> </p>   
  25. <p>    
  26. <input type="submit" align="middle" name="Submit" value="登錄系統">    
  27. <input name="rege" type="button" align="middle" onClick="location='register.ASP'" id="rege" value="注冊用戶">   
  28. </p>   
  29. </form>   
  30. </div>   
  31.     
  32. </body>   
  33.     
  34. </Html>   
  35. <%   
  36. '<p class="STYLE1">驗證碼:<input name="CheckCode" type="text" id="CheckCode" size="6" maxlength="4">   
  37. '<IMG  alt="" src="common/getcode.ASP"></p>   
  38. response.End   
  39. End If   
  40. %>  

要訪問的頁面erp.ASP

  1. <!--#include file="chkpwd.ASP"-->   
  2. <body>   
  3. <div style='font-size:12px;font-weight:bold;border:1px solid #001;padding:4px;background:#FFCCFF;margin-top:0;'>歡迎使用ERP查詢系統,當前登錄用戶為:   
  4. <%   
  5. If Session("Passed")=True Then   
  6. Response.Write(Session("UserName"))   
  7. End If   
  8. %><a href="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>   
  8. 使用圖片提交表單  
  9.  
  10. <form name="form1" method="post" action="">   
  11.     
  12. <td align="right"><input type="image" method="submit" name="submit" src="image/loginin.gif" width="70" height="21" alt="submit"></td>   
  13.     
  14. </form>
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved