⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_menu.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	  End Select
	Rs.MoveNext
	Loop
	Rs.Close
  Temp = Temp & "</td></tr>" & vbCrLf  
  Temp = Temp & "</table>" & vbCrLf
  Temp = Temp & "</td></tr><tr id='h0'><td height=6></td></tr>" & vbCrLf
  If T1 = 1 Then  Temp1 = Temp
  Temp = ""
	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(g1,h1,i1)' id='i1' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;单页模板</strong></td></tr>" & vbCrLf
    Temp = Temp & "<tr id='g1'><td class=menubg>" & vbCrLf
    Set Rs = Conn.Execute("select WM_ID,WM_ChannelName,WM_Module from WM_Channel where WM_Key = 1 And WM_Module = 3 Order By WM_OrderID")
    Do While Not Rs.EOF
	  If CheckAdminFlag("Page_"&Rs(0)) Then T3=1:Temp2 = Temp2 & "·<a href=WM.Sys_SinglePage.asp?ChannelID=" & Rs(0) & " target=main>" & Rs(1) & "</a><br>" & vbCrLf
	  If CheckAdminFlag("Templates_"&Rs(0)) Then T2=1:Temp = Temp & "·<a href=WM.Skin_Templates.asp?ChannelID=" & Rs(0) & "&ModuleID=" & Rs(2) & " target=main>" & Rs(1) & " 模板</a><br>"
	Rs.MoveNext
	Loop
	Rs.Close
	If T3 = 1 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(d0,e0,f0)' id='f0' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;单页频道</strong></td></tr>" & vbCrLf
      Content = Content & "<tr id='d0'><td class=menubg>" & vbCrLf
      Content = Content & Temp2
	  Content = Content & "</td></tr>" & vbCrLf  
      Content = Content & "</table>" & vbCrLf
      Content = Content & "</td></tr><tr id='e0'><td height=6></td></tr>" & vbCrLf
	End If
	Temp = Temp & "</td></tr>" & vbCrLf  
    Temp = Temp & "</table>" & vbCrLf
    Temp = Temp & "</td></tr><tr id='h1'><td height=6></td></tr>" & vbCrLf
	Set Rs = Nothing
  If T2 = 1 Then Temp1 = Temp1&Temp
  Temp = ""
  Content = Content & CopyRight
  Content = Content & "</table>" & vbCrLf
  Content = Content & "</td></tr>" & vbCrLf
  
