一个邪门的程序
welru 2009-04-11 02:47:27 我写了一个程序,用来统计网站中某个关键词的搜索情况.其中有统计搜索次数.但是每次搜索次数的字段都自动加1.比如说,第一次搜索是1,但它的值却是二.
代码:
Set objRs = Server.CreateObject("ADODB.RECORDSET")
objRs.Open "Select * From [Sys_SurchInfos] Where (Keyword = '"&Keyword&"' AND SurchType = '"&SurchType&"' And FromUrl = '"&FromUrl&"' And Ver = '"&Ver&"')",objConn,1,3
If objRs.Eof and objRs.Bof Then
objRs.Addnew
objRs("Keyword") = Left(Keyword,100)
objRs("ReturnNum") = ReturnNum
objRs("SurchNum") = 1
objRs("Ver") = Ver
objRs("SurchType") = SurchType
objRs("InputTime") = Now()
objRs("ReNewTime") = Now()
objRs("FromUrl") = FromUrl
objRs.Update
Else
objRs("SurchNum") = objRs("SurchNum")+1
objRs("ReNewTime") = Now()
objRs("ReturnNum") = ReturnNum
objRs.Update
End If
objRs.Close
Set objRs = Nothing
以上这些是写在一个过程里的,根据我的测试 ,我发现这个过程每次都自动执行了两次.