📄 cnbbr_usercenter_left.asp
字号:
<%
Function Disp_CnbbrCenterLeft()
With Response
.Write "<table border=0 cellpadding=0 cellspacing=1 width=150 class=menutdbg_1 align=""Center"">"& Vbcrlf
.Write " <tbody>"& Vbcrlf
.Write " <tr class=menutdbg_1>"& Vbcrlf
.Write " <td width=""100%"" align=""center"" height=26><span Style=""color: #FFFFFF""><b>用户管理面板</b></span></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr bgcolor=""#FFFFFF"">"& Vbcrlf
.Write " <td align=""left"">"& Vbcrlf
.Write " <table border=0 cellpadding=0 cellspacing=0 width=148 align=left>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=center class=menutdbg_1 valign=bottom colspan=3 height=2></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" background=""skins/"& SKINS_FOLDER &"/GrayBg.gif"" valign=""bottom"" colspan=""3"" height=""22""><a href=""help.asp""><font class=""fontcolor_2"">系统帮助</font></a></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" class=menutdbg_1 valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" background=""skins/"& SKINS_FOLDER &"/GrayBg.gif"" valign=""bottom"" colspan=""3"" height=""22""><a href=""CnbbrPay.asp""><font class=""fontcolor_2"">在线充值</font></a></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" class=menutdbg_1 valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" background=""skins/"& SKINS_FOLDER &"/GrayBg.gif"" valign=""bottom"" colspan=""3"" height=""22""><a href=""cnbbrmsg_Receive.asp""><font class=""fontcolor_2"">站内短信</font></a></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" class=menutdbg_1 valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr height=""22"">"& Vbcrlf
.Write " <td width=3 class=menutdbg_1></td>"& Vbcrlf
.Write " <td width=16 valign=""center"" class=""titletd""><img src=""Skins/"& Skins_Folder &"/arrow_down.gif"" border=0 alt=""""></td>"& Vbcrlf
.Write " <td width=125 valign=""bottom"" class=""titletd""> <B>我是买家</B></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" background=""Skins/"& Skins_Folder &"/Dot.gif"" valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" valign=""bottom"" colspan=""3"" height=""22"">"& Vbcrlf
.Write " <a href=""BBR_Buy_Auction.asp"">竞拍中的商品</a> <br>"& Vbcrlf
.Write " <a href=""BBR_Buy_Success.asp"">已买入的商品</a> <br>"& Vbcrlf
.Write " <a href=""BBR_Buy_Ykj_Auction.asp"">一口价成交商品</a><br>"& Vbcrlf
.Write " <a href=""BBR_QiuGou_Add.asp"">发布求购信息</a> "& Vbcrlf
.Write " </td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" class=menutdbg_1 valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr height=""22"">"& Vbcrlf
.Write " <td width=3 class=menutdbg_1></td>"& Vbcrlf
.Write " <td width=16 valign=""center"" class=""titletd""><img src=""Skins/"& Skins_Folder &"/arrow_down.gif"" border=0 alt=""""></td>"& Vbcrlf
.Write " <td width=125 valign=""bottom"" class=""titletd""> <B>我是卖家</B></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" background=""Skins/"& Skins_Folder &"/Dot.gif"" valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" valign=""bottom"" colspan=""3"" height=""22"">"& Vbcrlf
.Write " <a href=""bbr_Sell_Auction.asp"">出售中的商品</a><br>"& Vbcrlf
.Write " <a href=""bbr_Sell_Success.asp"">已售出的商品</a><br>"& Vbcrlf
.Write " <a href=""bbr_Sell_Ykj_Auction.asp"">一口价成交商品</a>"& Vbcrlf
.Write " </td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" class=menutdbg_1 valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr height=""22"">"& Vbcrlf
.Write " <td width=3 class=menutdbg_1></td>"& Vbcrlf
.Write " <td width=16 valign=""center"" class=""titletd""><img src=""Skins/"& Skins_Folder &"/arrow_down.gif"" border=0 alt=""""></td>"& Vbcrlf
.Write " <td width=125 valign=""bottom"" class=""titletd""> <B>信用评价</B></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" background=""images/Dot.gif"" valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" valign=""bottom"" colspan=""3"" height=""22"">"& Vbcrlf
.Write " <a href=""BBR_Appraise_Buyer.asp"">评价商品买家</a><br>"& Vbcrlf
.Write " <a href=""BBR_Appraise_Seller.asp"">评价商品卖家</a><br>"& Vbcrlf
.Write " </td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
Dim RsAdminShop
if Request.Cookies(super_user)("uid")<>"" and isNumeric(Request.Cookies(super_user)("uid")) then
sql="select * from shops where shopownerid="& Request.Cookies(super_user)("uid")
set rsadminshop=server.createobject("ADODB.recordset")
rsadminshop.open sql,conn,1,1
CnbbrConnTimes
if rsadminshop.eof then
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" class=menutdbg_1 valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.write " <tr>"& Vbcrlf
.write " <td align=""center"" valign=""bottom"" colspan=""3"" height=""22"" class=""titletd""><a href=""regshop.asp"" class=MenuColor_1><b>免费开店</b></a></td>"& Vbcrlf
.write " </tr>"& Vbcrlf
else
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" class=menutdbg_1 valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr height=""22"">"& Vbcrlf
.Write " <td width=3 class=menutdbg_1></td>"& Vbcrlf
.Write " <td width=16 valign=""center"" class=""titletd""><img src=""Skins/"& Skins_Folder &"/arrow_down.gif"" border=0 alt=""""></td>"& Vbcrlf
.Write " <td width=125 valign=""bottom"" class=""titletd""> <B>店铺管理</B></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" background=""Skins/"& Skins_Folder &"/Dot.gif"" valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" valign=""bottom"" colspan=""3"" height=""22"">"& Vbcrlf
.Write " <a href=""shop/index.asp?shopid="& rsadminshop("shopid") &""">查看我的店铺</a><br>"& Vbcrlf
.Write " <a href=""shopAdminVip.asp""><span class=fontcolor_2>店铺自助缴费</Span></a><br>"& Vbcrlf
.Write " <a href=""shopadmin_Commend.asp"">首页店铺推荐</a><br>"& Vbcrlf
.Write " <a href=""shopadmin_info.asp?BBRpath="& Server.URLEncode(RsAdminShop("ShopClassPath")) &""">店铺基本设置</a><br>"& Vbcrlf
.Write " <a href=""shopadmin_help.asp"">店铺购物帮助</a><br>"& Vbcrlf
.Write " <a href=""shopadmin_credit.asp"">店铺诚信安全</a><br>"& Vbcrlf
.Write " <a href=""Search_Link.asp"">店铺链接管理</a><br>"& Vbcrlf
.Write " </td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
end if
end if
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" class=menutdbg_1 valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr height=""22"">"& Vbcrlf
.Write " <td width=3 class=menutdbg_1></td>"& Vbcrlf
.Write " <td width=16 valign=""center"" class=""titletd""><img src=""Skins/"& Skins_Folder &"/arrow_down.gif"" border=0 alt=""""></td>"& Vbcrlf
.Write " <td width=125 valign=""bottom"" class=""titletd""> <B>个人信息</B></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" background=""Skins/"& Skins_Folder &"/Dot.gif"" valign=""bottom"" colspan=""3"" height=""2""></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td align=""center"" valign=""bottom"" colspan=""3"" height=""22"">"& Vbcrlf
.Write " <a href=""bbrhome.asp"">查看用户信息</a><br>"& Vbcrlf
.Write " <a href=""RegUserDetail.asp"">用户信息修改</a><br>"& Vbcrlf
.Write " <a href=""checkidpath.asp"">用户身份认证</a><br>"& Vbcrlf
.Write " <a href=""bbrPayRecord.asp""><span class=fontcolor_2>充值记录查询</span></a><br>"& Vbcrlf
.Write " </td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " </table>"& Vbcrlf
.Write " </td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " <tr class=menutdbg_1><td width=""100%"" align=""center"" height=""1""></td></tr>"& Vbcrlf
.Write " <tr class=menutdbg_2><td width=""100%"" align=""center"" height=""1""></td></tr>"& Vbcrlf
.Write " <tr class=menutdbg_1><td width=""100%"" align=""center"" height=""2""></td></tr>"& Vbcrlf
.Write " <tr class=menutdbg_2><td width=""100%"" align=""center"" height=""1""></td></tr>"& Vbcrlf
.Write "</tbody>"& Vbcrlf
.Write "</table>"& Vbcrlf
End With
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -