<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
'╭──98游戏───────────────╮
'┃　　　　　　      　　             　　 ┃
'┃程序类型:发布站程序　　　　　　　       ┃
'┃购买认证:98游戏GM基地　　　　　         ┃
'┃程序版本:Ver4.0　　　　　　　           ┃
'┃程序作者:98游戏　　　　　　　           ┃
'┃联 系 QQ:1013665749                      ┃
'┃联系电话:18279334539　　　　　　　      ┃
'┃官方网站:http://www.98youx.com            ┃
'┃版权所有:98游戏　　　　　　             ┃
'┃　　　　　　　　             　　　　   ┃
'┃　         版权声明：转载请保留版权信息 ┃
'╰───────────Cool network───╯
select case request("action")
case "admin_top"
      call admin_top()
case "admin_left"
      call admin_left()
case "admin_main"
      call admin_main()
case "admin_bottom"
      call admin_bottom()
case "admin_search"
      call admin_search()
case else
      call Main()
end select
CloseConn
'/////内容开始
Sub admin_search()
    dim word,engine
    word = request.Form("word")
    engine = request.Form("search")
    Select case engine
       case "3721"
            response.Redirect("http://cns.3721.com/cns.dll?name="&word)
            response.End()
       case "google"
            response.Redirect("http://www.google.com/search?q="&word&"&hl=zh-CN&lr=lang_zh-CN&ie=gb2312")
            response.End()
       case "baidu"
            response.Redirect("http://www.baidu.com/baidu?word="&word)
            response.End()
       case "sina"
            response.Redirect("http://search.sina.com.cn/cgi-bin/search/search.cgi?ss=sina&_searchkey="&word)
            response.End()
       case "alexa"
            response.Redirect("http://tool.98youx.com/?domain="&word)
            response.End()
       case "sosearch"
            response.Redirect("http://tool.98youx.com/So.asp?domain="&word)
            response.End()
       case "pagerank"
            response.Redirect("http://tool.98youx.com/PageRank.asp?domain="&word)
            response.End()
    end select
End Sub
Sub Main()
    Response.Write "<html>" & vbCrLf
    Response.Write "<head>" & vbCrLf
    Response.Write "<title>98游戏发布站管理系统-WwW.98youx.com</title>" & vbCrLf
    Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
    Response.Write "</head>" & vbCrLf
    Response.Write "<frameset rows=""105,*,25"" frameborder=""NO"" border=""0"" framespacing=""0"">" & vbCrLf
    Response.Write "<frame src=""?action=admin_top"" noresize=""noresize"" frameborder=""0"" "
    Response.Write "name=""topFrame"" scrolling=""no"" marginwidth=""0"" marginheight=""0"" />" & vbCrLf
    Response.Write "<frameset rows=""*"" cols=""175,*"" id=""frame"">" & vbCrLf
    Response.Write "<frame src=""?action=admin_left"" name=""leftFrame"" noresize=""noresize"" "
    Response.Write "marginwidth=""0"" marginheight=""0"" frameborder=""0"" scrolling=""yes"">" & vbCrLf
    Response.Write "<frame src=""?action=admin_main"" name=""main"" marginwidth=""0"" marginheight=""0"" "
    Response.Write "frameborder=""0"" scrolling=""yes"" />" & vbCrLf
    Response.Write "</frameset>" & vbCrLf
    Response.Write "<frame src=""?action=admin_bottom"" noresize=""noresize"" scrolling=""no"" frameborder=""no"" class=""fb-bottom"" name=""bottomframe"">" & vbCrLf
    Response.Write "<noframes>" & vbCrLf
    Response.Write "<body>" & vbCrLf
    Response.Write "</body>" & vbCrLf
    Response.Write "</noframes>" & vbCrLf
    Response.Write "</frameset>" & vbCrLf
    Response.Write "</html>"
