ASP中的怪问题折腾了我很久

2007-07-04 09:16:09 337 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

同花顺 python量化交易_开启量化第一步！同花顺iFinD数据接口免费版简易操作教程... 来源：雪球App，作者：同花顺-iFinD，(https://xueqiu.com/6706494343/141951051)金融市场波动频繁，投资往往会夹杂非理性的情绪。而量化交易，旨在以先进的数学模型替代人为的主观判断，利用计算机技术从庞大的历史数据中海选能带来超额收益的多种“大概率”事件以制定策略，辅助投资者进行理性投资。不过计算机分析存在一定的技术门槛，有没有简单易学的量化交易方式，能够... 阅读详情

网页提交后写数据库为何每次都写两次，我仔细查看了代码也没有什么问题。

情况如下，编写了一个会员积分功能，当用户登陆后，对应的登陆积分和登陆次数都相应增加，但我每次登陆后都双倍的增加了。也就是对应增加积分的功能块执行了两次。请朋友们分析一下原因。注：增加积分的功能我单独进行测试是正常的。在用户登陆后进行触发就会出问题

代码如下
Sub SubAddJifen(userID)
'=================================================
'过程名：SubAddJifen
'作用：更新登陆积分计数,用户每登陆一次,加100分
'
'=================================================

'sql2="update integral set loginIntegral=loginIntegral+100,loginCounts=loginCounts+1 where userID='"&userID&"'"
'conn.execute(sql2)
strSql="select * from integral where userID='"&userID&"'"
Set RsJf=Server.CreateObject("ADODB.RecordSet")
RsJf.open strSql,conn,1,3
if not RsJf.eof then
RsJf("loginCounts")=RsJf("loginCounts")+1
RsJf("loginIntegral")=RsJf("loginIntegral")+100
RsJf.update
response.Write("Integral loginCounts:"&RsJf("loginCounts")&"<br>")
response.Write("Integral loginIntegral:"&RsJf("loginIntegral")&"<br>")
end if
RsJf.close
Set RsJf=nothing

End Sub

登陆执行代码如下：

userID=trim(request("userID"))
userPwd=trim(request("userPwd"))
sql="select ID,userID,userPwd,UserName,Email,Phone from users where userID='"&userID&"' and userPwd='"&userPwd&"'"
'set rs=conn.execute(sql)
set rs=server.createObject("adodb.recordSet")
rs.open sql,conn,1,1
If rs.eof then
response.redirect "noPurview.asp"
Else

session("login")=true

rs.close
set rs=nothing
Call SubAddJifen(userID)

conn.close
set conn=nothing
response.redirect "member.asp"
end if

...全文