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

📄 admin_index.asp

📁 本程序采用ACC数据核心构件!! 功能介绍: 程序代码重新设计与优化
💻 ASP
📖 第 1 页 / 共 3 页
字号:
<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/code.asp"-->
<!--#include file="../inc/SqlIn.Asp"-->
<!--#include file="../inc/md5.asp"-->
<%
'**********************************************************************
'*  kk4f Version 3.0
'*  Date: 2005-7-1
'**********************************************************************
'*  Copyright 2004-2005 www.xuncms.cn - All Rights Reserved.
'*  HomePage: http://www.xuncms.cn
'*  Administrator: The spirit weeps
'**********************************************************************
dim adminname
dim adminpass,ip,FoundErr,ErrMsg
if request.QueryString("action")="search" then
	dim word,engine
	word = request.Form("word")
	engine = request.Form("search")
	Select case engine
		case "3721"
			 call CloseConn()
			response.Redirect("http://cns.3721.com/cns.dll?name="&word)
			response.End()
		case "google"
			 call CloseConn()
			response.Redirect("http://www.google.com/search?q="&word&"&hl=zh-CN&lr=lang_zh-CN&ie=gb2312")
			response.End()
		case "baidu"
			 call CloseConn()
			response.Redirect("http://www.baidu.com/baidu?word="&word)
			response.End()
		case "sina"
			 call CloseConn()
			response.Redirect("http://search.sina.com.cn/cgi-bin/search/search.cgi?ss=sina&_searchkey="&word)
			response.End()
		case "alexa"
			 call CloseConn()
			response.Redirect("http://www.alexa.com/data/details?url="&word)
			response.End()
	end select
end if
if request("action")="adminlogin" then
If CStr(Session("Gqcode"))<>CStr(Trim(Request("Gqcode"))) Then
 Response.Write("<script language=javascript>alert('对不起,您输入的验证码和系统产生的不一致,请重新输入。');this.location.href='admin_index.asp';</script>") 
 session("adminlogin")=""
 call CloseConn()
Response.End 
end if
session("Gqcode")=""
adminname=trim(replace(request("adminname"),"'",""))
adminpass=MD5(trim(replace(request("adminpass"),"'","")))
sql="select * from Gq_admin where admin_name='"&adminname&"' and admin_pass='"&adminpass&"'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
Response.Write("<script language=javascript>alert('对不起,您输入的用户名和密码不正确!!');this.location.href='admin_index.asp';</script>")
 call CloseConn()
Response.End
else
if rs("admin_lock")=true then
Response.Write("<script>alert('对不起,您的帐户已经锁定,请和本站超级管理员联系!');this.top.location.href='admin_index.asp';</script>")
 call CloseConn()
Response.End
end if
   ip=Request.ServerVariables("REMOTE_ADDR")
   session("adminlogin")=sessionvar
   session("issuper")=rs("admin_id")
   session("supername")=trim(rs("admin_name"))
   session("superadmin")=trim(rs("admin_super"))
   conn.execute("update [Gq_admin] set Logintime=Now(),loginip='"&ip&"' where admin_name='"&adminname&"'")
   session.timeout=50
   Session("GqCode")=""
   rs.close
   set rs=nothing
   call CloseConn()
end if
elseif request("action")="logout" then
  session("adminlogin")=""
  session("supername")=""
  session("superadmin")=""
  session("issuper")=""
  Response.write "<script>window.document.location.href='admin_index.asp';</script>"
