Session("lgName")=userName
Session("lgPass")=userPass
Response.Redirect "loginOK.asp"
Response.End
end if
End Sub %>
如果你看得懂asp文件一看便知道登陆成功后叶面会跳转到loginOK.asp下面我们马上看看这个叶面的代码吧
<style type="text/css">
<!--
body {background-color: #FF9900;}
-->
</style>
<% IF Session("lgName")<>"" then %>
您登陆成功了！！！下面是潜入网页内的iframe为的是在规定的时间刷新网页向服务器报告你是否在线
为了便于区分，frame网页我们采用了白色作为底色
<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 %>
您没有登陆哈 欢迎光临站长资讯网：http://www.Net118.com
<% end if %>
如果你是细心之人马上就知道下面我么要做的是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>
好了到此为止我们的程序就完成了，这个程序的关键就是判定用户是否在线，而我也是无可奈何的是用了FRAME把定时刷新确定用户在线的关键性叶面嵌套在主程序的叶面里，实际的操作中你可以把那个iframe的宽和高改为0让一般用户看不到，或者让主程序的网页底色和那个嵌套进来的定时刷新的网页一样就ok了。
前不久在讨论区看到有人说用session和cookies之类的东西也能判定，这显然是不可能的呀，因为他们生成的对象都是对自己起作用的，其数据内容根本无法和其他用户共用。appliaction应该是实现这一目的的另一种方法，但是我一想到如果同是有很多用户登陆要为每个用户生成至少一个到三个appliaction对象就放弃了这个念头，因为那样我们原本可怜的服务器一定会被拖垮~