还得看你的方法是返回啥类型的,如果是void,直接return;
string 就retrn “”;
其它的就return null;
退出页面:Response.Write("<script>window.close()</script>")
分类: 电脑/网络 >>程序设计 >>其他编程语言问题描述:
[url=zhidao.baidu/question/javascript:history.go(-1)]用户表: user00
用户名:username
密 码:password
online =0 是不在线 =1 是在线
我现在只能通过退出来实现 online=0 但我看库里面99%都没有点退出的。全是直接关闭浏览器~~~还有怎么防止同一用户同时登陆??
现在一台机器登陆后。在另一台一样可以登陆。无法判断。
高手能给出代码嘛???
我没有分了。就20分。以后有分一定补。江湖救急。。。
领导让我做。我搞不定了。请教高手
登陆验证的代码:
<!--#include file="../HMconnection"-->
<!--#include file="../MD5/md5"-->
<!--#include file="webconfig"-->
<%dim username,password,userip
username=trim(request("username"))
password=trim(request("password"))
password=replace(password," ","")
password=replace(password,"'","")
password=md5(password)
UserIP=Request.ServerVariables("REMOTE_ADDR")
set rs=server.createobject("adodb.recordset")
sql="select * from user00 where username= '"&username&"' and Lockuser=0"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
%>
<script language="vbscript">
msgbox"你输入的帐号不存在,或己被管理员锁定!"
location.href="javascript:history.go(-1)"
</script>
<%
rs1.close
set rs1=nothing
response.end
else
if rs("password")<>password then
%>
<script language="vbscript">
msgbox"您输入的密码有误,请仔细检查!"
location.href="javascript:history.go(-1)"
</script>
<%
response.end
else
set rs1=server.createobject("adodb.recordset")
sql1="select * from user00 where username='"&username&"'"
rs1.open sql1,conn,1,3
rs("logins")=rs("logins")+1
rs("lastlogin")=Now()
rs("online")=1
rs("loginIP")=Request.ServerVariables("REMOTE_ADDR")
rs.update
session("username")=username
logins=rs("logins")
username=rs("username")
regtime=rs("Regtime")
session("password")=password
session("grade")=rs("grade")
session.timeout=200
rs1.close
set rs1=nothing
%>
<%
end if
end if%>
<%if request("wangye")="memberlogin" then
response.Write("window.close()")
else
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
%>
问题补充:<!--#include file="HMconnection"-->
<%
username=session("username")
dim uloRS,uloSQL
set uloRS=server.createobject("adodb.recordset")
uloSQL="select * from user00 where username='"&username&"'"
uloRS.open uloSQL,conn,1,3
if not uloRS.EOF then
uloRS("online")=0
uloRS("logoutTime")=now()
uloRS.Update
uloRS.close
set uloRS=nothing
end if%>
<%
session("username")=""
session("password")=""
session("grade")=""
response.redirect Request.ServerVariables("HTTP_REFERER")%>
退出代码
解析:
[/url]rs("online")=1 不要把这一句写入数据库,改为session("online")=1,这样关闭浏览器后session("online")自动清空
我也碰到过这样的问题,有以下三点可以解决一、原因是IIS应用池设置不当,因有的程序很吃内存,所以对于这样子的情况,IIS应用池的优化一定要注意,不能设置内存回收.OK.
二、开启ASP.NET State Service服务:
选择管理工具->服务,找到ASP.NET State Service,点开后选择启动,并将启动类型设为自动。
三、设置程序配置文件:
将web.config打开,会看到有一行是<sessionState mode="InProc" stateConnectionString="tcpip=127.0.0.1:42424" timeout="20"/>,如果没有,请在<system.web>的下一行添加,再将其中的InProc改为 StateServer,保存即可。(注:如果不修改,后台登录验证状态将会时断时续,表现在很短的时间内就出现重新登录框)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)