'功能======================================
  Content = Content & "<tr ID=ShowM Style='display:none'><td>" & vbCrLf
  Content = Content & "<table width='100%' cellpadding=0 cellspacing=0>" & vbCrLf
  If CheckAdminFlag("Announce") or CheckAdminFlag("Note") or CheckAdminFlag("Gift") or CheckAdminFlag("ADS") or CheckAdminFlag("AdsPlace") or CheckAdminFlag("Link") or CheckAdminFlag("Page") or CheckAdminFlag("Tags") 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(a13,b13,c13)' id='c13' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;功能管理</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a13'><td class=menubg>" & vbCrLf
    If CheckAdminFlag("Announce") Then Content = Content & "·<a target=main href=WM.Sys_Announce.asp>网站公告管理</a><br>" & vbCrLf
    If CheckAdminFlag("Note") Then Content = Content & "·<a target=main href=WM.Sys_Note.asp>每日帖士管理</a><br>" & vbCrLf
    Content = Content & "&nbsp; ────────<br>" & vbCrLf
    If CheckAdminFlag("Gift") Then
	  Content = Content & "·<a target=main href=WM.Gift.asp>礼品管理</a> | <a target=main href=WM.Gift.asp?Action=Add>添加</a><br>" & vbCrLf
      Content = Content & "·<a target=main href=WM.Gift_Order.asp>奖品兑换定单</a><br>" & vbCrLf
	  Content = Content & "&nbsp; ────────<br>" & vbCrLf
    End If
	If CheckAdminFlag("ADS") Then Content = Content & "·<a target=main href=WM.Ads.asp>广告管理</a> | <a target=main href=WM.Ads.asp?Action=AddOne>添加</a><br>" & vbCrLf
    If CheckAdminFlag("AdsPlace") Then Content = Content & "·<a target=main href=WM.Ads_Sort.asp>广告位置管理</a><br>" & vbCrLf
    Content = Content & "&nbsp; ────────<br>" & vbCrLf
    If CheckAdminFlag("Link") Then 
      Content = Content & "·<a target=main href=WM.Sys_Links.asp>友情链接管理</a><br>" & vbCrLf
      Content = Content & "·<a target=main href=WM.Sys_Links.asp?Reh=Through>待审友情链接</a><br>" & vbCrLf
      Content = Content & "&nbsp; ────────<br>" & vbCrLf
    End If
    If CheckAdminFlag("Page") Then 
	  Content = Content & "·<a target=main href=WM.Page.asp>自定义页面</a> | <a target=main href=WM.Page.asp?Action=Add>添加</a><br>" & vbCrLf
      Content = Content & "&nbsp; ────────<br>" & vbCrLf
    End If
    If CheckAdminFlag("Tags") Then Content = Content & "·<a target=main href=WM.Sys_Tag.asp>搜索关键词管理</a><br>" & vbCrLf
	Content = Content & "</td></tr>" & vbCrLf  
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b13'><td height=6></td></tr>" & vbCrLf
  End If
  If CheckAdminFlag("Plus") 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(a11,b11,c11)' id='c11' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;插件管理</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a11'><td class=menubg>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Sys_Plus.asp>插件管理</a> | <a target=main href=WM.Sys_Plus.asp?Action=Add>添加</a><br>" & vbCrLf
	Set Rs = Conn.Execute("Select * From WM_Plus Order By WM_ID Desc")
	  If Not Rs.Eof Then
        Content = Content & "&nbsp; ────────<br>" & vbCrLf
	    Do While Not Rs.Eof
          Content = Content & "·<a target=main href="""&Rs("WM_AdminLink")&""">"&Rs("WM_Title")&"</a><br>" & vbCrLf
	    Rs.MoveNext
	    Loop
	  End If
	Rs.Close
	Set Rs = Nothing
	Call DBConnEnd()
    Content = Content & "</td></tr>" & vbCrLf  
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b11'><td height=6></td></tr>" & vbCrLf
  End If
  Content = Content & CopyRight
  Content = Content & "</table>" & vbCrLf
  Content = Content & "</td></tr>" & vbCrLf

'会员======================================
  Content = Content & "<tr ID=ShowM Style='display:none'><td>" & vbCrLf
  Content = Content & "<table width='100%' cellpadding=0 cellspacing=0>" & vbCrLf
  If CheckAdminFlag("Member") Or CheckAdminFlag("Group") 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(a1,b1,c1)' id='c1' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;会员管理</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a1'><td class=menubg>" & vbCrLf
    If CheckAdminFlag("Member") Then 
	  Content = Content & "·<a target=main href=WM.User.asp>用户管理</a> | <a href=WM.User.asp?Action=Through target=main>待审</a><br>" & vbCrLf
	  Content = Content & "·<a target=main href=WM.User_RZ.asp>用户认证管理</a> | <a href=WM.User_RZ.asp?Estate=3 target=main>待审</a><br>" & vbCrLf
      Content = Content & "&nbsp; ────────<br>" & vbCrLf
	End If
	If CheckAdminFlag("Group") Then 
	  Content = Content & "·<a href=WM.User_Group.asp target=main>会员组</a> | <a href=WM.User_Group.asp?Action=Add target=main>添加</a><br>" & vbCrLf
	  Content = Content & "&nbsp; ────────<br>" & vbCrLf
	End If
	If CheckAdminFlag("Member") Then 
      Content = Content & "·<a target=main href=WM.Sys_RehData.asp?Action=User>重计用户数据</a><br>" & vbCrLf
      Content = Content & "&nbsp; ────────<br>" & vbCrLf
	End If
	If CheckAdminFlag("") Then Content = Content & "·<a target=main href=WM.Admin.asp>管理员设置</a>" & vbCrLf
    Content = Content & "</td></tr>" & vbCrLf  
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b1'><td height=6></td></tr>" & vbCrLf
  End If
  If CheckAdminFlag("Message") Then 
    If Int(WR_Mail(17)) = 1 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(a3,b3,c3)' id='c3' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;消息管理</strong></td></tr>" & vbCrLf
      Content = Content & "<tr id='a3'><td class=menubg>" & vbCrLf
	  Content = Content & "·<a target=main href=WM.Sys_Message.asp>站内消息管理</a>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf  
      Content = Content & "</table>" & vbCrLf
      Content = Content & "</td></tr><tr id='b3'><td height=6></td></tr>" & vbCrLf
    End If
  End If
  If CheckAdminFlag("FinanceSee") or CheckAdminFlag("Finance") or CheckAdminFlag("FinanceClear") 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(a2,b2,c2)' id='c2' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;财务管理</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a2'><td class=menubg>" & vbCrLf
	If CheckAdminFlag("FinanceSee") Then Content = Content & "·<a href=WM.Finance_User.asp target=main>用户财务状况</a><br>" & vbCrLf
    If CheckAdminFlag("Finance") Then Content = Content & "·<a href=WM.Finance_Pay_User.asp target=main>会员账户充/扣值</a><br>" & vbCrLf
    Content = Content & "&nbsp; ────────<br>" & vbCrLf
    If CheckAdminFlag("FinanceSee") Then 
      Content = Content & "·<a href=WM.Finance_Pay.asp target=main>在线支付明细</a><br>" & vbCrLf
      Content = Content & "·<a href=WM.Finance_List.asp?Type=1 target=main>会员资金明细</a><br>" & vbCrLf
      Content = Content & "·<a href=WM.Finance_List.asp?Type=2 target=main>会员"&WR_Other(0)&"明细</a><br>" & vbCrLf
      Content = Content & "·<a href=WM.Finance_List.asp?Type=3 target=main>会员积分明细</a><br>" & vbCrLf
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -