admin_menu.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

      Content = Content & "·<a href=WM.Finance_List.asp?Type=4 target=main>会员信用明细</a><br>" & vbCrLf
      Content = Content & "&nbsp; ────────<br>" & vbCrLf
    End If
    If CheckAdminFlag("FinanceClear") Then Content = Content & "·<a href=WM.Finance_List.asp?Action=Del target=main>明细清理</a>" & vbCrLf
    Content = Content & "</td></tr>" & vbCrLf  
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b2'><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("Skin") 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(a6,b6,c6)' id='c6' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;风格主题</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a6'><td class=menubg>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Skin.asp>风格主题</a> | <a target=main href=WM.Skin.asp?Action=AddSkin>添加</a><br>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Skin.asp?Action=Admit>主题导入</a> | <a target=main href=WM.Skin.asp?Action=Export>导出</a>" & vbCrLf
    Content = Content & "</td></tr>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b6'><td height=6></td></tr>" & vbCrLf
  End If
  If CheckAdminFlag("Label") 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(a7,b7,c7)' id='c7' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;标签管理</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a7'><td class=menubg>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Skin_Label.asp?Type=1>自定义标签</a> | <a target=main href=WM.Skin_Label.asp?Action=Add1&Type=1>添加</a><br>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Skin_Label.asp?Type=2>系统函数标签</a> | <a target=main href=WM.Skin_Label.asp?Action=Add2&Type=2>添加</a><br>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Skin_Label.asp?Type=3>自定义Js</a> | <a target=main href=WM.Skin_Label.asp?Action=Add1&Type=3>添加</a><br>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Skin_Label.asp?Type=4>系统函数Js</a> | <a target=main href=WM.Skin_Label.asp?Action=Add2&Type=4>添加</a><br>" & vbCrLf
    Content = Content & "</td></tr>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b7'><td height=6></td></tr>" & vbCrLf
  End If
  If CheckAdminFlag("Templates") 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(a8,b8,c8)' id='c8' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;通用模板</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a8'><td class=menubg>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Skin_Templates.asp>通用模板</a> | <a target=main href=WM.Skin_Templates.asp?Action=Add>添加</a><br>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Skin_Templates.asp?ModuleID=-1>会员模板</a> | <a target=main href=WM.Skin_Templates.asp?ModuleID=-1&Action=Add>添加</a><br>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Skin_Templates.asp?ModuleID=-2>礼品模板</a> | <a target=main href=WM.Skin_Templates.asp?ModuleID=-2&Action=Add>添加</a><br>" & vbCrLf
    Content = Content & "</td></tr>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b8'><td height=6></td></tr>" & vbCrLf
  End If
    Content = Content & Temp1
  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("CreHTML") 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(a9,b9,c9)' id='c9' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;站点发布</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a9'><td class=menubg>" & vbCrLf
    Content = Content & "·<a target=main href=WM.Cre.asp?Action=Other target=main>系统配置文件</a>" & vbCrLf
    Content = Content & "</td></tr>" & vbCrLf  
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b9'><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("UpDate") Or CheckAdminFlag("DateBak") 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(a0,b0,c0)' id='c0' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;常规设置</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a0'><td class=menubg>" & vbCrLf
    If CheckAdminFlag("") Then Content = Content & "·<a target=main href=WM.Sys_Setup.asp>网站参数设置</a><br>" & vbCrLf
    If CheckAdminFlag("UpDate") Then Content = Content & "·<a target=main href=WM.Sys_RehData.asp>更新系统总数据</a><br>" & vbCrLf
    If CheckAdminFlag("") Then If WEBFTP Then Content = Content & "·<a target=main href=WM.Sys_Ftp.asp>WEB FTP</a><br>" & vbCrLf
    If CheckAdminFlag("DateBak") Then Content = Content & "·<a href=WM.Sys_Data.asp target=main>数据库管理</a><br>" & vbCrLf
    Content = Content & "</td></tr>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b0'><td height=6></td></tr>" & vbCrLf
  End If
  If CheckAdminFlag("Prop") Or CheckAdminFlag("Faith") 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(a10,b10,c10)' id='c10' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;其它设置</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a10'><td class=menubg>" & vbCrLf
    If CheckAdminFlag("Prop") Then Content = Content & "·<a href=WM.Sys_Setup.asp?Action=Prop target=main>道具系统设置</a><br>" & vbCrLf
    If CheckAdminFlag("Faith") Then Content = Content & "·<a href=WM.Sys_Setup.asp?Action=Faith target=main>信用操作设置</a> | <a href=WM.User_Faith_Grade.asp target=main>等级</a>" & vbCrLf
	Content = Content & "</td></tr>" & vbCrLf  
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b10'><td height=6></td></tr>" & vbCrLf
  End If
  If CheckAdminFlag("City") Or CheckAdminFlag("Agent") 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(a12,b12,c12)' id='c12' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;分站管理</strong></td></tr>" & vbCrLf
    Content = Content & "<tr id='a12'><td class=menubg>" & vbCrLf
    If CheckAdminFlag("City") Then Content = Content & "·<a target=main href=WM.Area.asp>城市分站管理</a><br>" & vbCrLf
    If CheckAdminFlag("Agent") Then Content = Content & "·<a target=main href=WM.Area_Agent.asp>城市分站代理</a><br>" & vbCrLf
    Content = Content & "</td></tr>" & vbCrLf  
    Content = Content & "</table>" & vbCrLf
    Content = Content & "</td></tr><tr id='b12'><td height=6></td></tr>" & vbCrLf
  End If
  Content = Content & CopyRight
  Content = Content & "</table>" & vbCrLf
  Content = Content & "</td></tr>" & vbCrLf


  Content = Content & "</table>" & vbCrLf 
  Content = Content & "</div>" & vbCrLf
  Content = Content & "</td></tr></table>" & vbCrLf
  Call ClassEnd()
  Response.write Content
