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

📄 index.asp

📁 是一个关于小学信息化教育的平台,提供了学校论坛,和聊天室功能!
💻 ASP
字号:
<!--#include file="../../include/db.asp"-->
<!--#include file="../../include/admin_check.asp"-->
<!--#include file="power.asp"-->
<%
Set conn = OpenOrGet_Database("sql_conn")

%>
<html>
<head>
<title>深圳育才一小欢迎您!</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/include/page.css" type="text/css">
<LINK href="/Include/DatePicker.css" rel=stylesheet type=text/css>
<SCRIPT language=javascript src="/include/DateObject.js"></SCRIPT>
<SCRIPT language=javascript src="/include/DatePicker.js"></SCRIPT>
<SCRIPT language=javascript src="/include/editlib.js"></SCRIPT>
</head>

<body >
<table width="1" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <table width="753" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><!--#include file="../../include/admin_banner.inc"--></td>
        </tr>
        <tr> 
          <td> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="1%">&nbsp;</td>
                <td width="99%"> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td id="td1">&nbsp;</td>
                    </tr>
                    <tr> 
                      <td> 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="21%" valign="top"><!--#include file="../../include/admin_left.inc"--></td>
                            <td width="2%" valign="top">&nbsp;</td>
                            <td width="77%" height=1 valign="top">
                              <table width="97%" border="0" cellspacing="0" cellpadding="0">
                                <tr> 
                                  <td> 
                                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr valign="top"> 
                                        <td background="/images/middle/m-bg.gif" width="70"> 
                                          <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                            <tr> 
                                              <td> 
                                                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                                  <tr> 
                                                    <td><img src="/images/border/A01.gif" width="12" height="19"></td>
                                                    <td nowrap style="background-image: url('/images/border/A_bg1.gif');padding-top:3px;font-size:12px;" valign="middle"> 
                                                      导航栏目管理</td>
                                                    <td><img src="/images/border/A02.gif" width="18" height="19"></td>
                                                  </tr>
                                                </table>
                                              </td>
                                            </tr>
                                            <tr> 
                                              <td><img src="/images/border/01.gif" width="2" height="19"></td>
                                            </tr>
                                          </table>
                                        </td>
                                        <td background="/images/border/Bg1.gif"  align="right"><img src="/images/border/02.gif" width="3" height="38"></td>
                                        <td width="6" align="right"><img src="/images/border/04.gif" width="16" height="38"></td>
                                      </tr>
                                    </table>
                                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr> 
                                        <td class="bg-left" width="6"><img src="/images/left/l-l.gif" border=0></td>
                                        <td width="100%" class="newsborder" valign="top">
                                          <table border="0" cellspacing="1" cellpadding="2" bgcolor="#666633" width="100%">
                                            <tr align="center" bgcolor="#E1EFD0"> 
                                              <td>栏目名称</td>
                                              <td width="50">编辑</td>
                                              <td width="50">使用</td>
                                            </tr>
                                            <tr bgcolor="#E1EFD0"> 
                                              <td><img src="/images/dot2.gif" width="10" height="10"> 
                                                重要通知</td>
                                              <td width="50" align="center"><a href="edit_news.asp"><img src="../../images/edit.gif" width="15" height="15" border="0" alt="编辑重要通知"></a></td>
                                              <td width="50" align="center"> 
                                                <%
											  SelectSql = "Select act from admin_left where barname = '重要通知'"
											  Set Rs = open_rs(conn,SelectSql)
											  If Not Rs.Eof Then
											  	If rs("act") = true then
												Response.write "<a href='left_act.asp?actname=重要通知&act=stop'><img src='../../images/tostop.gif' width=16 height=16 border=0 alt='停止使用'></a>"
												Else
												Response.write "<a href='left_act.asp?actname=重要通知&act=use'><img src='../../images/touse.gif' width=16 height=16 border=0 alt='使用'></a>"
												End If
											  End If
											  %>
                                              </td>
                                            </tr>
                                            <tr bgcolor="#E1EFD0"> 
                                              <td height="17"><img src="/images/dot2.gif" width="10" height="10"> 
                                                用户登录</td>
                                              <td width="50" height="17" align="center">&nbsp;</td>
                                              <td width="50" height="17" align="center"> 
                                                <%
											  SelectSql = "Select act from admin_left where barname = '用户登录'"
											  Set Rs = open_rs(conn,SelectSql)
											  If Not Rs.Eof Then
											  	If rs("act") = true then
												Response.write "<a href='left_act.asp?actname=用户登录&act=stop'><img src='../../images/tostop.gif' width=16 height=16 border=0 alt='停止使用'></a>"
												Else
												Response.write "<a href='left_act.asp?actname=用户登录&act=use'><img src='../../images/touse.gif' width=16 height=16 border=0 alt='使用'></a>"
												End If
											  End If
											  %>
                                              </td>
                                            </tr>
                                            <tr bgcolor="#E1EFD0"> 
                                              <td><img src="/images/dot2.gif" width="10" height="10"> 
                                                在线调查</td>
                                              <td width="50" align="center"><a href="/admin/poll/poll.asp"><img src="../../images/edit.gif" width="15" height="15" border="0" alt="编辑在线调查"></a></td>
                                              <td width="50" align="center"> 
                                                <%
											  SelectSql = "Select act from admin_left where barname = '在线调查'"
											  Set Rs = open_rs(conn,SelectSql)
											  If Not Rs.Eof Then
											  	If rs("act") = true then
												Response.write "<a href='left_act.asp?actname=在线调查&act=stop'><img src='../../images/tostop.gif' width=16 height=16 border=0 alt='停止使用'></a>"
												Else
												Response.write "<a href='left_act.asp?actname=在线调查&act=use'><img src='../../images/touse.gif' width=16 height=16 border=0 alt='使用'></a>"
												End If
											  End If
											  %>
                                              </td>
                                            </tr>
                                            <tr bgcolor="#E1EFD0"> 
                                              <td><img src="/images/dot2.gif" width="10" height="10"> 
                                                搜索引擎</td>
                                              <td width="50" align="center">&nbsp;</td>
                                              <td width="50" align="center"> 
                                                <%
											  SelectSql = "Select act from admin_left where barname = '搜索引擎'"
											  Set Rs = open_rs(conn,SelectSql)
											  If Not Rs.Eof Then
											  	If rs("act") = true then
												Response.write "<a href='left_act.asp?actname=搜索引擎&act=stop'><img src='../../images/tostop.gif' width=16 height=16 border=0 alt='停止使用'></a>"
												Else
												Response.write "<a href='left_act.asp?actname=搜索引擎&act=use'><img src='../../images/touse.gif' width=16 height=16 border=0 alt='使用'></a>"
												End If
											  End If
											  %>
                                              </td>
                                            </tr>
                                            <tr bgcolor="#E1EFD0"> 
                                              <td><img src="/images/dot2.gif" width="10" height="10"> 
                                                友情链接</td>
                                              <td width="50" align="center"><a href="edit_link.asp"><img src="../../images/edit.gif" width="15" height="15" border="0" alt="编辑友情链接"></a></td>
                                              <td width="50" align="center"> 
                                                <%
											  SelectSql = "Select act from admin_left where barname = '友情链接'"
											  Set Rs = open_rs(conn,SelectSql)
											  If Not Rs.Eof Then
											  	If rs("act") = true then
												Response.write "<a href='left_act.asp?actname=友情链接&act=stop'><img src='../../images/tostop.gif' width=16 height=16 border=0 alt='停止使用'></a>"
												Else
												Response.write "<a href='left_act.asp?actname=友情链接&act=use'><img src='../../images/touse.gif' width=16 height=16 border=0 alt='使用'></a>"
												End If
											  End If
											  %>
                                              </td>
                                            </tr>
                                            <tr bgcolor="#E1EFD0">
                                              <td><img src="/images/dot2.gif" width="10" height="10"> 
                                                广告条</td>
                                              <td width="50" align="center"><a href="Show_banner.asp"><img src="../../images/edit.gif" width="15" height="15" border="0" alt="编辑广告条"></a></td>
                                              <td width="50" align="center">&nbsp;</td>
                                            </tr>
                                          </table>
                                        </td>
                                        <td class="bg_right" width="6"><img src="/images/left/l-r.gif" border=0></td>
                                      </tr>
                                    </table>
                                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr valign="top" class="Border-a"> 
                                        <td width="6"><img src="/images/border/05.gif" width="13" height="8"></td>
                                        <td width="100%" align="right"></td>
                                        <td align="right" width="6"><img src="/images/border/06.gif" width="12" height="8"></td>
                                      </tr>
                                    </table>
                                  </td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                    <tr> 
                      <td height="13">&nbsp;</td>
                    </tr>
                    <tr> 
                      <td><!--#include file="../../include/dot.inc"--></td>
                    </tr>
                    <tr> 
                      <td>&nbsp;</td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
     <SCRIPT language=javascript>
