📄 admin_manage.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<!--#include file="WM.Sys_Cook.asp"-->
<%
Call WRMPS.FsoBegin()
If WRMPS.FsoIsTrue("Dir","../Install") Then
  Call WRMPS.ErrView("·请先手动删除根目录下的Install安装目录。",0)
End If
Call WRMPS.FsoEnd()

Call WM_Content()

Sub WM_Content()
  Response.write "<style>" & vbCrLf
  Response.write "body{overflow:hidden}" & vbCrLf
  Response.write "</style>" & vbCrLf
  Response.write "<title>控制面版</title>"
  Response.write "<base onmouseover=""window.status='当前用户："&Request.Cookies("Admin")("Admin")&"　IP地址："&Request.ServerVariables("REMOTE_ADDR")&"';return true"">" & vbCrLf
  Response.write "</head>" & vbCrLf
  Response.write "<body scroll=no bgcolor='#3A6592'>" & vbCrLf
  Response.write "<table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0>" & vbCrLf
  Response.write "<tr><td height='41' background='img/top_bg.gif' colspan=2>"&M_Top()&"</td></tr>" & vbCrLf
  Response.write "<tr>" & vbCrLf
  Response.write "<td rowspan=3 width=190 id=menu><iframe name=left src='Admin_Menu.asp' width='100%' height='100%' scrolling=no FRAMEBORDER=0></iframe></td>" & vbCrLf
  Response.write "<td id=Top height='200' style='display:none'><iframe name=top src='Admin_Top.asp' width='100%' height='100%' scrolling=yes FRAMEBORDER=0></iframe></td>" & vbCrLf
  Response.write "</tr>" & vbCrLf
  Response.write "<tr><td height=9 bgcolor='#3A6592' align=center><img src='img/p_5.gif' id=TopPic align=absmiddle style='cursor:pointer' onClick='TopType()'></td></tr>" & vbCrLf
  Response.write "<tr><td height='100%'><div style='position:absolute;width:100%;text-align:right;padding:0 16px 0 0'><img src='img/R_T.gif'></div><div style='position:absolute'><img src='img/L_T.gif'></div><div style='position:absolute;bottom:0px;width:100%;text-align:right;padding:0 16px 25px 0'><img src='img/R_B.gif'></div><div style='position:absolute;bottom:0px;padding:0 0 25px 0'><img src='img/L_B.gif'></div><iframe name=main src='Admin_Main.asp' width='100%' height='100%' scrolling=yes FRAMEBORDER=0></iframe></td></tr>" & vbCrLf
  Response.write "<tr><td height=25 colspan=2 bgcolor=#3A6592>"&M_Bottom()&"</td></tr>" & vbCrLf
  Response.write "</table>" & vbCrLf
  Response.write "</body>" & vbCrLf
  Response.write "</html>" & vbCrLf
End Sub

