武汉95号汽油价格:ADODB.Recordset (0x800A0BB9)

来源:百度文库 编辑:高校问答 时间:2024/04/26 22:24:30
<%
else

dim IntOrderNum
set rsvip=server.CreateObject("adodb.recordset")
rsvip.Open "select distinct(goods) from orders where username='"&strUserName&"'and state=2 ",conn,1,3(出错行)
IntOrderNum = rsvip.recordcount
rsvip.Close

rsvip.open "select DV_User.GrpID,TimesGrp.GrpName,TimesGrp.Stars from DV_User Inner Join TimesGrp On DV_User.GrpID = TimesGrp.GrpID where username='"&strUserName&"' ",conn,1,1
strTitle = rsVip("GrpName")
LngDiscount = rsVip("Stars")
rsvip.close
set rsvip=nothing

if IntOrderNum=0 then %>

rsvip.Open "select distinct goods from orders where username='"&strUserName&"'and state=2 ",conn,1,3

改成这样,去掉括号