end if
if session("adminlogin")=sessionvar then
frame=request("frame")
if frame="" then
%>
<html>
<head>
<title>∷ 管理中心 ∷</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<frameset rows="100,*" frameborder="NO" border="0" framespacing="0">
<frame src="?frame=top" noresize="noresize" frameborder="0" name="topFrame" scrolling="no" marginwidth="0" marginheight="0" />
<frameset rows="*" cols="140,*" id="frame">
<frame src="?frame=menu" name="leftFrame" noresize="noresize" marginwidth="0" marginheight="0" frameborder="0" scrolling="yes" />
<frame src="?frame=main" name="main" marginwidth="0" marginheight="0" frameborder="0" scrolling="yes" />
</frameset>
<noframes>
<body>
<%call CloseConn()%>
</body>
</noframes>
</frameset>
</html>
<%
elseif frame="top" then
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv=Content-Type content=text/html;charset=gb2312>
<base target="main">
<script language="javascript">
<!--
var displayBar=true;
function switchBar(obj){
	if (displayBar)
	{
		parent.frame.cols="0,*";
		displayBar=false;
		obj.src="images/top_06.gif";
		obj.title="打开左边管理菜单";
	}
	else{
		parent.frame.cols="140,*";
		displayBar=true;
		obj.src="images/top_07.gif";
		obj.title="关闭左边管理菜单";
	}
}
//-->
</script>
<link href="admin_style.css" type=text/css rel=stylesheet>
<style type=text/css>
a { color:#FFFFFF;text-decoration:none}
a:hover {color:#DBDBDB;text-decoration: underline}
td {color: #FFFFFF; font-family: "宋体";font-weight:bold;}
.style4 {color: #FFFFFF}
</style>
</head>
<body leftmargin="0" topmargin="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD height=70>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD width=200><a href="http://www.xuncms.cn/index.htm" target="_blank"><IMG 
            src="images/Top_01.gif" alt=讯网设计联盟总站 width=200 height=70 border="0"></a></TD>
          <TD width=395 background=images/Top_02.gif>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD height=40>&nbsp;</TD></TR>
              <TR>
                <TD vAlign=top height=30><table width="100%" border="0" align="center" cellspacing="0">
                  <tr>
                    <td width="67"><div align="center"><a href="admin_index.asp?frame=main" class="style3">管理首页</a></div></td>
                    <td width="73"><div align="center"><a href="admin_config.asp" class="style3">基本设置</a></div></td>
                    <td width="67"><div align="center"><a href="make_index.asp" class="style3">生成首页</a></div></td>
                    <td width="67"><div align="center"><a href="admin_admin.asp" class="style3">用户管理</a></div></td>
                    <td width="67"><div align="center"><a href="http://Www.XunCms.Cn/Index.Htm" target="_blank" class="style1">讯网主站</a></div></td>
                    <td width="90"><div align="center"><a href="http://Www.XunCms.Cn/Index.Htm" target="_blank" class="style1">关于讯网

</a></div></td>
                  </tr>
                </table></TD>
              </TR></TBODY></TABLE></TD>
          <TD width=55><IMG height=70 src="images/Top_03.gif" 
            width=55></TD>
          <TD 
      background=images/Top_04.gif><table width="100%" border="0" cellspacing="0">
            <tr>
              <td><div align="right">专业品质 来自讯网 网站赚钱 首要建站 选择讯网 要您好看 我们用心打造最完美的系统&nbsp;</div></td>
            </tr>
          </table></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD bgColor=#007dce height=1></TD></TR>
  <TR>
    <TD bgColor=#f5f5f5 height=28>
      <TABLE cellSpacing=0 cellPadding=4 width="100%" border=0>
        <TBODY>
        <TR>
          <TD width="56%" height="22" align=left bgcolor="#089EEC" class=AdminMessage><div align="right" class="style1">
            <div align="center" class="style4">本程序由 (讯图设计联盟) 授权给 <%=weburl%> 商业客户使用</div>
          </div></TD>
          <TD width="8%" align=right bgcolor="#089EEC"><span class="style1 style4">更新公告:</span></TD>
          <TD width="28%" align=right bgcolor="#089EEC">
		<iframe scrolling="no" name="frampack" frameborder="0" marginheight="0" marginwidth="1" width="100%" height="17" allowTransparency 
src="http://www.xuncms.cn/xuncms.asp" target="_blank"></iframe></TD>
          <TD width="8%" align=right bgcolor="#089EEC"><img src="images/top_05.gif" onclick="switchBar(this)" width="92" height="20" border=0 alt="关闭左边管

理菜单" style="cursor:hand"></TD>
        </TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD bgColor=#FFFFFF height=1></TD>
</TR></TBODY>
</TABLE>
</BODY>
</HTML>
<%
elseif frame="menu" then
%>
<HTML>
<HEAD>
<TITLE>列表管理系统-讯图设计联盟</TITLE>
<LINK href="images/admin.css" type=text/css rel=stylesheet>
<script language=JavaScript>
function logout(){
	if (confirm("系统提示:您确定要退出控制面板吗?"))
	top.location = "?action=logout";
	return false;
}
</script>
<SCRIPT language=javascript1.2>
function showmenu_item(sid)
{
	which = eval("menu_item" + sid);
	if (which.style.display == "none")
	{
		var i = 1
		while(i<5){
			eval("menu_item"+ i +".style.display=\"none\";");
			eval("menuTitle"+ i +".background=\"images/title_bg_show.gif\";");
			i++;
		}
		eval("menu_item" + sid + ".style.display=\"\";");
		eval("menuTitle"+ sid + ".background=\"images/title_bg_hide.gif\";")
	}else{
		eval("menu_item" + sid + ".style.display=\"none\";");
		eval("menuTitle"+ sid + ".background=\"images/title_bg_show.gif\";")
	}
}
</SCRIPT>
<SCRIPT language=javascript>
function re_load() { location.reload(); }
</SCRIPT>

<SCRIPT language=javascript>
<!--
function left_menu(meval)
{
  var left_n=eval(meval);
  if (left_n.style.display=="none")
  { eval(meval+".style.display='';"); }
  else
  { eval(meval+".style.display='none';"); }
}
//document.all.left_sys.style.display='';
//document.all.left_bm.style.display='none'
-->
</SCRIPT>

<META content="MSHTML 6.00.2900.3199" name=GENERATOR><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body {
	background-color: #089EEC;
}
-->
</style></HEAD>
<BODY leftMargin=0 topMargin=0>
<CENTER>
<TABLE cellSpacing=0 cellPadding=0 border=0>
  <TBODY>
  <TR>
    <TD height=2></TD></TR></TBODY></TABLE>
<TABLE class=m_table cellSpacing=0 cellPadding=0>
  <TBODY>
  <TR>
    <TD class=m_td width=4><IMG height=25 
      src="images/menu_topleft.gif" width=4></TD>
    <TD class=m_td onclick="javascript:left_menu('left_1');" align=middle 
    width=* background=images/menu_topbg.gif>◆ 用户信息 ◆</TD>
    <TD class=m_td width=4><IMG height=25 
      src="images/menu_topright.gif" width=4></TD></TR>
  <TR id=left_1 style="DISPLAY: none">
    <TD class=m_tr align=middle background=images/menu_bg.gif 
      colSpan=3><TABLE class=m_table2 cellSpacing=1 cellPadding=2>
        <TBODY>
        <TR>
          <TD height=3></TD></TR>
        <TR>
          <TD><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0>&nbsp;<A 
            href="?frame=main" target="main">管理首页</A></TD>
        </TR>
        <TR>
          <TD><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0>&nbsp;<A 
            href="?action=logout" onclick="logout();">退出管理</A></TD></TR>
        <TR>
          <TD><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0>&nbsp;<font color="#FF0000"><%=session("supername")%></font></TD>
        </TR>
        <TR>
          <TD><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0><font color="#FF0000">
            <%
if session("superadmin")="admin" then
response.write"<font color=red>超级管理员</font>"
elseif session("superadmin")="admin1" then
response.write"<font color=#0000FF>普通管理员</font>"
else
response.write"非法管理员"
end if
%>
          </font></TD>
        </TR>
        <TR>
          <TD height=3></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD class=m_end width=4><IMG height=2 
      src="images/menu_endleft.gif" width=4></TD>
    <TD width=* background=images/menu_endbg.gif></TD>
    <TD class=m_end width=4><IMG height=2 
      src="images/menu_endright.gif" width=4></TD></TR></TBODY></TABLE>
<TABLE height=2 width="90%">
  <TBODY>
  <TR class=bg>
    <TD></TD></TR></TBODY></TABLE>
<TABLE class=m_table cellSpacing=0 cellPadding=0>
  <TBODY>
  <TR>
    <TD class=m_td width=4><IMG height=25 
      src="images/menu_topleft.gif" width=4></TD>
    <TD class=m_td onclick="javascript:left_menu('left_3');" align=middle 
    width=* background=images/menu_topbg.gif>≡ 核心管理 ≡</TD>
    <TD class=m_td width=4><IMG height=25 
      src="images/menu_topright.gif" width=4></TD></TR>
  <TR id=left_3 style="DISPLAY: none">
    <TD class=m_tr align=middle background=images/menu_bg.gif 
      colSpan=3><TABLE class=m_table2 cellSpacing=1 cellPadding=2>
        <TBODY>
        <TR>
          <TD height=3></TD></TR>
        <TR>
          <TD><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0>&nbsp;<A 
            href="admin_config.asp" target="main">网站设置</A></TD>
        </TR>
        <TR>
          <TD><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0>&nbsp;<A 
            href="admin_type.asp" target="main">游戏类别</A></TD>
        </TR>
        <TR>
          <TD><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0>&nbsp;<A 
            href="make_index.asp" target="main">首页生成</A></TD>
        </TR>
        <TR>
          <TD><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0>&nbsp;<A 
            href="admin_copyright.asp" target="main">版权信息</A></TD>
        </TR>
        <TR>
          <TD height=3><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0>&nbsp;<A 
            href="admin_link.asp" target="main">友情连接</A></TD>
        </TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD class=m_end width=4><IMG height=2 
      src="images/menu_endleft.gif" width=4></TD>
    <TD width=* background=images/menu_endbg.gif></TD>
    <TD class=m_end width=4><IMG height=2 
      src="images/menu_endright.gif" width=4></TD></TR></TBODY></TABLE>
<TABLE height=2 width="90%">
  <TBODY>
  <TR class=bg>
    <TD></TD></TR></TBODY></TABLE>
<TABLE class=m_table cellSpacing=0 cellPadding=0>
  <TBODY>
  <TR>
    <TD class=m_td width=4><IMG height=25 
      src="images/menu_topleft.gif" width=4></TD>
    <TD class=m_td onclick="javascript:left_menu('left_5');" align=middle 
    width=* background=images/menu_topbg.gif>≡ 游戏管理 ≡</TD>
    <TD class=m_td width=4><IMG height=25 
      src="images/menu_topright.gif" width=4></TD></TR>
  <TR id=left_5 style="DISPLAY: none">
    <TD class=m_tr align=middle background=images/menu_bg.gif 
      colSpan=3><TABLE class=m_table2 cellSpacing=1 cellPadding=2>
        <TBODY>
        <TR>
          <TD height=3></TD></TR>
        <TR>
          <TD><IMG alt="" src="images/s_arrow.gif" align=absMiddle 
            border=0>&nbsp;<A 
            href="admin_list.asp" target="main">私服列表</A></TD>
        </TR>

⌨️ 快捷键说明

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