End Sub
Sub admin_top()
    Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & vbCrLf
    Response.Write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbCrLf
    Response.Write "<head>" & vbCrLf
    Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />" & vbCrLf
    Response.Write "<link type=""text/css"" rel=""stylesheet"" href=""Images/Style.css"" />" & vbCrLf
    Response.Write "<title>98游戏发布站管理系统-WwW.98youx.com</title>" & vbCrLf
    Response.Write "<base target=""main"">" & vbCrLf
    Response.Write "<script language=""javascript"">" & vbCrLf
    Response.Write "<!--" & vbCrLf
    Response.Write "var displayBar=true;" & vbCrLf
    Response.Write "function switchBar(obj){" & vbCrLf
    Response.Write "if (displayBar)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "else{" & vbCrLf
    Response.Write "parent.frame.cols=""300,*"";" & vbCrLf
    Response.Write "displayBar=true;" & vbCrLf
    Response.Write "obj.src=""images/admin_logo_1.gif"";" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "//-->" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "<script language=JavaScript>" & vbCrLf
    Response.Write "function logout(){" & vbCrLf
    Response.Write "top.location = ""Login.asp?action=logout"";" & vbCrLf
    Response.Write "return false;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Write "<style type=text/css>" & vbCrLf
    Response.Write "a { color:#FFFFFF;text-decoration:none}" & vbCrLf
    Response.Write "a:hover {color:#DBDBDB;text-decoration: underline}" & vbCrLf
    Response.Write "td {color: #FFFFFF; font-family: ""宋体"";font-weight:bold;}" & vbCrLf
    Response.Write "</style>" & vbCrLf
    Response.Write "</head>" & vbCrLf
    Response.Write "<body leftmargin=""0"" topmargin=""0"">" & vbCrLf
    Response.Write "<table cellSpacing=""0"" cellPadding=""0"" align=""center"" width=""100%"" border=""0"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=""68"" class=""BodyTitle"" width=""100%"">" & vbCrLf
    Response.Write "<table cellSpacing=""0"" cellPadding=""0"" width=""100%"" border=""0"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td align=""left""><img src=""images/admin_logo_1.gif"" width=""250"" height=""68"" border=0 style=""cursor:hand""></td>" & vbCrLf
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_biao1.gif) no-repeat;padding-top:48px;""><A href=""/"" target=""_blank"">网站首页</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_ICON3.gif) no-repeat;padding-top:48px;""><a href=""admin_config.asp"" target=main>系统设置</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_guanl.png) no-repeat;padding-top:48px;""><A href=""admin_list.asp"" target=main>游戏管理</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_biao2.gif) no-repeat;padding-top:48px;""><A href=""admin_Jz_list.asp"" target=main>家族管理</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_biao6.gif) no-repeat;padding-top:48px;""><A href=""admin_article.asp?action=cat"" target=main>文章管理</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_biao7.gif) no-repeat;padding-top:48px;""><A href=""Player_List.asp"" target=main>歌曲管理</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_biao8.gif) no-repeat;padding-top:48px;""><A href=""admin_soft.asp"" target=main>下载管理</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_biao9.gif) no-repeat;padding-top:48px;""><A href=""admin_caiji.asp"" target=main>游戏采集</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_daili.gif) no-repeat;padding-top:48px;""><a href=""User_zfset.asp"" target=main>商户代理</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_324256.gif) no-repeat;padding-top:48px;""><a href=""http://www.98youx.com"" target=main>程序更新</A>&nbsp;&nbsp;&nbsp;</td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_biao11.gif) no-repeat;padding-top:48px;""><a href=""#"" onclick=""logout();"">退出后台</A></td>"
    Response.Write "</tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "</td></tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf


    Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
    Response.Write "<tr height=""31"">" & vbCrLf
    Response.Write "<td background=""images/bg2.gif"" width=""28"" style=""padding-left:30px;""><img src=""images/arrow.gif"" alt="""" align=""absmiddle"" /></td>" & vbCrLf
    Response.Write "<td background=""images/bg2.gif""><span style=""float:left;color:#000;"">官方公告：</span><span style=""color:#c00; font-weight:bold; float:left;width:auto;"" id=""dvbbsannounce""><iframe scrolling=no name=frampack frameborder=0 marginheight=0 marginwidth=0 width=100% height=20 allowTransparency src=http://www.98youx.com/zq/daohang.asp></iframe></span></td>" & vbCrLf
    Response.Write "<td background=""images/bg2.gif"" style=""text-align:right; color: #135294; padding-right:15px; ""><a href=""http://www.98youx.com"" target=main><font color=#FF0000>查看更新</Font></a></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "</body>" & vbCrLf
    Response.Write "</html>"
End Sub
Sub admin_left()
    Dim MyDB
    MyDB = "ACCESS"
    Rem 管理栏目设置
    dim menu(12,12) ' 菜单数目
    menu(1,0)="网站系统设置"
    menu(1,1)="<a href=admin_config.asp target=main>基本设置</a> | <a href=admin_type.asp target=main>游戏类型</a>"
    menu(1,2)="<a href=admin_copyright.asp target=main>版权设置</a> | <a href=Admin_Admanage.Asp target=main>广告管理</a>"  
    menu(1,3)="<a href=admin_link.asp target=main>友情链接</a> | <a href=admin_link.asp?action=add target=main>链接添加</a>"  
    menu(1,3)="<a href=admin_master.asp target=main>管理帐号</a> | <a href=admin_master.asp?action=add target=main>添加管理</a>" 
    menu(1,4)="<a href=admin_link.asp target=main>友链管理</a> | <a href=admin_link.asp?action=add target=main>友链添加</a>"

    menu(2,0)="网站模板应用"
    menu(2,1)="<font color=#CCCCCC>[QiKUCMS_VerX开发中]</a>"
    menu(2,2)="<font color=#CCCCCC>[QiKUCMS_VerX开发中]</a>"
    menu(2,3)="<font color=#CCCCCC>[QiKUCMS_VerX开发中]</a>"
    menu(2,4)="<font color=#CCCCCC>[QiKUCMS_VerX开发中]</a>"

    menu(3,0)="网站游戏采集"
    menu(3,1)="<a href=admin_caiji.asp target=main><font color=#0000FF><align=""center"">一键采集游戏列表信息</a>"
    menu(3,2)="<a href=admin_caiji9.asp target=main><font color=#0000FF><align=""center"">万能采集游戏列表信息</a>"

    menu(4,0)="全站静态管理"
    menu(4,1)="<a href=createhtml.asp?action=index target=main>生成网站首页HTML信息</a>"
    menu(4,2)="<a href=createhtml.asp?action=other target=main>生成网站栏目HTML信息</a>"
 
    menu(5,0)="网站游戏管理"
    menu(5,1)="<a href=admin_list.asp target=main>游戏列表</a> | <a href=admin_add.asp target=main>添加游戏</a>"
    menu(5,2)="<a href=QiKuCMS_add.asp target=main><font color=#FF0000>智能添加游戏工具</a>"
    menu(5,3)="<a href=admin_list.asp?action=ulock target=main>等待审核游戏管理</a>"
    menu(5,4)="<a href=admin_list.asp?action=top target=main>固顶推荐游戏管理</a>"
    menu(5,5)="<a href=admin_list.asp?action=hot target=main>通宵推荐游戏管理</a>"
    menu(5,6)="<a href=admin_list.asp?action=hot2 target=main>精品通宵游戏管理</a>"
    menu(5,7)="<a href=admin_list.asp?action=fine target=main>普通精品游戏管理</a>"
    menu(5,8)="<a href=admin_list.asp?action=fine2 target=main>固定精品游戏管理</a>"
    menu(5,9)="<a href=admin_list.asp?action=free target=main>更多游戏列表管理</a>"

    menu(6,0)="网站战歌管理"
    menu(6,1)="<a href=Player_add.asp target=main>添加歌曲</a> | <a href=Player_Class.asp target=main>歌曲类别</a>"
    menu(6,2)="<a href=Player_List.asp target=main>家族战歌列表管理</a>"

    menu(7,0)="游戏家族管理"
    menu(7,1)="<a href=admin_jz_list.asp?action=jzulock target=main>家族审核</a> | <a href=admin_jz_list.asp?action=jztop target=main>家族固顶</a>"
    menu(7,2)="<a href=admin_Jz_list.asp target=main>游戏家族列表管理</a></a>"

    menu(8,0)="网站文章管理"
    menu(8,1)="<a href=admin_article.asp?action=cat target=main>文章管理</a> | <a href=admin_article.asp target=main>文章分类</a>"
    menu(8,2)="<a href=admin_article.asp?action=newart target=main>添加文章</a> | <a href=admin_article.asp?action=newartcat target=main>添加分类</a>"

    menu(9,0)="网站软件管理"
    menu(9,1)="<a href=admin_soft.asp target=main>软件管理</a> | <a href=admin_soft.asp?action=add target=main>发布软件</a>"

    menu(10,0)="商户代理系统"
    menu(10,1)="<a href=user_Grade.asp target=main>商户代理 |  价格修改</a>" 
    menu(10,2)="<a href=user_manage.asp target=main>商户管理</a> | <a href=admin_list.asp?action=vip target=main>商户游戏</a>"
    menu(10,3)="<a href=user_Grade.asp?action=newmenu target=main>商户等级</a> | <a href=User_MoneyLog.asp target=main>加扣日志</a>"
    menu(10,4)=" <a href=User_zflog.asp target=main>充值记录</a> |  <a href=User_zfset.asp target=main>支付设置</a>"
    menu(11,0)="快捷删除操作"
    menu(11,1)="<a href=Admin_del.asp?action=sfdel target=main>一键删除所有游戏</a>" 
    menu(11,2)="<a href=Admin_del.asp?action=wzdel target=main>一键删除所有文章</a>"
    menu(11,3)="<a href=Admin_del.asp?action=jztdel target=main>一键删除所有家族</a>"
    menu(11,4)="<a href=Admin_del.asp?action=softdel target=main>一键删除所有软件</a>"

    menu(12,0)="网站数据管理"
    menu(12,1)="<a href=admin_database.asp?action=BackupData target=main>数据备份</a> | <a href=admin_database.asp?action=RestoreData target=main>数据恢复</a>"
    menu(12,2)="<a href=admin_database.asp?action=CompressData target=main>数据压缩</a> | <a href=admin_spacesize.asp target=main>空间占用</a>"

    Response.Write "<html>" & vbCrLf
    Response.Write "<head>" & vbCrLf
    Response.Write "<title>菜单管理</title>" & vbCrLf
    Response.Write "<style type=text/css>" & vbCrLf
    Response.Write "BODY{" & vbCrLf
    Response.Write "margin:0px;" & vbCrLf
    Response.Write "FONT-SIZE: 12px;" & vbCrLf
    Response.Write "FONT-FAMILY: ""宋体"", ""Verdana"", ""Arial"", ""Helvetica"", ""sans-serif"";" & vbCrLf
    Response.Write "background:#F4FCFC; " & vbCrLf
    Response.Write "scrollbar-highlight-color: #F4FCFC; " & vbCrLf
    Response.Write "scrollbar-arrow-color: #F4FCFC; " & vbCrLf
    Response.Write "scrollbar-base-color: #F4FCFC" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "table  { border:0px; }" & vbCrLf
    Response.Write "td  { font:normal 12px 宋体;}" & vbCrLf
    Response.Write "img  { vertical-align:bottom; border:0px; }" & vbCrLf
    Response.Write "a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }" & vbCrLf
    Response.Write "a:hover  { color:#000000;text-decoration:underline; }" & vbCrLf
    Response.Write ".sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#F4FCFC; }" & vbCrLf
    Response.Write ".menu_title  { }" & vbCrLf
    Response.Write ".menu_title span  { position:relative; top:0px; left:40px; color:#3399FF; font-weight:bold; }" & vbCrLf
    Response.Write ".menu_title2  { }" & vbCrLf
    Response.Write ".menu_title2 span  { position:relative; top:0px; left:40px; color:#3399FF; font-weight:bold; }" & vbCrLf
    Response.Write "</style>" & vbCrLf
    Response.Write "<script language=JavaScript>" & vbCrLf
    Response.Write "function logout(){" & vbCrLf
    Response.Write "if (confirm(""98游戏论坛提示：您确定要退出控制面板吗？""))" & vbCrLf
    Response.Write "top.location = ""Login.asp?action=logout"";" & vbCrLf
    Response.Write "return false;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
'菜单样式1 如果使用把'Response.Write前面的'去掉，把样式2前面加上'
    'Response.Write "<script language=JavaScript1.2>" & vbCrLf
    'Response.Write "function showmenu_item(sid) {" & vbCrLf
    'Response.Write "var whichEl = eval(""menu_item"" + sid);" & vbCrLf
    'Response.Write "var menuTitle = eval(""menuTitle"" + sid);" & vbCrLf
    'Response.Write "if (whichEl.style.display == ""none""){" & vbCrLf
    'Response.Write "eval(""menu_item"" + sid + "".style.display=\""\"";"");" & vbCrLf
    'Response.Write "if (sid != 0 & sid < 999) {" & vbCrLf
    'Response.Write "menuTitle.background=""images/title_bg_copy.gif"";" & vbCrLf
    'Response.Write "}" & vbCrLf
    'Response.Write "}else{" & vbCrLf
    'Response.Write "eval(""menu_item"" + sid + "".style.display=\""none\"";"");" & vbCrLf
    'Response.Write "if (sid != 0 & sid < 999) {" & vbCrLf
    'Response.Write "menuTitle.background=""images/title_bg_show.gif"";" & vbCrLf
    'Response.Write "}" & vbCrLf
    'Response.Write "}" & vbCrLf
    'Response.Write "}" & vbCrLf
    'Response.Write "</script>" & vbCrLf
'菜单样式2
    Response.Write "<SCRIPT language=javascript1.2>" & vbCrLf
    Response.Write "function showmenu_item(sid)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "which = eval(""menu_item"" + sid);" & vbCrLf
    Response.Write "if (which.style.display == ""none"")" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "var i = 1" & vbCrLf
    Response.Write "while(i<6){" & vbCrLf
    Response.Write "eval(""menu_item""+ i +"".style.display=\""none\"";"");" & vbCrLf
    Response.Write "eval(""menuTitle""+ i +"".background=\""images/title_bg_show.gif\"";"");" & vbCrLf
    Response.Write "i++;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "eval(""menu_item"" + sid + "".style.display=\""\"";"");" & vbCrLf
    Response.Write "eval(""menuTitle""+ sid + "".background=\""images/title_bg_copy.gif\"";"")" & vbCrLf
    Response.Write "}else{" & vbCrLf
    Response.Write "eval(""menu_item"" + sid + "".style.display=\""none\"";"");" & vbCrLf
    Response.Write "eval(""menuTitle""+ sid + "".background=\""images/title_bg_show.gif\"";"")" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</SCRIPT>" & vbCrLf
    Response.Write "<link href=""Images/style.css"" type=text/css rel=""stylesheet"" />" & vbCrLf
    Response.Write "<BODY leftmargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0"">" & vbCrLf
    Response.Write "<table border=""0"" height=55>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td> </td>"
    Response.Write "<td> </td>"
    Response.Write "<td> </td>"
    Response.Write "<td> </td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_biao12.gif) no-repeat;padding-top:45px;""><A href=""admin_master.asp"" target=main>后台管理</A></td>"
    Response.Write "<td> </td>"
    Response.Write "<td> </td>"
    Response.Write "<td> </td>"
    Response.Write "<td style=""BACKGROUND: url(images/QiKuCMS_biao13.gif) no-repeat;padding-top:45px;""><A href=""admin_Index.asp?action=admin_main"" target=main>后台首页</A></td>"
    Response.Write "</tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    Response.Write "<div style=""width:158;"">" & vbCrLf
    Response.Write "<table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=0></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "</div>" & vbCrLf
     dim j,i
     dim tmpmenu
     dim menuname
     dim menurl
    for i=1 to ubound(menu,1)
    Response.Write "<table cellpadding=0 cellspacing=0 width=158>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; "
    Response.Write "background=""images/title_bg_show.gif"" id=menuTitle"&i&" onclick=""showmenu_item("&i&")"" Style=""Cursor: hand;"">"
    Response.Write "<span>"&menu(i,0)&"</span></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td "
    if i=1 then
    Response.Write "style=""display:"" "
    else
    Response.Write "style=""display:none"" "
    end if
    Response.Write "id=""menu_item"&i&""">" & vbCrLf
    Response.Write "<div class=sec_menu style=""width:158"">" & vbCrLf
    Response.Write "<table width=""97%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=""5""></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    for j=1 to ubound(menu,2)
    if isempty(menu(i,j)) then exit for
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=20><center>"&menu(i,j)&"</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    next
    Response.Write "</table>" & vbCrLf
    Response.Write "</div>" & vbCrLf
    Response.Write "<div style=""width:158"">" & vbCrLf
    Response.Write "<table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=0></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "</table></div></td></tr></table>" & vbCrLf
    next
    Response.Write "<table width=""90%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=""5""></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "<table width=""158"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td width=""158"" height=""25"" background=""images/title_bg_show.gif""><strong class=""menu_title""><span>系统信息</span></strong></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr valign=""top"">" & vbCrLf
    Response.Write "<td bgcolor=""#D0D8F0"">" & vbCrLf
    Response.Write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td width=""148"" height=""28"" class=""sec_menu"">" & vbCrLf
    Response.Write "<table width=""97%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=""8""></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=""20"" align=""center""><a href=""http://www.98youx.com"" target=main><font color=#3399ff>BUG反馈</a></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<td height=""20"" align=""center""><a href=""http://www.98youx.com"" target=_blank><font color=#3399ff>版权所有</a></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=""20"" align=""center""><a href=""http://www.98youx.com"" target=_blank><font color=#3399ff>98游戏(98youx.com)</a></td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=""20"" align=""center""><a href=""http://wpa.qq.com/msgrd?v=3&uin=1013665749&site=qq&menu=yes"" target=_blank><font color=#3399ff>QQ:1013665749</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td height=""20"" align=""center""><a href=""#"" onclick=""logout();""><font color=#3399ff>【注销退出】</td>" & vbCrLf
    Response.Write "</tr></table></td></tr></table></td></tr></table>" & vbCrLf
    Response.Write "</body>" & vbCrLf
    Response.Write "</html>"
