📄 main.asp

📁 网站源代码
💻 ASP
字号:
<!--#include file="access.asp"-->
<!--#include file="chkuser.asp"-->
<HTML>
<HEAD>
<TITLE>后台管理</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--



function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>


<SCRIPT language=javascript><!--
function out()
{
if(window.event.toElement.id!="menu"        &&       window.event.toElement.id!="link")
  menu.style.visibility="hidden";
}
//-->

function out1()
{
if(window.event.toElement.id!="menu1"        &&       window.event.toElement.id!="link")
  menu1.style.visibility="hidden";
}
//-->
</SCRIPT>
</HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 >

<!--#include file=top.asp -->
<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>
  <TR> 
    <TD COLSPAN=11> <div align="center"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td><div align="center">
                <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#3E4474">
                  <tr>
                    <td bgcolor="#D7E8FC"><img src="images/kong.jpg" width="34" height="29"></td>
                  </tr>
                </table>
              </div></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table>
        <table width="98%" height="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#3E4474" class="z13">
          <tr bgcolor="#EFEFEF"> 
            <td height="20" colspan="2"><img src="images/fuwuqi.jpg" width="188" height="29"></td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td height="80" colspan="2"> 
              <div align="center"> 
                <table width="70%" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td><marquee direction="left" scrollamount="6" scrolldelay="150">
                      欢迎登陆后台管理 — 请勿违规操作 — 版权所有 严禁拷贝 
                      </marquee></td>
                  </tr>
                </table>
              </div></td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td height="20" colspan="2">&nbsp;</td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td height="20" colspan="2">&nbsp;&nbsp;以下是您所使用的计算机的相关参数：</td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td height="20">　服务器类型：<%=Request.ServerVariables("OS")%><font face="Verdana, Arial, Helvetica, sans-serif">(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</font></td>
            <td height="20">　协议的名称和版本：<%=Request.ServerVariables("SERVER_PROTOCOL")%></td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td width="48%" height="20">　服务器的主机名，<font face="Verdana, Arial, Helvetica, sans-serif">DNS</font>别名，或<font face="Verdana, Arial, Helvetica, sans-serif">IP</font>地址：<font color=blue><%=Request.ServerVariables("SERVER_NAME")%></font></td>
            <td width="52%" height="20">　服务器操作系统：<font color=blue><%=Request.ServerVariables("OS")%></font></td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td width="48%" height="20">　脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
            <td width="52%" height="20">　<font face="Verdana, Arial, Helvetica, sans-serif">WEB</font>服务器的名称和版本：<font color=blue><%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td width="48%" height="20">　脚本超时时间：<font color=blue><%=Server.ScriptTimeout%></font> 
              秒</td>
            <td width="52%" height="20">　数据库使用： 
              <%
	    On Error Resume Next
	    Server.CreateObject("adodb.connection")
		if err=0 then 
		  response.write("<font color=blue>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
            </td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td width="48%" height="20">　<font face="Verdana, Arial, Helvetica, sans-serif">JRO.JetEngine(ACCESS 
              </font> 数据库<font face="Verdana, Arial, Helvetica, sans-serif">)</font>： 
              <%
	    On Error Resume Next
	    Server.CreateObject("JRO.JetEngine")
		if err=0 then 
		  response.write("<font color=blue>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
            </td>
            <td width="52%" height="20">　<font face="Verdana, Arial, Helvetica, sans-serif">CDONTS</font>组件支持： 
              <%
	    On Error Resume Next
	    Server.CreateObject("CDONTS.NewMail")
		if err=0 then 
		  response.write("<font color=blue>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
            </td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td height="20">　<font face="Verdana, Arial, Helvetica, sans-serif">FSO</font>文本文件读写： 
              <%
	    On Error Resume Next
	    Server.CreateObject("Scripting.FileSystemObject")
		if err=0 then 
		  response.write("<font color=blue>√</font>")
		else
          response.write("<font color=red>×</font>")
		end if	 
		err=0
	  %>
            </td>
            <td height="20">　<font face="Verdana, Arial, Helvetica, sans-serif">Jmail</font>组件支持 
              <font color="#0033FF"> 
              <%If Not IsObjInstalled(JMail.SMTPMail) Then%>
              <font color="#FF0000">×</font></font> <font color="#0033FF" face="Verdana, Arial, Helvetica, sans-serif"> 
              <%else%>
              √ 
              <%end if%>
              </font> </td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td height="20">　脚本超时时间：<%=Server.ScriptTimeout%> 秒</td>
            <td height="20">　服务器 CPU 数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 
              个</td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td height="20">　服务器处理请求的端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
            <td height="20">&nbsp;</td>
          </tr>
          <tr bgcolor="#EFEFEF"> 
            <td height="20">　当前操作权限： 
              <%
	dim d
	d=session("flag")
	select case d
	   case "管理员"
	   response.Write("管理员")
	   
	   case "录入员"
	   response.Write("录入员")
       'response.Redirect("admin/manager.asp")
	   end select
	%>
            </td>
            <td height="20">　 </td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table>
      </div></TD>
  </TR>
  <TR> 
    <TD> <IMG SRC="images/spacer.gif" WIDTH=12 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=89 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=100 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=128 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=200 HEIGHT=1 ALT=""></TD>
    <TD> <IMG SRC="images/spacer.gif" WIDTH=55 HEIGHT=1 ALT=""></TD>
  </TR>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><IMG SRC="images/index_14.jpg" WIDTH=1004 HEIGHT=41 ALT=""></td>
  </tr>
</table>

<map name="Map">
  <area shape="rect" coords="811,1,901,81" href="#">
  <area shape="rect" coords="901,1,996,81" href="loginout.asp">
  <area shape="rect" coords="691,56,740,77" href="#">
  <area shape="rect" coords="743,56,790,77" href="#">
  <area shape="rect" coords="641,56,690,77" href="#">
</map>
</BODY>
</HTML>
⌨️ 快捷键说明

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