End Sub

Function CopyRight()
    CopyRight = CopyRight & "<tr><td>" & vbCrLf
    CopyRight = CopyRight & "<table cellspacing=0 cellpadding=5 width='100%' align='center' border=0 class=LeftBG>" & vbCrLf  
    CopyRight = CopyRight & "<tr><td class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;版权信息</strong></td></tr>" & vbCrLf
    CopyRight = CopyRight & "<tr><td class=menubg>" & vbCrLf
    CopyRight = CopyRight & "<a target=_blank href=http://www.wangren.net>版权：网人科技</a><br>" & vbCrLf
    CopyRight = CopyRight & "<a target=_blank href=http://www.wangren.net>官方：wangren.Net</a><br>" & vbCrLf
    CopyRight = CopyRight & "<a target=_blank href=http://demo.wangren.net>演示：点击查看</a>" & vbCrLf
    CopyRight = CopyRight & "</td></tr>" & vbCrLf  
    CopyRight = CopyRight & "</table>" & vbCrLf
    CopyRight = CopyRight & "</td></tr>" & vbCrLf
End Function

Function T(byval id,byval channelname)
      T = "<tr><td>" & vbCrLf  
      T = T & "<table cellspacing=0 cellpadding=5 width='100%' align='center' border=0 class=LeftBG>" & vbCrLf  
      T = T & "<tr><td onClick='show(d"&id&",e"&id&",f"&id&")' id='f"&id&"' class='Titbg Font4' style='cursor:pointer'><strong>&nbsp;"&channelname&"</strong></td></tr>" & vbCrLf
      T = T & "<tr id='d"&id&"'><td class=menubg>" & vbCrLf
End Function
Function B(byval id)
      B = "</td></tr>" & vbCrLf  
      B = B & "</table>" & vbCrLf
      B = B & "</td></tr><tr id='e"&id&"'><td height=6></td></tr>" & vbCrLf
End Function
%>