Question

asp里，系统时间写入ACCESS

我换了一种方式

Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from tbUser ",conn,1,3 rs("sj")=now()
rs.update
rs.close
set rs=nothing

这样默认写进了第一个帐号，不管登陆哪个帐号都写进第一个帐号，怎么回事啊

Answer 1

好，我回复了，还真不好意思啊。我还是把这代码贴一下，嘻嘻
这一句的 user_name 这个变量并没有在之前设定过。也没有被赋值，
所以，要不你在前面加一个
dim user_name
user_name =Request("user_name")
或者直接在where 后面写成user_name='" & Request("user_name") & "' “这种

Answer 2

登陆时间不用表单，也不用传递值。
直接在update中使用系统时间就可以了

sql = "update tbUser set sj=now() where user_name='" & Request("user_name") & "'"

Answer 3

value="<%response.write formatdatetime(now())%>"

这个换成
value="<%=now()%>"

试试，没用过你的写法

Answer 4

这个是因为你数据库的字段SJ 该字段数据类型是 日期时间格式 所以你用CONN.EXECUTE的时候sql里面需要将时间

sql = "update tbUser set sj= #'" & Request("sj") & "'# where user_name=" & Request("user_name")

加上 # 好久不用ASP了 可能我加的#位置不对，具体你在自己检查下

Answer 5

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next 这个循环超限了
应该你的数据有12个
当你循环到最大的时候肯定会出现13个,这个绝对超限
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
if UBound(MM_fields)<MM_i then
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
End if
Next

Answer 6

把你的sql打印出来 看一下你又没有取到用户名 而且你的update 有问题 用户名要用引号括起来

追问

上面的用户密码验证登陆是正常的，就是数据库写不进时间，我用的是ACCESS

追答

加引号了没 你的where 子句里就没有引号 执行当然有问题

追问

呃...我登陆很正常，我是想加个登陆时间，自己加的。所以多加了一个读取系统时间，check.asp里面加了下面一条修改数据库的语句。
sql = "update tbUser set sj='" & Request("sj") & "' where user_name=" & Request("user_name")
conn.Execute(sql)
我改成
into_db = "insert into tbUser ( sj ) values('"+Request.Form("sj")+"')"
conn.Execute(into_db)
也写不进数据库

追答

sql 打印出来看一眼

追问

呃...很惆怅的告诉你，我不知道什么是打印SQL..我汗，我Q339231725

追答

response.write