📄 admin_menu.asp
字号:
<!--#include file="WM.Sys_Cook.asp"-->
<%
Call WM_Content()
Sub WM_Content()
Dim Temp,Temp1,Temp2,T1,T2,T3
Temp = "":Temp1 = "":Temp2 = "":T1 = 0:T2 = 0:T3 = 0
Content = "<style>" & vbCrLf
Content = Content & "body{background-color:#5ABEEB;background:url(""img/left_bg.gif"");background-attachment:fixed}" & vbCrLf
Content = Content & ".LeftBG{background:#4DB4E2;filter:alpha(opacity=20)}" & vbCrLf
Content = Content & ".menubg {color:#ffffff; position:relative; filter:alpha(opacity=100);}" & vbCrLf
Content = Content & ".Titbg {background:none !important;color:#FFFFFF;position:relative;background:url(""img/Menu_BG.gif"");filter: Alpha(Opacity=70)}" & vbCrLf
Content = Content & "A{COLOR: #FFFFFF; TEXT-DECORATION: None}" & vbCrLf
Content = Content & "A:link {COLOR: #FFFFFF; TEXT-DECORATION: None}" & vbCrLf
Content = Content & "A:visited{COLOR: #FFFFFF; TEXT-DECORATION: None}" & vbCrLf
Content = Content & "A:hover {COLOR: #FFFFFF; TEXT-DECORATION: None}" & vbCrLf
Content = Content & "A:active {TEXT-DECORATION: none}" & vbCrLf
Content = Content & "</style>" & vbCrLf
Content = Content & "<table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0>" & vbCrLf
Content = Content & "<tr><td valign=top colspan=2 style='height:78px;padding:10px 10px;background:url(""img/admin.gif"")'>欢迎：<strong>"&Request.Cookies("Admin")("Admin")&"！</strong><br>权限："&WRMPS.GetReplace(WRMPS.GetReplace(AdminFlagGroup,0,"超级管理员"),1,"普通管理员")&"<br>操作：<a style='cursor:pointer' href=WM.Admin_EditPass.asp target=main><font color=#135294>修改密码</font></a></td></tr>" & vbCrLf
Content = Content & "<tr>" & vbCrLf
Content = Content & "<td valign=top width=25 style='padding:0 0 5px 2px'>" & vbCrLf
Content = Content & "<table width='100%' border=0 cellspacing=0 cellpadding=0>" & vbCrLf
Content = Content & " <tr><td><table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0 Class=mLabel1 id=tit onClick=""menudis(0)""><tr><td id=titfont Class=mLabeltit1>频道</td></tr></table></td></tr>" & vbCrLf
Content = Content & " <tr><td height=3></td></tr>" & vbCrLf
Content = Content & " <tr><td><table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0 Class=mLabel id=tit onClick=""menudis(1)""><tr><td id=titfont Class=mLabeltit>功能</td></tr></table></td></tr>" & vbCrLf
Content = Content & " <tr><td height=3></td></tr>" & vbCrLf
Content = Content & " <tr><td><table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0 Class=mLabel id=tit onClick=""menudis(2)""><tr><td id=titfont Class=mLabeltit>会员</td></tr></table></td></tr>" & vbCrLf
Content = Content & " <tr><td height=3></td></tr>" & vbCrLf
Content = Content & " <tr><td><table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0 Class=mLabel id=tit onClick=""menudis(3)""><tr><td id=titfont Class=mLabeltit>风格</td></tr></table></td></tr>" & vbCrLf
Content = Content & " <tr><td height=3></td></tr>" & vbCrLf
Content = Content & " <tr><td><table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0 Class=mLabel id=tit onClick=""menudis(4)""><tr><td id=titfont Class=mLabeltit>发布</td></tr></table></td></tr>" & vbCrLf
Content = Content & " <tr><td height=3></td></tr>" & vbCrLf
Content = Content & " <tr><td><table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0 Class=mLabel id=tit onClick=""menudis(5)""><tr><td id=titfont Class=mLabeltit>全局</td></tr></table></td></tr>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Content = Content & "</td>" & vbCrLf
Content = Content & "<td valign=top>" & vbCrLf
Content = Content & "<div style=""height:100%;width:100%;overflow-y:scroll;overflow-x:hidden;padding:0 2px 5px 2px"">" & vbCrLf
Content = Content & "<table cellspacing=1 cellpadding=0 width='100%' align='center' border=0>" & vbCrLf
'频道======================================
Content = Content & "<tr ID=ShowM><td>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=0 cellspacing=0>" & vbCrLf
If CheckAdminFlag("Channel") Then
Content = Content & "<tr><td>" & vbCrLf
Content = Content & "<table cellspacing=0 cellpadding=5 width='100%' align='center' border=0 class=LeftBG>" & vbCrLf
Content = Content & "<tr><td onClick='show(d00,e00,f00)' id='f00' class='Titbg Font4' style='cursor:pointer'><strong> 频道设置</strong></td></tr>" & vbCrLf
Content = Content & "<tr id='d00'><td class=menubg>" & vbCrLf
Content = Content & "·<a href=WM.Sys_Channel.asp target=main>频道管理</a> | <a href=WM.Sys_Channel.asp?Action=Add target=main>添加</a>" & vbCrLf
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Content = Content & "</td></tr><tr id='e00'><td height=6></td></tr>" & vbCrLf
End If
Temp = Temp & "<tr><td>" & vbCrLf
Temp = Temp & "<table cellspacing=0 cellpadding=5 width='100%' align='center' border=0 class=LeftBG>" & vbCrLf
Temp = Temp & "<tr><td onClick='show(g0,h0,i0)' id='i0' class='Titbg Font4' style='cursor:pointer'><strong> 频道模板</strong></td></tr>" & vbCrLf
Temp = Temp & "<tr id='g0'><td class=menubg>" & vbCrLf
Call DBConnBegin()
Set Rs = Conn.Execute("select WM_ID,WM_ChannelName,WM_Module from WM_Channel where WM_Key = 1 And WM_Module <> 0 And WM_Module <> 3 and WM_Module <> 5 Order By WM_OrderID")
Do While Not Rs.EOF
Select Case Rs(2)
Case 1
If CheckAdminFlag("ArticlePost_"&Rs(0)) or CheckAdminFlag("Article_"&Rs(0)) or CheckAdminFlag("ArticleRe_"&Rs(0)) or CheckAdminFlag("ArticleClass_"&Rs(0)) Then
Content = Content & T(Rs(0),Rs(1))
If CheckAdminFlag("ArticlePost_"&Rs(0)) Then
Content = Content & "·<a href=WM.Article.asp?Action=AddType&ChannelID=" & Rs(0) & " target=main>添加文章</a><br>" & vbCrLf
Content = Content & " ────────<br>" & vbCrLf
End If
If CheckAdminFlag("Article_"&Rs(0)) Then
Content = Content & "·<a href=WM.Article.asp?ChannelID=" & Rs(0) & " target=main>文章管理</a> | <a href=WM.Article.asp?Action=Through&ChannelID=" & Rs(0) & " target=main>待审</a><br>" & vbCrLf
Content = Content & "·<a href=WM.Article.asp?Action=Reclaim&ChannelID=" & Rs(0) & " target=main>回收站管理</a><br>" & vbCrLf
End If
If CheckAdminFlag("ArticleRe_"&Rs(0)) Then
Content = Content & "·<a href=WM.Article_Re.asp?ChannelID=" & Rs(0) & " target=main>评论管理</a> | <a href=WM.Article_Re.asp?Action=Through&ChannelID=" & Rs(0) & " target=main>待审</a><br>" & vbCrLf
Content = Content & " ────────<br>" & vbCrLf
End If
If CheckAdminFlag("ArticleClass_"&Rs(0)) Then Content = Content & "·<a href=WM.Article_Sort.asp?ChannelID=" & Rs(0) & " target=main>栏目管理</a> | <a href=WM.Article_Sort.asp?Action=Add&ChannelID=" & Rs(0) & " target=main>添加</a><br>" & vbCrLf
Content = Content & B(Rs(0))
End If
If CheckAdminFlag("Templates_"&Rs(0)) Then T1=1:Temp = Temp & "·<a href=WM.Skin_Templates.asp?ChannelID=" & Rs(0) & "&ModuleID=" & Rs(2) & " target=main>"&Rs(1)&" 模板</a><br>"
Case 2
If CheckAdminFlag("ClassPost") or CheckAdminFlag("Class") or CheckAdminFlag("ClassRe") or CheckAdminFlag("ClassClass") Then
Content = Content & T(Rs(0),Rs(1))
If CheckAdminFlag("ClassPost") Then
Content = Content & "·<a target=main href=WM.Class.asp?Action=Add>发布分类信息</a><br>" & vbCrLf
Content = Content & " ────────<br>" & vbCrLf
End If
If CheckAdminFlag("Class") Then Content = Content & "·<a target=main href=WM.Class.asp>信息管理</a> | <a href=WM.Class.asp?SearchKey=1 target=main>待审</a><br>" & vbCrLf
If CheckAdminFlag("ClassRe") Then
Content = Content & "·<a href=WM.Class_Re.asp?ChannelID=" & Rs(0) & " target=main>评论管理</a> | <a href=WM.Class_Re.asp?Action=Through&ChannelID=" & Rs(0) & " target=main>待审</a><br>" & vbCrLf
Content = Content & " ────────<br>" & vbCrLf
End If
If CheckAdminFlag("ClassClass") Then Content = Content & "·<a href=WM.Class_Sort.asp?ChannelID=" & Rs(0) & " target=main>栏目管理</a> | <a href=WM.Class_Sort.asp?Action=Add&ChannelID=" & Rs(0) & " target=main>添加</a><br>" & vbCrLf
Content = Content & B(Rs(0))
End If
If CheckAdminFlag("Templates_"&Rs(0)) Then T1=1:Temp = Temp & "·<a href=WM.Skin_Templates.asp?ChannelID=" & Rs(0) & "&ModuleID=" & Rs(2) & " target=main>"&Rs(1)&" 模板</a><br>"
Case 4
If CheckAdminFlag("GuestBook") Then
Content = Content & T(Rs(0),Rs(1))
Content = Content & "·<a href=WM.Sys_GuestBook.asp?ChannelID=" & Rs(0) & " target=main>留言管理</a><br>" & vbCrLf
Content = Content & "·<a href=WM.Sys_GuestBook.asp?Action=Through&ChannelID=" & Rs(0) & " target=main>待审</a> | <a href=WM.Sys_GuestBook.asp?Action=New&ChannelID=" & Rs(0) & " target=main>新进留言</a>" & vbCrLf
Content = Content & B(Rs(0))
End If
If CheckAdminFlag("Templates_"&Rs(0)) Then T1=1:Temp = Temp & "·<a href=WM.Skin_Templates.asp?ChannelID=" & Rs(0) & "&ModuleID=" & Rs(2) & " target=main>"&Rs(1)&" 模板</a><br>"
Case 6
If CheckAdminFlag("ComPost") or CheckAdminFlag("Com") or CheckAdminFlag("ComEdit") or CheckAdminFlag("ComDP") or CheckAdminFlag("ComRz") or CheckAdminFlag("ComPic") or CheckAdminFlag("ComErr") or CheckAdminFlag("ComRe") or CheckAdminFlag("ComClass") Then
Content = Content & T(Rs(0),Rs(1))
If CheckAdminFlag("ComPost") Then
Content = Content & "·<a href=WM.Company.asp?Action=Add&ChannelID=" & Rs(0) & " target=main>添加店铺</a><br>" & vbCrLf
Content = Content & " ────────<br>" & vbCrLf
End If
If CheckAdminFlag("Com") Then Content = Content & "·<a href=WM.Company.asp target=main>店铺管理</a> | <a href=WM.Company.asp?Estate=0 target=main>待审</a><br>" & vbCrLf
If CheckAdminFlag("ComRz") Then
Content = Content & "·<a target=main href=WM.Company.asp?ChannelID=" & Rs(0) & "&Action=IsRz&Estate=3>已认领店铺</a> | <a href=WM.Company.asp?ChannelID=" & Rs(0) & "&Action=IsRz&Estate=5 target=main>待审</a><br>" & vbCrLf
End If
If CheckAdminFlag("ComEdit") Then Content = Content & "·<a href=WM.Company_Edit.asp?ChannelID=" & Rs(0) & " target=main>店铺补充</a> | <a href=WM.Company_Edit.asp?ChannelID=" & Rs(0) & "&Key=1 target=main>已处理</a><br>" & vbCrLf
If CheckAdminFlag("ComDP") Then Content = Content & "·<a href=WM.Company_DP.asp?ChannelID=" & Rs(0) & " target=main>点评管理</a> | <a href=WM.Company_DP.asp?ChannelID=" & Rs(0) & "&Key=0 target=main>待审</a><br>" & vbCrLf
If CheckAdminFlag("ComPic") Then Content = Content & "·<a href=WM.Company_Other.asp?Action=Photo target=main>店铺图片管理</a> | <a href=WM.Company_Other.asp?Action=Photo&Key=0 target=main>待审</a><br>" & vbCrLf
If CheckAdminFlag("ComErr") Then Content = Content & "·<a href=WM.Company_Other.asp?Action=Err target=main>纠错管理</a> | <a href=WM.Company_Other.asp?Action=Err&Key=0 target=main>待审</a><br>" & vbCrLf
If CheckAdminFlag("ComRe") Then Content = Content & "·<a href=WM.Company_Re.asp?ChannelID=" & Rs(0) & " target=main>留言管理</a> | <a href=WM.Company_Re.asp?Action=Through&ChannelID=" & Rs(0) & " target=main>待审</a><br>" & vbCrLf
If CheckAdminFlag("ComClass") Then
Content = Content & " ────────<br>" & vbCrLf
Content = Content & "·<a href=WM.Company_Sort.asp?ChannelID=" & Rs(0) & " target=main>分类管理</a> | <a href=WM.Company_Sort.asp?Action=Add&ChannelID=" & Rs(0) & " target=main>添加</a><br>" & vbCrLf
End If
Content = Content & B(Rs(0))
End If
If CheckAdminFlag("Templates_"&Rs(0)) Then T1=1:Temp = Temp & "·<a href=WM.Skin_Templates.asp?ChannelID=" & Rs(0) & "&ModuleID=" & Rs(2) & " target=main>"&Rs(1)&" 模板</a><br>"
Case 7
If CheckAdminFlag("CouPost") or CheckAdminFlag("Cou") or CheckAdminFlag("CouRe") or CheckAdminFlag("CouClass") Then
Content = Content & T(Rs(0),Rs(1))
If CheckAdminFlag("CouPost") Then
Content = Content & "·<a href=WM.Coupon.asp?Action=Add target=main>添加优惠券</a><br>" & vbCrLf
Content = Content & " ────────<br>" & vbCrLf
End If
If CheckAdminFlag("Cou") Then Content = Content & "·<a href=WM.Coupon.asp target=main>优惠券管理</a> | <a href=WM.Coupon.asp?Key=0 target=main>待审</a><br>" & vbCrLf
If CheckAdminFlag("CouRe") Then
Content = Content & "·<a href=WM.Coupon_Re.asp?ChannelID=" & Rs(0) & " target=main>留言管理</a> | <a href=WM.Coupon_Re.asp?Action=Through&ChannelID=" & Rs(0) & " target=main>待审</a><br>" & vbCrLf
Content = Content & " ────────<br>" & vbCrLf
End If
If CheckAdminFlag("CouClass") Then Content = Content & "·<a href=WM.Coupon_Sort.asp?ChannelID=" & Rs(0) & " target=main>分类管理</a> | <a href=WM.Coupon_Sort.asp?Action=Add&ChannelID=" & Rs(0) & " target=main>添加</a><br>" & vbCrLf
Content = Content & B(Rs(0))
End If
If CheckAdminFlag("Templates_"&Rs(0)) Then T1=1:Temp = Temp & "·<a href=WM.Skin_Templates.asp?ChannelID=" & Rs(0) & "&ModuleID=" & Rs(2) & " target=main>"&Rs(1)&" 模板</a><br>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -