域名注冊(cè)

虛擬主機(jī)

虛擬主機(jī)相關(guān)知識(shí)
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

網(wǎng)站建設(shè)

網(wǎng)站建設(shè)相關(guān)知識(shí)
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

企業(yè)郵局

域名相關(guān)知識(shí)及購(gòu)買
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

網(wǎng)絡(luò)營(yíng)銷

百度竟價(jià)排名
網(wǎng)站制作知識(shí)
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

網(wǎng)站備案

域名相關(guān)知識(shí)及購(gòu)買
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

服務(wù)器租用

服務(wù)器相關(guān)知識(shí)
域名解析
網(wǎng)址URL轉(zhuǎn)發(fā)
轉(zhuǎn)入轉(zhuǎn)出及過戶
域名交易

您現(xiàn)在的位置：創(chuàng)新互聯(lián) >> 網(wǎng)站建設(shè) >> 網(wǎng)絡(luò)建設(shè)常見問題 >> ASP防止同時(shí)登陸的問題

ASP防止同時(shí)登陸的問題

作者：曾小姐文章來源：成都網(wǎng)站建設(shè) 點(diǎn)擊數(shù)：397 更新時(shí)間：2012-04-02
網(wǎng)站登錄對(duì)于網(wǎng)站設(shè)計(jì)者來說，司空見慣，但是今天小編還是想跟大家說說實(shí)現(xiàn)這個(gè)功能的方法，總的來說可有兩種方式：
1、application
用application對(duì)象：如果做的是大型社區(qū)，可能要為每個(gè)登陸id生成一個(gè)appliaction，這樣做雖然程序上設(shè)計(jì)會(huì)簡(jiǎn)單些但登陸用戶過多及其耗費(fèi)服務(wù)器資源，這里決不提倡，因?yàn)閍ppliaction對(duì)象在用戶登陸時(shí)生成很容易, 但是要做到真正的隨著用戶退出系統(tǒng)完全釋放，到目前還沒看到更好的方法~
<%
.....取用戶名username.....
if Application(username)<>""then
response.write "該用戶已經(jīng)登錄"
response.end
end if
Application(username)=username ''存入該用戶的用戶名
%>
在global文件中加上session onend事件，下線時(shí)Application("isuserlogin")=false
此外還要檢測(cè)是否吊線，有專門的辦法，是server對(duì)象里的某項(xiàng)
2、數(shù)據(jù)庫+程序asp 控制
做起來可能會(huì)復(fù)雜些，但是適合有大量登陸用戶的系統(tǒng)。
首先為用戶建立數(shù)據(jù)庫-用access新建一個(gè)onlyTOL8.mdb
數(shù)據(jù)表1： users 存放用戶注冊(cè)資料
下設(shè)數(shù)據(jù)表：uID（自動(dòng)編號(hào)） userName（字符型） userPass（字符型）
數(shù)據(jù)表2： onlyLogin 存放用戶臨時(shí)登陸信息
下設(shè)數(shù)據(jù)表： OLname（字符型） OLtime（日期型） OLip（字符型）
數(shù)據(jù)庫建好后直接向users表中手動(dòng)添加數(shù)據(jù) userName表添加TOL8，userPass表里添加111，
下面來做用戶登陸界面，復(fù)制下面代碼存成onlyLogin.asp文件。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>禁止同一賬號(hào)不同地區(qū)同時(shí)登陸</title>
</head>
<body>
<form name="form1" method="post" action="loginPost.asp">
用戶名：<input name="userName" type="text" id="userName" size="15" maxlength="5">
密碼：<input name="userPass" type="password" id="userPass" size="15" maxlength="15">
<input type="submit" name="Submit" value="Login">
</form>
</body>
</html>
完成后在新建一個(gè)loginCONN.asp文件復(fù)制下面的代碼保存用于連接數(shù)據(jù)庫
<%
Dim CONN_TOL8
Dim Conn_T
Dim mmdd
mmdd="onlyTOL8.mdb"
Set CONN_TOL8 = Server.CreateObject("ADODB.Connection")
Conn_T="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&mmdd&"")
on error resume next
CONN_TOL8.Open Conn_T %>
下面做一個(gè)loginPost.asp文件也存在這個(gè)目錄下，這是關(guān)鍵，仔細(xì)看下面的代碼：