End Sub
Sub admin_main()
    titlename="管理首页"
    Admin_header
    Response.Write "<table width=100% align=""center"" border=""0"" cellspacing=""1"" cellpadding=""0"" class=""tableBorder"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<a href=""http://www.98youx.com"" target=_blank><img src=""images/111.jpg""width=""100%""  border=0>" & vbCrLf
   Response.Write "</a>" & vbCrLf
    Response.Write "<th colspan=2 height=20><font color=#ffffff>98游戏后台系统：欢迎您登录后台！</a><font color=""ffffff"">待审核游戏数：</span><font color=#ffffff>[<a href=admin_list.asp?action=ulock target=main><font color=""ffffff"">" & QiKuCMS.sfIsUlock & "</a>]</span>&nbsp;&nbsp;<span Class=style2><font color=""ffffff"">待审核家族数：</span>[<a href=admin_jz_list.asp?action=jzulock target=main><font color=#ffffff>" & QiKuCMS.jzIsUlock & "</a>]</b></span></th>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td class=tableBorder colspan=""2"">"

    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td width=""50%"" class=""TableRow1"">&nbsp;服务器正在运行的端口：" & Request.ServerVariables("server_port") & " (名称：" & Request.ServerVariables("SERVER_NAME") & ")</td>" & vbCrLf
    Response.Write "<td class=""TableRow1"">&nbsp;脚本解释引擎：" & ScriptEngine & "/" &  ScriptEngineMajorVersion  & "." & ScriptEngineMinorVersion & "." &  ScriptEngineBuildVersion  & "</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td class=""TableRow1""> &nbsp;程序版本：" & Version & "</td>" & vbCrLf
    Response.Write "<td class=""TableRow1""> &nbsp;服务器类型：" & Request.ServerVariables("OS") & " (IP：" & Request.ServerVariables("LOCAL_ADDR") & ")</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td class=""TableRow1"">&nbsp;站点物理路径：" & Request.ServerVariables("APPL_PHYSICAL_PATH") & " </td>" & vbCrLf
    Response.Write "<td class=""TableRow1"">&nbsp;本文件路径：" & Request.ServerVariables("PATH_TRANSLATED") & "</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td class=""TableRow1"">&nbsp;服务器Application数量：" & Application.Contents.Count & " 个</td>" & vbCrLf
    Response.Write "<td class=""TableRow1"">&nbsp;服务器Session数量：" & Session.Contents.Count & " 个</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td class=""TableRow1"">&nbsp;服务器当前时间：" & now() & "</td>" & vbCrLf
    Response.Write "<td class=""TableRow1"">&nbsp;脚本连接超时时间：" & Server.ScriptTimeout & " 秒</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td class=""TableRow1"">&nbsp;FSO文本读写："
    Dim IsObject1,IsObject2
    IsObject1="<font color=""#FF0000""><b>服务器不支持 ×</b></font>"
    IsObject2="<font color=""#0000FF""><b>服务器支持 √</b></font>"
    If Not IsObjInstalled(ServerObject(1)) Then
    Response.Write IsObject1
    Else
    Response.Write IsObject2
    End If
    Response.Write "</td>" & vbCrLf
    Response.Write "<td class=""TableRow1"">&nbsp;数据库类型："
    Response.Write "<b style=""color:blue"">"
    Response.Write "ACCESS"
    Response.Write "</b>"
    Response.Write "</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf

    Response.Write "</tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "<br>" & vbCrLf
    Response.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center>" & vbCrLf
    Response.Write "<th colspan=2 height=25><font color=#ffffff>网站管理系统说明</th>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td width=""60"" class=""TableRow2"" height=23>高级管理员</td>" & vbCrLf
    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
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td class=""TableRow2"" height=23>普通管理员</td>" & vbCrLf
    Response.Write "<td class=""TableRow1"" style=""LINE-HEIGHT: 150%"">需要高级管理员给予权限。<BR>注:<a href=admin_master.asp><font color=Red>在管理员管理－设置权限!</font></A><br>" & vbCrLf
    Response.Write "</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf



    Response.Write "<br>" & vbCrLf
    Response.Write "<table width=98% align=""center"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<th colspan=""2""><font color=#ffffff>使用说明</th>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td class=""TableRow1"" align=""center"">版权声明：</td>" & vbCrLf
    Response.Write "<td class=""TableRow1"" style=""LINE-HEIGHT: 150%"">" & vbCrLf
    Response.Write "1、本软件为共享软件,未经书面授权，不得向任何第三方提供本软件系统;<BR>" & vbCrLf
    Response.Write "2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任;<BR>" & vbCrLf
    Response.Write "3、您可以对本系统进行修改和美化，但必须保留完整的版权信息; <BR>" & vbCrLf
    Response.Write "4、本软件受中华人民共和国《著作权法》《计算机软件保护条例》等相关法律、法规保护，作者保留一切权利。</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

End Sub
Sub admin_bottom()
    Admin_header
    Response.Write "<table border=0 align=center cellpadding=0 cellspacing=0 id=""bottomMain"">" & vbCrLf
    Response.Write "<tr>" & vbCrLf
    Response.Write "<td align=""center""><font color=#ffffff>2013 <a><a href=""http://%77%77%77%2E%70%6B%30%39%35%2E%63%6F%6D/"" target=""_blank"">98youx.com</a>. All rights reserved Powered by 98游戏</td>" & vbCrLf
    Response.Write "</tr>" & vbCrLf
    Response.Write "</table>"
End Sub
%>