Function M_Top()
  M_Top = "<div style='float:right;width:auto;padding:20px 0 0 0;' class=Font4>" & vbCrLf
  M_Top = M_Top & "<a style='cursor:pointer' href=../ target=_blank class=white>&#31449;&#28857;&#39318;&#39029;</a> <img src=img/Menu_Line.gif align=absmiddle>" & vbCrLf
  M_Top = M_Top & "<a style='cursor:pointer' href=Admin_Main.Asp target=main class=white>&#31649;&#29702;&#39318;&#39029;</a> <img src=img/Menu_Line.gif align=absmiddle>" & vbCrLf
  M_Top = M_Top & "<a style='cursor:pointer' href=WM.Sys_Cache.asp target=main class=white>&#26356;&#26032;&#32531;&#23384;</a> <img src=img/Menu_Line.gif align=absmiddle>" & vbCrLf
  If SystemVersionType = 0 Then
    M_Top = M_Top & "<a style='cursor:pointer' href=http://www.wangren.net target=_blank class=white>&#22312;&#32447;&#36141;&#20080;</a> <img src=img/Menu_Line.gif align=absmiddle>" & vbCrLf
  End If
  M_Top = M_Top & "<a style='cursor:pointer' href=http://bbs.wangren.net/ target=_blank class=white>&#25216;&#26415;&#35770;&#22363;</a> <img src=img/Menu_Line.gif align=absmiddle>" & vbCrLf
  M_Top = M_Top & "<a style='cursor:pointer' href=http://bbs.wangren.net/thread-7061-1-1.html target=_blank class=white>&#24110;&#21161;&#25991;&#26723;</a> <img src=img/Menu_Line.gif align=absmiddle>" & vbCrLf
  M_Top = M_Top & "<a style='cursor:pointer' onclick=""main.location.reload();"" class=white>&#21047;&#26032;</a> <img src=img/Menu_Line.gif align=absmiddle>" & vbCrLf
  M_Top = M_Top & "<a style='cursor:pointer' href=Admin_login.asp?Action=Logout class=white>&#36864;&#20986;</a>&nbsp;&nbsp;" & vbCrLf
  M_Top = M_Top & "</div>" & vbCrLf
  M_Top = M_Top & "<div style='float:left;width:150px'><img src='img/Logo.gif' valign=bottom></div>" & vbCrLf
  M_Top = M_Top & "<div style='float:left;width:80px;padding:20px 0 0 0'><a style='cursor:pointer' onClick='MenuType()' class=white><span id=menukey><< &#38544;&#34255;&#33756;&#21333;</span></a></div>" & vbCrLf
  M_Top = M_Top & "<div style='float:left;width:auto;padding:20px 20px 0 20px' class=Font4 id=AjaxShow></div>" & vbCrLf
  M_Top = M_Top & "<script>ToAjax('Admin_Top.asp','Action=ChackDate');setInterval(""ToAjax('Admin_Top.asp','Action=ChackDate')"", 300000)</script>" & vbCrLf
End Function

Function M_Bottom()
  Dim CnVersion
  Select Case SystemVersionType
    Case 0
	  CnVersion = "&#20813;&#36153;&#29256;"
    Case 1
	  CnVersion = "&#20010;&#20154;&#29256;"
    Case 2
	  CnVersion = "&#20225;&#19994;&#29256;"
    Case 3
	  CnVersion = "&#39640;&#32423;&#20225;&#19994;&#29256;"
    Case 4
	  CnVersion = "&#37329;&#29260;&#20225;&#19994;&#29256;"
    Case 5
	  CnVersion = "&#33258;&#30001;&#23450;&#21046;&#29256;"
  End Select
  M_Bottom = "<div style='float:right;filter:shadow(Color=#000000,direction=135);font-weight:bolder' class=Font4><strong>WRMPS "&SystemVersion&"("&Replace(Replace(ConnTypeStr,0,"ACCESS"),1,"MSSQL")&") "&CnVersion&"</strong>&nbsp;</div>" & vbCrLf
  M_Bottom = M_Bottom & "<div style='float:left' class=Font4>" & vbCrLf
  M_Bottom = M_Bottom & "<span id=Ver></span>"
  If CheckAdminFlag("CreHTML") Then M_Bottom = M_Bottom & "&nbsp;快速发布站点=> <a target=main href=WM.Cre.asp?Action=Other class=white>系统配置文件</a>" & vbCrLf
  M_Bottom = M_Bottom & "</div>" & vbCrLf
End Function

Response.write "<SPAN ID=SpanVer CLASS=spanclass>"
Response.write "<script language=javascript src='"&Server_Url&"ver.asp?SystemVersion="&SystemVersion&"&SystemVersionType="&SystemVersionType&"'></script>"
Response.write "</SPAN>" & vbCrLf
Response.write "<SCRIPT>" & vbCrLf
Response.write "Ver.innerHTML=SpanVer.innerHTML;" & vbCrLf
Response.write "</SCRIPT>" & vbCrLf

Call ClassEnd()
%>
⌨️ 快捷键说明

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