编程论坛 → ASP技术论坛

登錄次數的問題!

xunmi_love 发布于 2007-11-23 14:26， 868 次点击

<%
names=request.form("use")
pwd=request.form("pwd")
dim conn
dim connstr
c&server.mappath("data\bb.mdb")
set conn=server.createobject("adodb.connection")
conn.open connstr
ssql="select * from userss where names='"&names&"'"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open ssql,conn,1,3
if pwd<>rs("pwds") then
response.write "<link rel='stylesheet' type='text/css' href='style.css'>"
response.write "<body bgcolor='#ffffef'>"
response.write "Sorry,請輸入正確的用戶名和密碼 =====<a href=default.asp>返回</a>====="
rs.close
response.end()
end if
ssql="update userss Dcount=Dcount+1 where names='"&names&"'"
application.lock()
rs.open ssql,conn,1,3
application.Unlock()
session("nana")=rs("TruName")
session("keke")=rs("oss")
response.redirect "default2.asp"
rs.close
%>

數據庫中的Dcount不加1.別的地方都沒有問題.也不報錯.

這個是我抄別人的.請各位幫下忙

8 回复

#2

madpbpl2007-11-23 16:21

end if
ssql="update userss Dcount=Dcount+1 where names='"&names&"'"
把上面整块改一下，改成
else
rs("Dcount")=rs("Dcount")+1
end if
后面那句
rs.open ssql,conn,1,3
去掉

#3

yms1232007-11-23 16:32

ssql="update userss Dcount=Dcount+1 where names='"&names&"'"
application.lock()
rs.open ssql,conn,1,3
application.Unlock()
这里改为
rs("Dcount")=rs("Dcount")+1
rs.update

#4

madpbpl2007-11-23 16:34

对的，版主这个对，我漏了重要的一句
rs.update
手误，不好意思。

#5

xunmi_love2007-11-24 11:50

xunmi_love

還是沒有寫入Dcount.....你們兩位的都試了一下.MADPBPL的我也加上了update.
好像還是以前那種情況.沒有報錯.

請再幫忙一次

#6

yms1232007-11-24 14:00

楼主检查一下是否mdb文件为只读，或者说缺少写入权限？

#7

hmhz2007-11-24 14:35

这样写的

程序代码：

<%
set rs=server.createobject("adodb.recordset")
rs.open "select Dcount from userss where names='"&names&"'",conn,1,3
if not(rs.eof and rs.bof) then
rs("Dcount")=rs("Dcount")+1
end if
rs.update
rs.close
set rs=nothing
%>

#8

xunmi_love2007-11-24 16:54

問題解決!

問題解決了.....謝謝各位

#9

jfjfgz2007-11-24 16:56

:victory:

1