统计会员在线时间不能写入数据库有关问题 高分求解
日期：2014-05-17 浏览次数：20982 次
统计会员在线时间不能写入数据库问题 高分求解
我用3个文件来完成 一个是登陆界面 输入账号和密码
一个是处理页面 代码如下
<!-- #INCLUDE file="../share/connectdb.asp" -->
<%dim strname,strpassword,msg,msg1,msg2
strname=trim(Request.Form("wymc"))
strpassword=Request.Form("wykl")
set rswy=server.CreateObject("ADODB.Recordset")
sqlwy="select * from wyb where wymc='"&strname&"' and wykl='"&strpassword&"'"
rswy.Open sqlwy,conn,3,3
msg1="用户或口令错误！"
msg2="您还不是正式会员，没有会员发布和修改信息的权限！"
if not rswy.eof then
set session("member")=rswy
set rswy=nothing
else
Response.Redirect "error.asp?msg="&msg1&""
end if
if session("member")("wyjb")=0 then
Response.Redirect "error.asp?msg="&msg2&""
end if
if session("member")("sshy")=1 then
set session("time1")=now()
set session("wymc")=wymc
Response.Redirect "../default.asp"
else
set session("time1")=now()
set session("wymc")=wymc
Response.Redirect "../default.asp"
end if
set conn=nothing
%>
还有一个自动刷新页面 代码如下
<!--#include file="../share/connectdb.asp"-->
<%
If DateDiff("s",session("time1"),Now())<50 Then
URL=Request.ServerVariables("Http_REFERER")
Response.Write("<meta http-equiv=""refresh"" content=""2;URL="&URL&""">")
Response.Write("")
Response.End
End IF
'目前数据量比较小，所以60秒刷新一次。
wymc=session("wymc")
set rss=server.CreateObject("adodb.recordset")
sqls="select * from wyb where wymc='"&wymc&"'"
rss.open sqls,conn,3,3
rss.addnew
if not rss.eof and rss.bof then
time=rs("time")
time=time+1
Conn.Execute("update wyb set time= '"&time&"' where wymc='"&wymc&"'")
rss.close
end if
%>
<html>
<head>
<META http-equiv=refresh content=60>
<META http-equiv=Pragma content=no-cache>
</head>
<body>
</body>
</html>
怎么数据库wyb表的time字段（数字类型）写入不了啊
------解决方案--------------------
time=rs("time")
time=time+1
Conn.Execute("update wyb set time= '"&time&"' where wymc='"&wymc&"'")
看看这个时间加1之后还是不是时间类型的。。不是的话把它转为时间类型
------解决方案--------------------
sqls="select * from wyb where wymc='"&wymc&"'"
rss.open sqls,conn,3,3
rss.addnew
if not rss.eof and rss.bof then
time=rs("time")
time=time+1
Conn.Execute("update wyb set time= '"&time&"' where wymc='"&wymc&"'")
rss.update
rss.close
end if
------------------------
看一下是不是这个原因
------解决方案--------------------
Conn.Execute("update wyb set time= '"&time&"' where wymc='"&wymc&"'")
time 是数据类型就不用加引号。。
update wyb set time= '1' where wymc='sdfsd'
就成这样了。。不知道是不是这个原因
------解决方案--------------------
我用3个文件来完成 一个是登陆界面 输入账号和密码
一个是处理页面 代码如下
<!-- #INCLUDE file="../share/connectdb.asp" -->
<%dim strname,strpassword,msg,msg1,msg2
strname=trim(Request.Form("wymc"))
strpassword=Request.Form("wykl")
set rswy=server.CreateObject("ADODB.Recordset")
sqlwy="select * from wyb where wymc='"&strname&"' and wykl='"&strpassword&"'"
rswy.Open sqlwy,conn,3,3
msg1="用户或口令错误！"
msg2="您还不是正式会员，没有会员发布和修改信息的权限！"
if not rswy.eof then
set session("member")=rswy
set rswy=nothing
else
Response.Redirect "error.asp?msg="&msg1&""
end if
if session("member")("wyjb")=0 then
Response.Redirect "error.asp?msg="&msg2&""
end if
if session("member")("sshy")=1 then
set session("time1")=now()
set session("wymc")=wymc
Response.Redirect "../default.asp"
else
set session("time1")=now()
set session("wymc")=wymc
Response.Redirect "../default.asp"
end if
set conn=nothing
%>
还有一个自动刷新页面 代码如下
<!--#include file="../share/connectdb.asp"-->
<%
If DateDiff("s",session("time1"),Now())<50 Then
URL=Request.ServerVariables("Http_REFERER")
Response.Write("<meta http-equiv=""refresh"" content=""2;URL="&URL&""">")
Response.Write("")
Response.End
End IF
'目前数据量比较小，所以60秒刷新一次。
wymc=session("wymc")
set rss=server.CreateObject("adodb.recordset")
sqls="select * from wyb where wymc='"&wymc&"'"
rss.open sqls,conn,3,3
rss.addnew
if not rss.eof and rss.bof then
time=rs("time")
time=time+1
Conn.Execute("update wyb set time= '"&time&"' where wymc='"&wymc&"'")
rss.close
end if
%>
<html>
<head>
<META http-equiv=refresh content=60>
<META http-equiv=Pragma content=no-cache>
</head>
<body>
</body>
</html>
怎么数据库wyb表的time字段（数字类型）写入不了啊
------解决方案--------------------
time=rs("time")
time=time+1
Conn.Execute("update wyb set time= '"&time&"' where wymc='"&wymc&"'")
看看这个时间加1之后还是不是时间类型的。。不是的话把它转为时间类型
------解决方案--------------------
sqls="select * from wyb where wymc='"&wymc&"'"
rss.open sqls,conn,3,3
rss.addnew
if not rss.eof and rss.bof then
time=rs("time")
time=time+1
Conn.Execute("update wyb set time= '"&time&"' where wymc='"&wymc&"'")
rss.update
rss.close
end if
------------------------
看一下是不是这个原因
------解决方案--------------------
Conn.Execute("update wyb set time= '"&time&"' where wymc='"&wymc&"'")
time 是数据类型就不用加引号。。
update wyb set time= '1' where wymc='sdfsd'
就成这样了。。不知道是不是这个原因
------解决方案--------------------
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
