开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Admin_Index.asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：32k
源码类别：

外挂编程

开发平台：

ASP/ASPX

Admin_Index.asp：源码内容
  1. <!--#include file="setup.asp"-->
  2. <!--#include file="check.asp"-->
  3. <%
  4. Response.Expires = 0
  5. Response.ExpiresAbsolute = Now() - 1
  6. Response.cachecontrol = "no-cache"
  7. '=====================================================================
  8. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  9. '=====================================================================
  10. ' 程序名称：蓝宇网络发布系统
  11. ' 程序作者：蓝宇 QQ：18159079 
  12. ' 文件名称：Admin_Index.asp
  13. ' 更新日期：2007-6-5
  14. '=====================================================================
  15. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  16. ' 程序开发：蓝宇
  17. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  18. '=====================================================================
  19. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  20. '=====================================================================
  21. select case request("action")
  22. case "admin_top"
  23.       call admin_top()
  24. case "admin_left"
  25.       call admin_left()
  26. case "admin_main"
  27.       call admin_main()
  28. case "admin_bottom"
  29.       call admin_bottom()
  30. case "admin_search"
  31.       call admin_search()
  32. case else
  33.       call Main()
  34. end select
  35. CloseConn
  36. '/////内容开始
  37. Sub admin_search()
  38.     dim word,engine
  39.     word = request.Form("word")
  40.     engine = request.Form("search")
  41.     Select case engine
  42.        case "3721"
  43.             response.Redirect("http://cns.3721.com/cns.dll?name="&word)
  44.             response.End()
  45.        case "google"
  46.             response.Redirect("http://www.google.com/search?q="&word&"&hl=zh-CN&lr=lang_zh-CN&ie=gb2312")
  47.             response.End()
  48.        case "baidu"
  49.             response.Redirect("http://www.baidu.com/baidu?word="&word)
  50.             response.End()
  51.        case "sina"
  52.             response.Redirect("http://search.sina.com.cn/cgi-bin/search/search.cgi?ss=sina&_searchkey="&word)
  53.             response.End()
  54.        case "alexa"
  55.             response.Redirect("http://tool.tee5.com/?domain="&word)
  56.             response.End()
  57.        case "sosearch"
  58.             response.Redirect("http://tool.tee5.com/So.asp?domain="&word)
  59.             response.End()
  60.        case "pagerank"
  61.             response.Redirect("http://tool.tee5.com/PageRank.asp?domain="&word)
  62.             response.End()
  63.     end select
  64. End Sub
  65. Sub Main()
  66.     Response.Write "<html>" & vbCrLf
  67.     Response.Write "<head>" & vbCrLf
  68.     Response.Write "<title>∷ 管理中心 ∷</title>" & vbCrLf
  69.     Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
  70.     Response.Write "</head>" & vbCrLf
  71.     Response.Write "<frameset rows=""35,*,25"" frameborder=""NO"" border=""0"" framespacing=""0"">" & vbCrLf
  72.     Response.Write "<frame src=""?action=admin_top"" noresize=""noresize"" frameborder=""0"" "
  73.     Response.Write "name=""topFrame"" scrolling=""no"" marginwidth=""0"" marginheight=""0"" />" & vbCrLf
  74.     Response.Write "<frameset rows=""*"" cols=""185,*"" id=""frame"">" & vbCrLf
  75.     Response.Write "<frame src=""?action=admin_left"" name=""leftFrame"" noresize=""noresize"" "
  76.     Response.Write "marginwidth=""0"" marginheight=""0"" frameborder=""0"" scrolling=""yes"" />" & vbCrLf
  77.     Response.Write "<frame src=""?action=admin_main"" name=""main"" marginwidth=""0"" marginheight=""0"" "
  78.     Response.Write "frameborder=""0"" scrolling=""yes"" />" & vbCrLf
  79.     Response.Write "</frameset>" & vbCrLf
  80.     Response.Write "<frame src=""?action=admin_bottom"" noresize=""noresize"" frameborder=""0"" "
  81.     Response.Write "name=""bottomFrame"" scrolling=""no"" marginwidth=""0"" marginheight=""0"" />" & vbCrLf
  82.     Response.Write "<noframes>" & vbCrLf
  83.     Response.Write "<body>" & vbCrLf
  84.     Response.Write "</body>" & vbCrLf
  85.     Response.Write "</noframes>" & vbCrLf
  86.     Response.Write "</frameset>" & vbCrLf
  87.     Response.Write "</html>"
  88. End Sub
  89. Sub admin_top()
  90.     Response.Write "<html>" & vbCrLf
  91.     Response.Write "<head>" & vbCrLf
  92.     Response.Write "<title>管理中心</title>" & vbCrLf
  93.     Response.Write "<meta http-equiv=Content-Type content=text/html;charset=gb2312>" & vbCrLf
  94.     Response.Write "<base target=""main"">" & vbCrLf
  95.     Response.Write "<script language=""javascript"">" & vbCrLf
  96.     Response.Write "<!--" & vbCrLf
  97.     Response.Write "var displayBar=true;" & vbCrLf
  98.     Response.Write "function switchBar(obj){" & vbCrLf
  99.     Response.Write "if (displayBar)" & vbCrLf
  100.     Response.Write "{" & vbCrLf
  101.     Response.Write "parent.frame.cols=""0,*"";" & vbCrLf
  102.     Response.Write "displayBar=false;" & vbCrLf
  103.     Response.Write "obj.src=""images/admin_logo_2.gif"";" & vbCrLf
  104.     Response.Write "obj.title=""打开左边管理菜单"";" & vbCrLf
  105.     Response.Write "}" & vbCrLf
  106.     Response.Write "else{" & vbCrLf
  107.     Response.Write "parent.frame.cols=""180,*"";" & vbCrLf
  108.     Response.Write "displayBar=true;" & vbCrLf
  109.     Response.Write "obj.src=""images/admin_logo_1.gif"";" & vbCrLf
  110.     Response.Write "obj.title=""关闭左边管理菜单"";" & vbCrLf
  111.     Response.Write "}" & vbCrLf
  112.     Response.Write "}" & vbCrLf
  113.     Response.Write "//-->" & vbCrLf
  114.     Response.Write "</script>" & vbCrLf
  115.     Response.Write "<link href=""Images/style.css"" type=text/css rel=""stylesheet"" />" & vbCrLf
  116.     Response.Write "<style type=text/css>" & vbCrLf
  117.     Response.Write "a { color:#FFFFFF;text-decoration:none}" & vbCrLf
  118.     Response.Write "a:hover {color:#DBDBDB;text-decoration: underline}" & vbCrLf
  119.     Response.Write "td {color: #FFFFFF; font-family: ""宋体"";font-weight:bold;}" & vbCrLf
  120.     Response.Write "</style>" & vbCrLf
  121.     Response.Write "</head>" & vbCrLf
  122.     Response.Write "<body leftmargin=""0"" topmargin=""0"">" & vbCrLf
  123.     Response.Write "<table cellSpacing=""0"" cellPadding=""0"" align=""center"" width=""100%"" border=""0"">" & vbCrLf
  124.     Response.Write "<tr>" & vbCrLf
  125.     Response.Write "<td class=""BodyTitle"" height=""28"">" & vbCrLf
  126.     Response.Write "<table cellSpacing=""0"" cellPadding=""0"" width=""100%"" border=""0"">" & vbCrLf
  127.     Response.Write "<tr>" & vbCrLf
  128.     Response.Write "<td align=""left""><img src=""images/admin_logo_1.gif"" onclick=""switchBar(this)"" width=""150"" height=""32"" border=0 alt=""关闭左边管理菜单"" style=""cursor:hand""></td>" & vbCrLf
  129.     Response.Write "<td width=""50%"">"
  130.     Response.Write "<font color=""FFFFAA"">蓝宇私服发布系统控制面板</font>&nbsp;&nbsp;"
  131.     Response.Write "<a href=admin_password.asp target=main>修改密码</a>&nbsp;&nbsp;"
  132.     Response.Write "<a href=""http://hi.baidu.com/hezeyu"" target=_blank>蓝宇官方</a>&nbsp;&nbsp;"
  133.     Response.Write "<a href=""javascript:window.showModalDialog('http://hi.baidu.com/hezeyu/','ResWin','dialogWidth:388px;dialogHeight:282px;help:no;scroll:no;status:no');"">关于蓝宇<a></td>" & vbCrLf
  134.     Response.Write "<td width=""10%"" noWrap align=right>官方公告：</td>" & vbCrLf
  135.     Response.Write "<td width=""35%""><iframe scrolling=no name=frampack frameborder=0 marginheight=0 marginwidth=0 width=100% height=20 allowTransparency src=http://www.863sf.com/gonggao.htm></iframe></td>" & vbCrLf
  136.     Response.Write "<td width=""5%"" align=right><A href=../ target=_blank><img src=""images/ihome.gif"" title=""返回首页"" border=0></A>&nbsp;</TD>" & vbCrLf
  137.     Response.Write "</tr>" & vbCrLf
  138.     Response.Write "</table>" & vbCrLf
  139.     Response.Write "</td></tr>" & vbCrLf
  140.     Response.Write "<tr><td bgColor=""#485161"" height=""1""></td></tr>" & vbCrLf
  141.     Response.Write "<tr><td bgColor=""#CDCDCD"" height=""1""></td></tr>" & vbCrLf
  142.     Response.Write "<tr><td bgColor=""#B5BCC7"" height=""1""></td></tr>" & vbCrLf
  143.     Response.Write "</table>" & vbCrLf
  144.     Response.Write "</body>" & vbCrLf
  145.     Response.Write "</html>"
  146. End Sub
  147. Sub admin_left()
  148.     Dim MyDB
  149.     MyDB = "ACCESS"
  150.     Rem 管理栏目设置
  151.     dim menu(5,10) ' 菜单数目
  152.     menu(1,0)="常规管理"
  153.     menu(1,1)="<a href=admin_config.asp target=main>系统设置</a> | <a href=admin_type.asp target=main>游戏类型</a>"
  154.     menu(1,2)="<a href=admin_menu.asp target=main>导航管理</a> | <a href=admin_admanage.asp target=main><font color=#0000FF>广告管理</font></a>"
  155.     menu(1,3)="<a href=createhtml.asp?action=index target=main>生成首页HTML</a>"
  156.     menu(1,4)="<a href=createhtml.asp?action=other target=main>生成其他HTML页</a>"
  157.     menu(1,5)="<a href=admin_copyright.asp target=main>网站版权信息</a>"
  158.     menu(1,6)="<a href=admin_caiji.asp target=main>采集私服信息</a>"
  160.     menu(2,0)="私服管理"
  161.     menu(2,1)="<a href=admin_list.asp target=main>管理私服</a> | <a href=admin_add.asp target=main>添加私服</a>"
  162.     menu(2,2)="<a href=admin_list.asp?action=ulock target=main>等待审核私服管理</a>"
  163.     menu(2,3)="<a href=admin_list.asp?action=top target=main>固顶推荐私服管理</a>"
  164.     menu(2,4)="<a href=admin_list.asp?action=hot target=main>通宵推荐私服管理</a>"
  165.     menu(2,5)="<a href=admin_list.asp?action=fine target=main>精品推荐私服管理</a>"
  166.     menu(2,6)="<a href=admin_list.asp?action=finea target=main>固顶精品私服管理</a>"
  167.     menu(2,7)="<a href=admin_list.asp?action=free target=main>更多私服列表管理</a>"
  168.     menu(2,8)="<a href=createhtml.asp?action=allcontent target=main><font color=#0000FF>生成全部HTML内容页</font></a>"
  170.     menu(3,0)="基本栏目"
  171.     menu(3,1)="<a href=admin_Jz_list.asp target=main>家族管理</a> | <a href=admin_jz_list.asp?action=jzulock target=main>家族审核</a>"
  172.     menu(3,2)="<a href=admin_article.asp?action=cat target=main>文章管理</a> | <a href=admin_soft.asp target=main>下载管理</a>"
  174.     menu(4,0)="数据处理(" & MyDB & ")"
  175.     menu(4,1)="<a href=admin_probe.asp target=main>当前服务器信息</a>"
  176.     menu(4,2)="<a href=admin_database.asp?action=BackupData target=main>数据库备份</a>"
  177.     menu(4,3)="<a href=admin_database.asp?action=RestoreData target=main>数据库恢复</a>"
  178.     menu(4,4)="<a href=admin_database.asp?action=CompressData target=main>数据库压缩</a>"
  179.     menu(4,5)="<a href=admin_spacesize.asp target=main>系统空间占用</a>"
  181.     menu(5,0)="其他管理"
  182.     menu(5,1)="<a href=admin_link.asp?action=add target=main>友情链接添加</a> | <a href=admin_link.asp target=main>管理</a>"
  183.     menu(5,2)="<a href=admin_master.asp target=main>管理员管理</a>"
  185.     Response.Write "<html>" & vbCrLf
  186.     Response.Write "<head>" & vbCrLf
  187.     Response.Write "<title>菜单管理</title>" & vbCrLf
  188.     Response.Write "<style type=text/css>" & vbCrLf
  189.     Response.Write "BODY{" & vbCrLf
  190.     Response.Write "margin:0px;" & vbCrLf
  191.     Response.Write "FONT-SIZE: 12px;" & vbCrLf
  192.     Response.Write "FONT-FAMILY: ""宋体"", ""Verdana"", ""Arial"", ""Helvetica"", ""sans-serif"";" & vbCrLf
  193.     Response.Write "background-color: #699FCF; " & vbCrLf
  194.     Response.Write "scrollbar-highlight-color: #98A0AD; " & vbCrLf
  195.     Response.Write "scrollbar-arrow-color: #FFFFFF; " & vbCrLf
  196.     Response.Write "scrollbar-base-color: #547FD1" & vbCrLf
  197.     Response.Write "}" & vbCrLf
  198.     Response.Write "table  { border:0px; }" & vbCrLf
  199.     Response.Write "td  { font:normal 12px 宋体;}" & vbCrLf
  200.     Response.Write "img  { vertical-align:bottom; border:0px; }" & vbCrLf
  201.     Response.Write "a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }" & vbCrLf
  202.     Response.Write "a:hover  { color:#428EFF;text-decoration:underline; }" & vbCrLf
  203.     Response.Write ".sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#DEEFFF; }" & vbCrLf
  204.     Response.Write ".menu_title  { }" & vbCrLf
  205.     Response.Write ".menu_title span  { position:relative; top:0px; left:8px; color:#000000; font-weight:bold; }" & vbCrLf
  206.     Response.Write ".menu_title2  { }" & vbCrLf
  207.     Response.Write ".menu_title2 span  { position:relative; top:0px; left:8px; color:#999999; font-weight:bold; }" & vbCrLf
  208.     Response.Write "</style>" & vbCrLf
  209.     Response.Write "<script language=JavaScript>" & vbCrLf
  210.     Response.Write "function logout(){" & vbCrLf
  211.     Response.Write "if (confirm(""系统提示：您确定要退出控制面板吗？""))" & vbCrLf
  212.     Response.Write "top.location = ""Login.asp?action=logout"";" & vbCrLf
  213.     Response.Write "return false;" & vbCrLf
  214.     Response.Write "}" & vbCrLf
  215.     Response.Write "</script>" & vbCrLf
  216. '菜单样式1 如果使用把'Response.Write前面的'去掉，把样式2前面加上'
  217.     'Response.Write "<script language=JavaScript1.2>" & vbCrLf
  218.     'Response.Write "function showmenu_item(sid) {" & vbCrLf
  219.     'Response.Write "var whichEl = eval(""menu_item"" + sid);" & vbCrLf
  220.     'Response.Write "var menuTitle = eval(""menuTitle"" + sid);" & vbCrLf
  221.     'Response.Write "if (whichEl.style.display == ""none""){" & vbCrLf
  222.     'Response.Write "eval(""menu_item"" + sid + "".style.display="""";"");" & vbCrLf
  223.     'Response.Write "if (sid != 0 & sid < 999) {" & vbCrLf
  224.     'Response.Write "menuTitle.background=""images/title_bg_hide.gif"";" & vbCrLf
  225.     'Response.Write "}" & vbCrLf
  226.     'Response.Write "}else{" & vbCrLf
  227.     'Response.Write "eval(""menu_item"" + sid + "".style.display=""none"";"");" & vbCrLf
  228.     'Response.Write "if (sid != 0 & sid < 999) {" & vbCrLf
  229.     'Response.Write "menuTitle.background=""images/title_bg_show.gif"";" & vbCrLf
  230.     'Response.Write "}" & vbCrLf
  231.     'Response.Write "}" & vbCrLf
  232.     'Response.Write "}" & vbCrLf
  233.     'Response.Write "</script>" & vbCrLf
  234. '菜单样式2
  235.     Response.Write "<SCRIPT language=javascript1.2>" & vbCrLf
  236.     Response.Write "function showmenu_item(sid)" & vbCrLf
  237.     Response.Write "{" & vbCrLf
  238.     Response.Write "which = eval(""menu_item"" + sid);" & vbCrLf
  239.     Response.Write "if (which.style.display == ""none"")" & vbCrLf
  240.     Response.Write "{" & vbCrLf
  241.     Response.Write "var i = 1" & vbCrLf
  242.     Response.Write "while(i<6){" & vbCrLf
  243.     Response.Write "eval(""menu_item""+ i +"".style.display=""none"";"");" & vbCrLf
  244.     Response.Write "eval(""menuTitle""+ i +"".background=""images/title_bg_show.gif"";"");" & vbCrLf
  245.     Response.Write "i++;" & vbCrLf
  246.     Response.Write "}" & vbCrLf
  247.     Response.Write "eval(""menu_item"" + sid + "".style.display="""";"");" & vbCrLf
  248.     Response.Write "eval(""menuTitle""+ sid + "".background=""images/title_bg_hide.gif"";"")" & vbCrLf
  249.     Response.Write "}else{" & vbCrLf
  250.     Response.Write "eval(""menu_item"" + sid + "".style.display=""none"";"");" & vbCrLf
  251.     Response.Write "eval(""menuTitle""+ sid + "".background=""images/title_bg_show.gif"";"")" & vbCrLf
  252.     Response.Write "}" & vbCrLf
  253.     Response.Write "}" & vbCrLf
  254.     Response.Write "</SCRIPT>" & vbCrLf
  255.     Response.Write "<BODY leftmargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0"">" & vbCrLf
  256.     Response.Write "<table width=""158"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
  257.     Response.Write "<tr>" & vbCrLf
  258.     Response.Write "<td width=""158"" height=""38"" background=""images/title.gif"">" & vbCrLf
  259.     Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
  260.     Response.Write "<tr>" & vbCrLf
  261.     Response.Write "<td width=""151"" height=""16""></td>" & vbCrLf
  262.     Response.Write "</tr>" & vbCrLf
  263.     Response.Write "<tr><td></td></tr></table></td>" & vbCrLf
  264.     Response.Write "</tr>" & vbCrLf
  265.     Response.Write "<tr>" & vbCrLf
  266.     Response.Write "<td height=""25"" class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=images/title_bg_quit.gif bgcolor=""#7898E0"">&nbsp;"
  267.     Response.Write "<span><a href=""?action=admin_main"" target=""main""><b>管理首页</b></a></span> <B>&nbsp;|</B><span><a href=""#"" onclick=""logout();""><b>退出</b></a></span></td>" & vbCrLf
  268.     Response.Write "</tr>" & vbCrLf
  269.     Response.Write "<tr>" & vbCrLf
  270.     Response.Write "<td height=""20"">" & vbCrLf
  271.     Response.Write "<div class=sec_menu style=""width:158"">" & vbCrLf
  272.     Response.Write "<table width=""97%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
  273.     Response.Write "<tr>" & vbCrLf
  274.     Response.Write "<td height=""10""></td>" & vbCrLf
  275.     Response.Write "</tr>" & vbCrLf
  276.     Response.Write "<tr>" & vbCrLf
  277.     Response.Write "<td height=""20""><img src=""images/bullet.gif"" width=""15"" height=""20"" align=""absmiddle"">用户：<font color=red>"&session("LoginName")&"</font></td>" & vbCrLf
  278.     Response.Write "</tr>" & vbCrLf
  279.     Response.Write "<tr>" & vbCrLf
  280.     Response.Write "<td height=""20""><img src=""images/bullet.gif"" width=""15"" height=""20"" align=""absmiddle"">身份：<font color=red>"&Session("AdminStatus")&"</font></td>" & vbCrLf
  281.     Response.Write "</tr>" & vbCrLf
  282.     Response.Write "</table></div></td></tr></table>" & vbCrLf
  283.     Response.Write "<div style=""width:158;"">" & vbCrLf
  284.     Response.Write "<table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
  285.     Response.Write "<tr>" & vbCrLf
  286.     Response.Write "<td height=10></td>" & vbCrLf
  287.     Response.Write "</tr>" & vbCrLf
  288.     Response.Write "</table>" & vbCrLf
  289.     Response.Write "</div>" & vbCrLf
  290.      dim j,i
  291.      dim tmpmenu
  292.      dim menuname
  293.      dim menurl
  294.     for i=1 to ubound(menu,1)
  295.     Response.Write "<table cellpadding=0 cellspacing=0 width=158>" & vbCrLf
  296.     Response.Write "<tr>" & vbCrLf
  297.     Response.Write "<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; "
  298.     Response.Write "background=""images/title_bg_show.gif"" id=menuTitle"&i&" onclick=""showmenu_item("&i&")"" Style=""Cursor: hand;"">"
  299.     Response.Write "<span>"&menu(i,0)&"</span></td>" & vbCrLf
  300.     Response.Write "</tr>" & vbCrLf
  301.     Response.Write "<tr>" & vbCrLf
  302.     Response.Write "<td "
  303.     if i=1 then
  304.     Response.Write "style=""display:"" "
  305.     else
  306.     Response.Write "style=""display:none"" "
  307.     end if
  308.     Response.Write "id=""menu_item"&i&""">" & vbCrLf
  309.     Response.Write "<div class=sec_menu style=""width:158"">" & vbCrLf
  310.     Response.Write "<table width=""97%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
  311.     Response.Write "<tr>" & vbCrLf
  312.     Response.Write "<td height=""8""></td>" & vbCrLf
  313.     Response.Write "</tr>" & vbCrLf
  314.     for j=1 to ubound(menu,2)
  315.     if isempty(menu(i,j)) then exit for
  316.     Response.Write "<tr>" & vbCrLf
  317.     Response.Write "<td height=20><img src=""images/bullet.gif"" border=0>"&menu(i,j)&"</td>" & vbCrLf
  318.     Response.Write "</tr>" & vbCrLf
  319.     next
  320.     Response.Write "</table>" & vbCrLf
  321.     Response.Write "</div>" & vbCrLf
  322.     Response.Write "<div style=""width:158"">" & vbCrLf
  323.     Response.Write "<table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
  324.     Response.Write "<tr>" & vbCrLf
  325.     Response.Write "<td height=12></td>" & vbCrLf
  326.     Response.Write "</tr>" & vbCrLf
  327.     Response.Write "</table></div></td></tr></table>" & vbCrLf
  328.     next
  329.     Response.Write "<table width=""90%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
  330.     Response.Write "<tr>" & vbCrLf
  331.     Response.Write "<td height=""8""></td>" & vbCrLf
  332.     Response.Write "</tr>" & vbCrLf
  333.     Response.Write "</table>" & vbCrLf
  334.     Response.Write "<table width=""158"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
  335.     Response.Write "<tr>" & vbCrLf
  336.     Response.Write "<td width=""158"" height=""25"" background=""images/title_bg_copy.gif""><strong class=""menu_title""><span>系统信息</span></strong></td>" & vbCrLf
  337.     Response.Write "</tr>" & vbCrLf
  338.     Response.Write "<tr valign=""top"">" & vbCrLf
  339.     Response.Write "<td bgcolor=""#D0D8F0"">" & vbCrLf
  340.     Response.Write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
  341.     Response.Write "<tr>" & vbCrLf
  342.     Response.Write "<td width=""148"" height=""28"" class=""sec_menu"">" & vbCrLf
  343.     Response.Write "<table width=""97%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
  344.     Response.Write "<tr>" & vbCrLf
  345.     Response.Write "<td height=""8""></td>" & vbCrLf
  346.     Response.Write "</tr>" & vbCrLf
  347.     Response.Write "<tr>" & vbCrLf
  348.     Response.Write "<td height=""20""><img src=""images/bullet.gif"" border=0>版权所有：<a href=""http://hi.baidu.com/hezeyU/"" target=_blank>蓝宇网络</a></td>" & vbCrLf
  349.     Response.Write "</tr>" & vbCrLf
  350.     Response.Write "<tr>" & vbCrLf
  351.     Response.Write "<td height=""20""><img src=""images/bullet.gif"" border=0>官方主页：<a href=""http://hi.baidu.com/hezeyu/"" target=_blank>蓝宇</a></td>" & vbCrLf
  352.     Response.Write "</tr>" & vbCrLf
  353.     Response.Write "<tr>" & vbCrLf
  354.     Response.Write "<td height=""20""><img src=""images/bullet.gif"" border=0>设计开发：蓝宇</td>" & vbCrLf
  355.     Response.Write "</tr>" & vbCrLf
  356.     Response.Write "<tr>" & vbCrLf
  357.     Response.Write "<td height=""20""><img src=""images/bullet.gif"" border=0>当前版本：" & Version & "</td>" & vbCrLf
  358.     Response.Write "</tr></table></td></tr></table></td></tr></table>" & vbCrLf
  359.     Response.Write "</body>" & vbCrLf
  360.     Response.Write "</html>"
  361. End Sub
  362. Sub admin_main()
  363.     titlename="管理首页"
  364.     Admin_header
  365.     Response.Write "<table width=98% align=""center"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"">" & vbCrLf
  366.     Response.Write "<tr>" & vbCrLf
  367.     Response.Write "<th colspan=""2"">信息统计</th>" & vbCrLf
  368.     Response.Write "</tr>" & vbCrLf
  369.     Response.Write "<tr>" & vbCrLf
  370.     Response.Write "<td class=BodyTitle colspan=""2"">&nbsp;&nbsp;欢迎您使用（<font color=#FFFFAA><b>蓝宇私服发布系统</b></Font>） 您当前使用的版本为 <font color=#FFFFAA><b>" & Version & "</b></Font> 官方站点最新版本为：<font face=""Verdana, Arial, Helvetica, sans-serif"" ID=Tee5New>正在获取蓝宇官方最新版本数据，请稍后……</font></td>" & vbCrLf
  371.     Response.Write "</tr>" & vbCrLf
  372.     Response.Write "<tr>" & vbCrLf
  373.     Response.Write "<td class=TableRow colspan=""2"">&nbsp;&nbsp;"
  374.     Response.Write "<span Class=style2>待审核私服数：</span><span Class=style1><b>" & tee5.sfIsUlock & "</b></span>&nbsp;&nbsp;<span Class=style2>待审核家族数：</span><span Class=style1><b>" & tee5.jzIsUlock & "</b></span></td>" & vbCrLf
  375.     Response.Write "</tr>" & vbCrLf
  376.     Response.Write "<tr>" & vbCrLf
  377.     Response.Write "<td width=""50%"" class=""TableRow1"">&nbsp;服务器正在运行的端口：" & Request.ServerVariables("server_port") & " (名称：" & Request.ServerVariables("SERVER_NAME") & ")</td>" & vbCrLf
  378.     Response.Write "<td class=""TableRow1"">&nbsp;脚本解释引擎：" & ScriptEngine & "/" &  ScriptEngineMajorVersion  & "." & ScriptEngineMinorVersion & "." &  ScriptEngineBuildVersion  & "</td>" & vbCrLf
  379.     Response.Write "</tr>" & vbCrLf
  380.     Response.Write "<tr>" & vbCrLf
  381.     Response.Write "<td class=""TableRow1""> &nbsp;IIS版本：" & Request.ServerVariables("SERVER_SOFTWARE") & "</td>" & vbCrLf
  382.     Response.Write "<td class=""TableRow1""> &nbsp;服务器类型：" & Request.ServerVariables("OS") & " (IP：" & Request.ServerVariables("LOCAL_ADDR") & ")</td>" & vbCrLf
  383.     Response.Write "</tr>" & vbCrLf
  384.     Response.Write "<tr>" & vbCrLf
  385.     Response.Write "<td class=""TableRow1"">&nbsp;站点物理路径：" & Request.ServerVariables("APPL_PHYSICAL_PATH") & " </td>" & vbCrLf
  386.     Response.Write "<td class=""TableRow1"">&nbsp;本文件路径：" & Request.ServerVariables("PATH_TRANSLATED") & "</td>" & vbCrLf
  387.     Response.Write "</tr>" & vbCrLf
  388.     Response.Write "<tr>" & vbCrLf
  389.     Response.Write "<td class=""TableRow1"">&nbsp;服务器Application数量：" & Application.Contents.Count & " 个</td>" & vbCrLf
  390.     Response.Write "<td class=""TableRow1"">&nbsp;服务器Session数量：" & Session.Contents.Count & " 个</td>" & vbCrLf
  391.     Response.Write "</tr>" & vbCrLf
  392.     Response.Write "<tr>" & vbCrLf
  393.     Response.Write "<td class=""TableRow1"">&nbsp;服务器当前时间：" & now() & "</td>" & vbCrLf
  394.     Response.Write "<td class=""TableRow1"">&nbsp;脚本连接超时时间：" & Server.ScriptTimeout & " 秒</td>" & vbCrLf
  395.     Response.Write "</tr>" & vbCrLf
  396.     Response.Write "<tr>" & vbCrLf
  397.     Response.Write "<td class=""TableRow1"">&nbsp;FSO文本读写："
  398.     Dim IsObject1,IsObject2
  399.     IsObject1="<font color=""#FF0000""><b>服务器不支持 ×</b></font>"
  400.     IsObject2="<font color=""#0000FF""><b>服务器支持 √</b></font>"
  401.     If Not IsObjInstalled(ServerObject(1)) Then
  402.     Response.Write IsObject1
  403.     Else
  404.     Response.Write IsObject2
  405.     End If
  406.     Response.Write "</td>" & vbCrLf
  407.     Response.Write "<td class=""TableRow1"">&nbsp;数据库类型："
  408.     Response.Write "<b style=""color:blue"">"
  409.     Response.Write "ACCESS"
  410.     Response.Write "</b>"
  411.     Response.Write "</td>" & vbCrLf
  412.     Response.Write "</tr>" & vbCrLf
  413.     Response.Write "<tr>" & vbCrLf
  414.     Response.Write "<td class=""TableRow1"" colspan=""2""><B>快捷操作选项：</B><A href=""admin_config.asp""><font color=""#FF0000"">网站基本设置</font></A> | <A href=""admin_password.asp""><font color=""#FF0000"">修改管理密码</font></A> | <A href=""admin_copyright.asp""><font color=""#FF0000"">版权信息设置</font></A> | <A href=""Admin_sfnews.asp""><font color=""#FF0000"">首页HTML生成</font></A></td>" & vbCrLf
  415.     Response.Write "</tr>" & vbCrLf
  416.     Response.Write "</table>" & vbCrLf
  417.     Response.Write "<br>" & vbCrLf
  418.     Response.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center>" & vbCrLf
  419.     Response.Write "<tr>" & vbCrLf
  420.     Response.Write "<th colspan=2 height=25>网站管理系统说明</th>" & vbCrLf
  421.     Response.Write "</tr>" & vbCrLf
  422.     Response.Write "<tr>" & vbCrLf
  423.     Response.Write "<td width=""60"" class=""TableRow2"" height=23>高级管理员</td>" & vbCrLf
  424.     Response.Write "<td class=""TableRow1"" style=""LINE-HEIGHT: 150%"">拥有所有权限。<BR>第一次使用时请到<font color=Red>用户管理</font>-<a href=admin_password.asp target=main><font color=Red>管理员密码修改</font></A>重新设置管理密码</td>" & vbCrLf
  425.     Response.Write "</tr>" & vbCrLf
  426.     Response.Write "<tr>" & vbCrLf
  427.     Response.Write "<td class=""TableRow2"" height=23>普通管理员</td>" & vbCrLf
  428.     Response.Write "<td class=""TableRow1"" style=""LINE-HEIGHT: 150%"">需要高级管理员给予权限。<BR>注:<a href=admin_master.asp><font color=Red>在管理员管理－设置权限!</font></A><br>" & vbCrLf
  429.     Response.Write "</td>" & vbCrLf
  430.     Response.Write "</tr>" & vbCrLf
  431.     Response.Write "<tr>" & vbCrLf
  432.     Response.Write "<td class=""TableRow2"" height=23>使用设置</td>" & vbCrLf
  433.     Response.Write "<td class=""TableRow1"" style=""LINE-HEIGHT: 150%"">第一次使用<font color=Red>863</font>企业网站管理系统<BR>" & vbCrLf
  434.     Response.Write "点击左边管理导航菜单中的“<a href=admin_config.asp><font color=Red>常规设置-基本设置</A></font>”<BR>对你的网站信息和一些网站配置参数进行配置。" & vbCrLf
  435.     Response.Write "</td>" & vbCrLf
  436.     Response.Write "</tr>" & vbCrLf
  437.     Response.Write "</table>" & vbCrLf
  438.     Response.Write "<br>" & vbCrLf
  439.     Response.Write "<table width=98% align=""center"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"">" & vbCrLf
  440.     Response.Write "<tr>" & vbCrLf
  441.     Response.Write "<th colspan=""2"">实用搜索</th>" & vbCrLf
  442.     Response.Write "</tr>" & vbCrLf
  443.     Response.Write "<form action=""?action=admin_search"" method=""post"" target=""_blank"">" & vbCrLf
  444.     Response.Write "<tr>" & vbCrLf
  445.     Response.Write "<td class=""TableRow1"" align=""right"">输入关键字：</td>" & vbCrLf
  446.     Response.Write "<td class=""TableRow1""><input name=""word"" type=""text"" id=""word"" class=""lostfocus"" gf=""0"" onmouseover='this.className=""getfocus""' onmouseout='if (this.gf==""0"") this.className=""lostfocus""' onblur='this.className=""lostfocus"";this.gf=""0""' onfocus='this.className=""getfocus"";this.gf=""1""'>&nbsp;&nbsp;"
  447.     Response.Write "<input type=""submit"" name=""Submit"" value="" 搜 索 ""></td>" & vbCrLf
  448.     Response.Write "</tr>" & vbCrLf
  449.     Response.Write "<tr>" & vbCrLf
  450.     Response.Write "<td class=""TableRow1"" align=""center"">常用搜索引擎(查询请输入字符)：</td>" & vbCrLf
  451.     Response.Write "<td width=""76%"" class=""TableRow1"">"
  452.     Response.Write "<input name=""search"" type=""radio"" value=""google"" checked>"
  453.     Response.Write "Google&nbsp;&nbsp;&nbsp;&nbsp;"
  454.     Response.Write "<input type=""radio"" name=""search"" value=""3721"">"
  455.     Response.Write "3721&nbsp;&nbsp;&nbsp;&nbsp;"
  456.     Response.Write "<input type=""radio"" name=""search"" value=""baidu"">"
  457.     Response.Write "百度&nbsp;&nbsp;&nbsp;&nbsp;"
  458.     Response.Write "<input type=""radio"" name=""search"" value=""sina"">"
  459.     Response.Write "新浪搜索</td>" & vbCrLf
  460.     Response.Write "</tr>" & vbCrLf
  461.     Response.Write "</form>" & vbCrLf
  462.     Response.Write "<form name=wordform action=""?action=admin_search"" method=""post"" onsubmit=""return checkDomain();"" target=""_blank"">" & vbCrLf
  463.     Response.Write "<tr>" & vbCrLf
  464.     Response.Write "<td class=""TableRow1"" align=""right"">输入您域名：</td>" & vbCrLf
  465.     Response.Write "<td class=""TableRow1""><input name=""word"" type=""text"" id=""word"" class=""lostfocus"" gf=""0"" onmouseover='this.className=""getfocus""' onmouseout='if (this.gf==""0"") this.className=""lostfocus""' onblur='this.className=""lostfocus"";this.gf=""0""' onfocus='this.className=""getfocus"";this.gf=""1""'>&nbsp;&nbsp;"
  466.     Response.Write "<input type=""submit"" name=""Submit"" value="" 搜 索 ""></td>" & vbCrLf
  467.     Response.Write "</tr>" & vbCrLf
  468.     Response.Write "<tr>" & vbCrLf
  469.     Response.Write "<td class=""TableRow1"" align=""center"">站长常用工具(查询请输入域名)：</td>" & vbCrLf
  470.     Response.Write "<td width=""76%"" class=""TableRow1"">" & vbCrLf
  471.     Response.Write "<input name=""search"" type=""radio"" value=""alexa"" checked> " & vbCrLf
  472.     Response.Write "世界排名&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
  473.     Response.Write "<input type=""radio"" name=""search"" value=""sosearch"">" & vbCrLf
  474.     Response.Write "搜索收录&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
  475.     Response.Write "<input type=""radio"" name=""search"" value=""pagerank""> " & vbCrLf
  476.     Response.Write "网站PR值&nbsp;&nbsp;&nbsp;&nbsp;</td>" & vbCrLf
  477.     Response.Write "</tr>" & vbCrLf
  478.     Response.Write "</form>" & vbCrLf
  479.     Response.Write "</table>" & vbCrLf
  480.     Response.Write "<br>" & vbCrLf
  481.     Response.Write "<table width=98% align=""center"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"">" & vbCrLf
  482.     Response.Write "<tr>" & vbCrLf
  483.     Response.Write "<th colspan=""2"">蓝宇说明</th>" & vbCrLf
  484.     Response.Write "</tr>" & vbCrLf
  485.     Response.Write "<tr>" & vbCrLf
  486.     Response.Write "<td class=""TableRow1"" align=""center"">版权声明：</td>" & vbCrLf
  487.     Response.Write "<td class=""TableRow1"" style=""LINE-HEIGHT: 150%"">" & vbCrLf
  488.     Response.Write "1、本软件为共享软件,未经书面授权，不得向任何第三方提供本软件系统;<BR>" & vbCrLf
  489.     Response.Write "2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任;<BR>" & vbCrLf
  490.     Response.Write "3、您可以对本系统进行修改和美化，但必须保留完整的版权信息; <BR>" & vbCrLf
  491.     Response.Write "4、本软件受中华人民共和国《著作权法》《计算机软件保护条例》等相关法律、法规保护，作者保留一切权利。</td>" & vbCrLf
  492.     Response.Write "</tr>" & vbCrLf
  493.     Response.Write "<tr>" & vbCrLf
  494.     Response.Write "<td class=""TableRow1"" align=""center"">系统开发：</td>" & vbCrLf
  495.     Response.Write "<td class=""TableRow1"" style=""LINE-HEIGHT: 150%"">" & vbCrLf
  496.     Response.Write "程序制作：本程序由蓝宇网络开发！<BR>" & vbCrLf
  497.     Response.Write "版权所有：蓝宇网络<BR>" & vbCrLf
  498.     Response.Write "官方网站：<a href=""http://hi.baidu.com/hezeyu/"" target=_blank>http://hi.baidu.com/hezeyu</a>　　  <a href=""http://hi.baidu.com/hezeyu/"" target=_blank>hi.baidu.com/hezeyu</a><BR>" & vbCrLf
  499.     Response.Write "联系方式：QQ：18159079　电话：13203117383　</td>" & vbCrLf
  500.     Response.Write "</tr>" & vbCrLf
  501.     Response.Write "</table>" & vbCrLf
  502.     Admin_footer
  503.     Response.Write "<div ID=Tee5NewTxt Style=""Display:none""><script language=""JavaScript"" src=""http://www.863sf.Cn/About/New.Asp?tee5New=3&SiteUrl=" & tee5.WebUrl & "&Version=" & Version & """ type=""text/javascript""></script></div>" & vbCrLf
  504.     Response.Write "<script language=""JavaScript"" type=""text/javascript"">" & vbCrLf
  505.     Response.Write "<!--" & vbCrLf
  506.     Response.Write "document.getElementById(""Tee5New"").innerHTML=document.getElementById(""Tee5NewTxt"").innerHTML;" & vbCrLf
  507.     Response.Write "//-->" & vbCrLf
  508.     Response.Write "</script>" & vbCrLf
  509. End Sub
  510. Sub admin_bottom()
  511.     Admin_header
  512.     Response.Write "<table border=0 align=center cellpadding=0 cellspacing=0 id=""bottomMain"">" & vbCrLf
  513.     Response.Write "<tr>" & vbCrLf
  514.     Response.Write "<td align=""center"">蓝宇私服发布系统 v3.3.0 SP1&nbsp;&nbsp;&nbsp;&nbsp;"
  515.     Response.Write "Copyright &copy; 2004-2007 <a href=""http://hi.baidu.com/hezeyu"" target=""_blank"">蓝宇</a>. All Rights Reserved .</td>" & vbCrLf
  516.     Response.Write "</tr>" & vbCrLf
  517.     Response.Write "</table>"
  518. End Sub
  519. %>