userinfo_top.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 20 行

<% 
if request.cookies("bookshop")("username")="" then
   response.write "未处理订单"&"("&"<a href=myuser.asp?action=dingdan>0</a>"&")" 
                                
else

dim dacx
set dacx=server.CreateObject("adodb.recordset")
    dacx.Open "select distinct(dingdan) from shop_action where username='"&request.Cookies("bookshop")("username")&"' and zhuangtai=1 ",conn,1,1
    if dacx.recordcount=0 then
       response.write "未处理订单"&"("&"<a href=myuser.asp?action=dingdan>0</a>"&")" 
    else
       response.write "未处理订单"&"("&"<a href=myuser.asp?action=dingdan><font color=red>"&dacx.recordcount&"</font></a>"&")" 
    end if
    dacx.Close
set dacx=nothing

end if
%>