一个邪门的程序

welru welru 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我写了一个程序,用来统计网站中某个关键词的搜索情况.其中有统计搜索次数.但是每次搜索次数的字段都自动加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

以上这些是写在一个过程里的,根据我的测试 ,我发现这个过程每次都自动执行了两次.
...全文

相关推荐

评论 8
收藏 已收藏
分享
返回顶部
welru
疑难问题 22,298 成员 121,727 内容