<% response.write "<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><td>"
response.write "<img src=images/tread_info.gif width=100% height=20></td></tr><tr><td height=41 bgcolor=#Efefef>"
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=round(shopjiage+rs("huiyuanjia")*rs("bookcount"),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
if request.cookies("bookshop")("username")="" then
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>"
else
response.write "<br><a href=#>我的账户</a>&nbsp;&nbsp;<a href=logout.asp>注销登陆</a>"
end if
response.write "</div></td></tr><tr><td height=3><img src=images/pic_cartinfobottom.gif width=100% height=3></td></tr></table>"
%>
