<%
Function DecodeCookie(Str)
Dim i
Dim StrArr,StrRtn
StrArr = Split(Str,"a")
For i = 0 to UBound(StrArr)
If isNumeric(StrArr(i)) = True Then
StrRtn = Chrw(StrArr(i)) & StrRtn
Else
StrRtn = Str
Exit Function
End If
Next
DecodeCookie = StrRtn
End Function
userid=DecodeCookie(Left(Request.Cookies("shop.koush.com")("userid"),255))
if userid="" or isnull(userid) then
count1=0
count2=0
price=0
oldlog=0
else
sqlstring="select shoptype from cnmdb_user where id="&userid
set rs1=connuser.execute(sqlstring)
usershoptype=rs1(0)
rs1.close
sqlstring="select count(*) as count1,sum(price) as price1,sum(price*agio/100) as price2 from contentinfo_1 a ,user_buylist b where a.id=b.goodsid and b.userid="&userid
set rs1=conn.execute(sqlstring)
count1=rs1(0)
if usershoptype="2" then
'response.write sqlstring
if isnull(rs1(2)) then
price=0
else
price=ROUND(rs1(2),1)
end if
else
if isnull(rs1(1)) then
price=0
else
price=rs1(1)
end if
end if
rs1.close
sqlstring="select count(*) as count2 from contentinfo_1 a ,user_boxroom b where a.id=b.goodsid and b.userid="&userid
set rs1=conn.execute(sqlstring)
count2=rs1(0)
rs1.close
sqlstring="select count(*) from info_buylog where paymentstatus<>'0' and purchaser="&userid
set rs1=conn.execute(sqlstring)
oldlog=rs1(0)
rs1.close
end if
%>
 |
介质分类 |
|
 |
|
|
|
|
音像制品经营许可证
|
购物车
