国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP 連接Access數(shù)據(jù)庫的登陸系統(tǒng)

2020-07-26 23:05:10
字體:
供稿:網(wǎng)友

一、基本目標

首先在Access數(shù)據(jù)庫Database.mdb中存在著用戶信息表test:


編寫一個登陸系統(tǒng),如果用戶輸入的用戶名在表中沒有,則提示“查無此人”,如果輸入密碼錯誤,則提示“密碼錯誤”


如果用戶輸入的用戶名與密碼都正確,則跳轉(zhuǎn)到登陸成功頁


登陸成功頁在普通情況下,不允許通過輸入網(wǎng)址就能訪問


二、基本思想

使用asp的session對象確保了用戶名與密碼的傳遞。

彈出部分使用了javascript的腳本語言,使用asp對用戶信息表進行查詢。

站點的基本結(jié)構(gòu)如下:


三、制作過程
整個站點使用utf-8碼保證不會亂碼,所以每一頁在頁頭必須有<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />,如果使用DW的高版本則自動添加,低版本請把gb2312改成utf-8,記事本自便。 

1、登陸頁面login.html僅僅是一個表單的靜態(tài)頁面。關鍵是用post方法傳遞信息,Action是到login.asp

 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>login</title></head><body><form method="post" action="login.asp"> username:<input type="text" name="username" />password:<input type="password" name="password" /><input type="submit" value="login" /></form></body></html>

 2、login.asp登陸驗證頁面是本系統(tǒng)最核心的頁面

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>login</title></head><body><%'向把login.html傳過來的兩個信息用變量保存起來username=Request.Form("username")password=Request.Form("password")'數(shù)據(jù)庫是上一級目錄的Database.mdb%><%db="../Database.mdb"'連接數(shù)據(jù)庫指定動作,這段必須獨立地占用一個<%%>否則在某些情況下IE8會出錯Set conn = Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=admin;dbq=" & Server.MapPath(db) %><%Set rs = Server.CreateObject( "ADODB.Recordset" )'看表中是否有此usernamesql = "select * from test where username='"+username+"';"rs.open sql,conn,1,3'如果什么都查不到,彈窗,彈回login.htmlif (rs.bof and rs.eof) then%><script>alert("查無此人");window.location.href = "login.html";</script><%'否則拿查出來的密碼,與用戶輸入的密碼作對比,看是否一致'查出來的密碼必須先用一個變量接住,在ASP中不能直接比較elsedbpwd=rs("password")'如果不一致,則彈窗,ASP沒有!=,表示不等于請用<>if password<>dbpwd then%><script>alert("密碼錯誤");window.location.href = "login.html";</script><%else'如果用戶名密碼都輸入正確,則有此用戶,timeout是為了防止用戶非正常退出的,如果5分鐘沒有任何操作則判定其已經(jīng)退出,ok是正常登陸的標志Session.Timeout=5Session("username")=usernameSession("login")="ok"%><script>alert("登陸成功");window.location.href = "success.asp";</script><%end ifend if'用完數(shù)據(jù)庫記得關rs.closeset rs=nothingconn.closeset conn=nothing%></body></html>

 3、success.asp
 沒什么好說的,關鍵是看他是否有正常登陸標志,login的內(nèi)容是否為ok,沒有則將其彈出登陸頁面 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>歡迎登陸</title></head><body><%if Session.Contents("login")<>"ok" then %><script>alert("請正常登陸!");window.location.href = "login.html";</script><%elseResponse.Write("歡迎登陸,"+Session.Contents("username"))end if%><a href="exit.asp">正常退出</a></body></html>

4、exit.asp退出處理頁面 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>正在退出...</title></head><body><%'所有session立即超時,并且移除所有sessionSession.AbandonSession.Contents.RemoveAll()%><script>window.location.href = "login.html";</script></body></html>

以上就是本文的全部內(nèi)容,希望對大家的學習有所幫助,也希望大家多多支持武林網(wǎng)。

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 靖州| 德州市| 汕头市| 定边县| 溧水县| 巴里| 长沙县| 孙吴县| 宁蒗| 青阳县| 太康县| 东乌珠穆沁旗| 客服| 漳浦县| 拜泉县| 桂阳县| 铜川市| 龙里县| 商河县| 蒲江县| 鄂伦春自治旗| 安陆市| 湟源县| 拜城县| 商洛市| 濉溪县| 海兴县| 陇西县| 通州市| 富平县| 曲沃县| 明星| 会昌县| 新郑市| 凤阳县| 铅山县| 朝阳市| 淳安县| 水富县| 吉木乃县| 玉溪市|