userinfo.asp

网上书店是指在网上建立一个在线销售的图书平台,购书者可以实现在线定单提交,达到买书的目的.

<% response.write "<table width=144 border=0 align=center cellpadding=0 cellspacing=0><tr><td>"
response.write "<img src=images/tread_info.gif width=144 height=19></td></tr><tr><td height=41 background=images/bg_cartinfo.gif>"
response.write "<div align=center>"
if request.cookies("bookshop")("username")="" then
				response.write "您还没有登录！"
else
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_books.huiyuanjia,shop_action.bookcount from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.zhuangtai=1 and shop_action.username='"&trim(request.Cookies("bookshop")("username"))&"' ",conn,1,1
dim ckxp
set ckxp=server.CreateObject("adodb.recordset")
ckxp.Open "select distinct(dingdan) from shop_action where username='"&request.Cookies("bookshop")("username")&"' and zhuangtai=1 ",conn,1,1
if ckxp.recordcount=0 then
response.write "欢迎<font color=red>"&Request.Cookies("bookshop")("username")&"</font>来临<br>您目前还没有未处理订单<br>共计:0.00元"
else
dim shopjiage
do while not rs.eof
shopjiage=formatnumber(round(shopjiage+rs("huiyuanjia")*rs("bookcount"),2),2)
rs.movenext
loop
response.write "欢迎<font color=red>"&request.cookies("bookshop")("username")&"</font>来临<br>您目前有"&ckxp.recordcount&"笔未处理订单<br>共计："&shopjiage&"元"
end if
ckxp.Close
set ckxp=nothing
rs.close
set rs=nothing
end if
response.write "<br><a href=myuser.asp?action=login><img src=images/user_login.gif width=54 height=18 border=0></a>&nbsp;&nbsp;<a href=reg.asp><img src=images/user_submit.gif width=54 height=18 border=0></a></div></td></tr><tr><td height=3><img src=images/pic_cartinfobottom.gif width=144 height=3></td></tr></table>"
%>