同一個帳號不能同時登陸的問題

完成后在新建一個loginCONN.asp文件復(fù)制下面的代碼保存！是連接數(shù)據(jù)庫的，這個我就不多解釋了……
%

Dim CONN_Net118
Dim Conn_T
Dim mmdd
mmdd="onlyNet118.mdb"
Set CONN_Net118 = Server.CreateObject("ADODB.Connection")
Conn_T="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath(""mmdd"")
on error resume next
CONN_Net118.Open Conn_T

%>

下面我們做一個loginPost.asp文件也存在這個目錄下，這個比較關(guān)鍵，仔細(xì)看下面的代碼：
!--#include file="loginCONN.asp" -->
%
'刪除maxTime時間內(nèi)部活動的用戶,maxTime 在loginCONN.asp文件里面已經(jīng)定義好了
Conn_Net118.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_Net118,1,1
IF not rs.eof then
Call isOK(userName) ' 用戶名密碼正確調(diào)用次過程，isOK將會在下面的程序中定制。
else
Response.Write("a href=javascript:history.go(-1)>用戶名或密碼錯誤/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ù)。
Dim OLip1 ' 記錄當(dāng)前用戶登陸ip，用來區(qū)分是否為同一用戶的標(biāo)示
OLip1=Request.ServerVariables("REMOTE_ADDR")'取得提交登陸信息用戶的IP
Set ts=Conn_Net118.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)前時間相隔并沒超過規(guī)定的秒數(shù)則確認(rèn)此用戶當(dāng)前在線
Response.Write "a href=javascript:history.go(-1)>此用戶目前在線，你無法從其他地方登陸此賬號！/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_Net118,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 %>
如果你看得懂a(chǎn)sp文件一看便知道登陸成功后葉面會跳轉(zhuǎn)到loginOK.asp下面我們馬上看看這個葉面的代碼吧
style type="text/css">
!--
body {background-color: #FF9900;}
-->
/style>
% IF Session("lgName")>"" then %>
您登陸成功了?。?！下面是潛入網(wǎng)頁內(nèi)的iframe為的是在規(guī)定的時間刷新網(wǎng)頁向服務(wù)器報告你是否在線
為了便于區(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 %>
您沒有登陸哈 歡迎光臨站長資訊網(wǎng)：http://www.Net118.com
% end if %>

如果你是細(xì)心之人馬上就知道下面我么要做的是loginFrame.asp
!--#include file="loginCONN.ASP" -->
% CONN_Net118.Execute("Update onlyLogin Set OLtime='" NOW() "' where OLname = ' " Session("lgName") "'") %>
html>head>meta http-equiv="refresh" content="%=(maxTime-5)%>; url="">/head>/html>