用户注册的问题
这是一段用户注册时,填写有推荐人并给推荐人加积分的代码。现在的情况是推荐人加积分实现了,注册人却没注册上。请教高手指点,谢谢
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql ="Select * from Siruo_user where username='"&userid&"'"
rs.open sql,conn,1,3
if rs.recordcount>=1 then
errma "注册没有成功","用户名已经被占用!"
response.End()
end if
rs.addnew
rs("username")=userid
rs("userpass")=md5(userpsd,16)
rs("sex")=sex
rs("jifen")=50
rs("blood")=1
rs("regtime")=now()
rs("dengji")=dengji1
rs("yearold")=yearold
rs("userques")=userques
rs("userans")=userans
rs("usermail")=usermail
set rs=server.CreateObject("adodb.recordset")
sql ="Select * from Siruo_user where username='"&tjuserid&"'"
rs.open sql,conn,1,3
rs("jifen")=rs("jifen")+20
rs.update
rs.close
set rs=nothing
closedb
------解决方案--------------------
添记录就用INSERT,ADDNEW既啰嗦还容易忘提交。