一个邪门的程序
我写了一个程序,用来统计网站中某个关键词的搜索情况.其中有统计搜索次数.但是每次搜索次数的字段都自动加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
以上这些是写在一个过程里的,根据我的测试 ,我发现这个过程每次都自动执行了两次.
代码:
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
以上这些是写在一个过程里的,根据我的测试 ,我发现这个过程每次都自动执行了两次.
...全文
相关推荐
小游戏源码-古埃及对称填图智商测试,太邪门了.rar
小游戏源码-古埃及对称填图智商测试,太邪门了.rar
c#嵌入一个外部exe程序到程序窗体
将一个外部exe程序整个嵌入到当前程序界面中,让其融为一体。
一个程序调用另一个程序并传送参数
C#写的一个DEMO程序,有两个项目,A项目通过API调用B项目的EXE文件,并将A项目里面的路径通过参数的形式,传入到B项目的EXE文件中,并启动B项目的EXE程序,程序启动后,接收到参数传过来的路径,并显示路径下所有文件名。
我的第一个Java程序
NULL 博文链接:https://jwzs.iteye.com/blog/547625
第一个Mybatis程序
这是第一个例子,我是按照这个例子来写的,自己看过视频的话,很简单


疑难问题