<%
'刪除maxTime時(shí)間內(nèi)部活動(dòng)的用戶,maxTime 在loginCONN.asp文件里面已經(jīng)定義好了
Conn_TOL8.Execute("Delete From onlyLogin where DATEDIFF(''s'',OLtime, now()) > "& maxTime & "")
'================================================================
Dim rs, ts, txt, sql, userName, userPass
if Request.Form("Submit")="Login" then
userName=Request.Form("userName")''獲取表單用戶登陸名
userPass=Request.Form("userPass")''獲取表單用戶登陸密碼
'由于我們這里討論的不是安全問題所以用戶密碼都沒有加密
Set rs = Server.CreateObject("ADODB.RECORDSET")
sql="SELECT * FROM users where userName = '' "& userName & "'' and userPass = '' "& userPass & "''"
rs.Open sql, CONN_TOL8,1,1
IF not rs.eof then
Call isOK(userName) '' 用戶名密碼正確調(diào)用次過程，isOK將會(huì)在下面的程序中定制。
else
Response.Write("<a href=javascript:history.go(-1)>用戶名或密碼錯(cuò)誤</a>")
Response.End()
end if
rs.Close
Set rs=Nothing
end if
Sub isOK(userName)
Dim Olip '' 數(shù)據(jù)庫中當(dāng)前登陸用戶名保存的ip
Dim Oltime '' 數(shù)據(jù)庫中當(dāng)前登陸用戶名保存的最后刷新網(wǎng)頁的時(shí)間，是計(jì)算用戶是否在線的重要數(shù)據(jù)。
Dim OLip1 '' 記錄當(dāng)前用戶登陸ip，用來區(qū)分是否為同一用戶的標(biāo)示
OLip1=Request.ServerVariables("REMOTE_ADDR")''取得提交登陸信息用戶的IP
Set ts=Conn_TOL8.execute("Select * FROM onlyLogin WHERE OLname=''"& userName & "''")
if not ts.eof then '' 查詢數(shù)據(jù)庫是否有此用戶的登陸過的信息
OLtime=ts("OLtime")
OLip=ts("OLip")
if OLip1<>OLip and DateDiff("s",OLtime,now()) < maxTime then
''上句判斷如果提交登陸用戶ip不是數(shù)據(jù)庫中最后紀(jì)錄的用戶ip并且
''用戶的最后活動(dòng)時(shí)間和當(dāng)前時(shí)間相隔并沒超過規(guī)定的秒數(shù)則確認(rèn)此用戶當(dāng)前在線
Response.Write "<a href=javascript:history.go(-1)>此用戶目前在線，你無法從其他地方登陸此賬號(hào)！</a>"
Response.End()
else
''否則的話判定登陸成功付值給session
Session("lgName")=userName
Session("lgPass")=userPass
Response.Redirect "loginOK.asp"
Response.End
end if
else
''如果數(shù)據(jù)庫沒有次登陸用戶紀(jì)錄則執(zhí)行下面的語句
Dim ls
Set ls=Server.CreateObject("ADODB.RECORDSET")
ls.Open"Select * From onlyLogin",CONN_TOL8,2,2
ls.ADDNEW
ls("OLname")=userName
ls("OLip")=OLip1
ls("OLtime")=NOW()
ls.UPDATE
ls.Close
Set ls=Nothing
''判定登陸成功付值給session
Session("lgName")=userName
Session("lgPass")=userPass
Response.Redirect "loginOK.asp"
Response.End
end if
End Sub %>
登陸成功后葉面會(huì)跳轉(zhuǎn)到loginOK.asp
<style type="text/css">

</style>
<% IF Session("lgName")<>"" then %>
您登陸成功了�。�！下面是潛入網(wǎng)頁內(nèi)的iframe為的是在規(guī)定的時(shí)間刷新網(wǎng)頁向服務(wù)器報(bào)告你是否在線
為了便于區(qū)分，frame網(wǎng)頁我們采用了白色作為底色
<iframe border=0 name=new_date marginwidth=0 framespacing=0 marginheight=0 src="loginFrame.asp"
frameborder=0 noResize width=100 scrolling=no height=30 vspale="0"></iframe>
<% else %>
您沒有登陸哈
<% end if %>
下面要做的是loginFrame.asp

<% CONN_TOL8.Execute("Update onlyLogin Set OLtime=''"& NOW() & "'' where OLname = '' "& Session("lgName") & "''") %>
<html><head><meta http-equiv="refresh" content="<%=(maxTime-5)%>; url=""></head></html>
到此為止程序就完成了，這個(gè)程序的關(guān)鍵就是判定用戶是否在線。
上一篇文章：通過COM來獲取CookieContainer,簡(jiǎn)單又好用
下一篇文章：Flash遮蓋層的解決辦法

分享到： QQ空間新浪微博騰訊微博人人網(wǎng) 開心網(wǎng) 百度搜藏騰訊微博網(wǎng)易微博

国产又黄又粗又长又大的视频-色婷婷久久一区二区爽爽爽-欧美日本韩国国产在线观-尹人香蕉琪琪在现观看

域名注冊(cè)

虛擬主機(jī)

網(wǎng)站建設(shè)

企業(yè)郵局

網(wǎng)絡(luò)營(yíng)銷

網(wǎng)站備案

服務(wù)器租用

ASP防止同時(shí)登陸的問題