<!--
function checkform()
{ 
	var Checkblank = /^(\s*|(\ )|(\.))*$/;
	if (Checkblank.test(form.username.value))	 	 
{
          alert("用户名不能为空!");
	  return false;	
         } 
	if (Checkblank.test(form.userpass.value))	 	 
{
          alert("密码不能为空!");
	  return false;	
         } 

      window.form.submit();

   }
   function submitdel()
{
  var flag=false;
  if (isNaN(dataform.select_del.length)&&(!(dataform.select_del.checked))){
  flag=false;}
  else if(!(isNaN(dataform.select_del.length))){

  for (var i=0;i<dataform.select_del.length;i++){
    if (dataform.select_del[i].checked==true) flag=true;
  }}
  else{
  flag=true;
  }

  if ((flag==false)) {alert ('请选择需要删除的项目!');return false;}
  		
  if (!(confirm("您是否确定删除选定的记录?")))
  {
    if (isNaN(dataform.select_del.length)) {dataform.select_del.checked=false;return false;}
    for (var i=0;i<dataform.select_del.length;i++) dataform.select_del[i].checked=false;
    return false
  }  
  window.dataform.submit();  
}
function openwin(filename)
{
	//alert(filename);
	window.open(filename,"","location=0,menubar=1,left=0,width=700,height=500,");
	return;
}

//-->

</SCRIPT>

⌨️ 快捷键说明

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