ASP QQ互联 user.asp 传递回来的数据和数据库核对 有就直接提取 没有就直接写入后再读取 大家帮我看看那地方有问题
<%result = qc.CheckLogin()
If IsArray(result) Then
result = qc.GetAccessToken(result)
qqid = result(0)
result = qc.GetUserInfo(result)
nickname = qc.GetUserName(result)
Response.Write "你的用户名称:" & UTF2GB(nickname) & "<br/><br/><br/>"
Response.Write "QQID:" & qqid & "<br/><br/><br/>"
Response.Write "QQID:" & UserSex & "<br/><br/><br/>"
Response.Write "头像:<img src='http://qzapp. & QQ_OAUTH_CONSUMER_KEY & "/" & qqid & "/100' width='100'/>"
Else
Response.Write("登录失败")
End If
sql="select * from user where Userid='"&qqid&"'"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
sql="select * from user "
rs.open sql,conn,1,3
rs.addnew
rs("Userid")=& qqid &
rs("useradmin")= & UTF2GB(nickname) &
rs("sex")= & UserSex &
rs("User_Pic")="<img src='http://qzapp. & QQ_OAUTH_CONSUMER_KEY & "/" & qqid & "/100' width='100'/>"
sql="select * from user where Userid='"&qqid&"' "
set rs=conn.execute(sql)
session("username")=rs("id")
sql="update user set dlcs=dlcs+1 where id=" & session("username") '登陆次数+1
conn.execute(sql)
Response.Write("/pc/axx.asp")
end if
sql="select * from user where Userid='"&qqid&"' "
set rs=conn.execute(sql)
session("username")=rs("id")
sql="update user set dlcs=dlcs+1 where id=" & session("username") '登陆次数+1
conn.execute(sql)
Response.Write("/pc/axx.asp")
%>
ASP QQ互联 user.asp 传递回来的数据和数据库核对 有就直接提取 没有就直接写入后再读取 大家帮我看看那地方有问题
