数据更新问题。
由于您和其他用户试图同时改变同一数据,导致_Microsoft_Jet_数据库引擎停止进程
access的数据库,在访问量大的时候,就出现那问题了。以下是出现问题的文件代码。
Set rs = conn.execute("select top "&t&" a.url,a.chk,a.id,a.[坐标],a.[用户名] from [广告链接] as a inner join [用户信息] as b on a.[用户名] = b.[用户名] where b.[积分]>0 and a.id>"&maxid&" order by a.id")
i = 0
id = ""
Do While Not rs.eof
temp = temp &rs("ID")&chr(9)&rs("url")&chr(9)&Replace(rs("坐标"),"_",chr(9))&chr(13)&chr(10)
conn.execute("update [用户信息] set [积分]=[积分]-0.2 where 用户名='"&rs("用户名")&"'")
id = rs("id")
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select top 1 id,counts,adddate,urlid from [UrlLog] where adddate=#"&Date()&"# and urlid="&rs("id"),conn,1,3
If rs1.eof Then
rs1.addnew
rs1("adddate")=Date()
rs1("urlid") = rs("id")
rs1("counts") = 1
rs1.update
Else
rs1("counts") = rs1("counts") + 1
End If
rs1.update
rs1.close
Set rs1=Nothing
i = i +1
rs.movenext
Loop
rs.close
Set rs=Nothing