administrator.asp

来自「为了开发出适用于中小型企业的通用人才管理软件。对于已备电脑等硬件设备而无人才管理」· ASP 代码 · 共 118 行

ASP
118
字号
<%@ Language=VBScript %>
<!--#INCLUDE FILE="inc_Conn.asp" -->
<%
Dim strSql,strImageName
strSql="Select * from Class order by Class_Desc"
set rs=MyCon.execute(strSql)

strClassID=trim(Request.QueryString("ClassID"))
If strClassID="" Then strClassID="0"
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>报告错误</title>
<link rel="stylesheet" href="css.css" type="text/css">
</head>

<body>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="755">
    <tr>
      <td width="214"><font face>
        <table align="center" border="0" cellPadding="0" cellSpacing="0" width="10%">
          <tbody>
            <tr>
              <td vAlign="top" width="50%"><img alt="中南学子" border="0" src="IMAGES/0001.gif"></td>
            </tr>
          </tbody>
        </table>
        </font></td>
      <td width="281"></td>
      <td width="254"></td>
    </tr>
  </table>
  </center>
</div>
<div align="center">
  <center>
  <table border="0" width="755">
    <tr>
      <td width="100%" align="left" bgcolor="#6699FF">
      &nbsp;<a href="Index.asp" Class=title1>首页</a><font color="#FFFFFF"> <b> |</b>                        
      </font>                        
      <% Do while not rs.eof %>                  
      <a href="ListNews.asp?ClassID=<%=rs("ClassID")%>" Class=title1><%=rs("Class_Name")%></a>                       
      <b><font color="#FFFFFF"> |</font></b>                       
      <% rs.movenext %>                       
      <% Loop %>                       
      </td>
    </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="755">
    <tr>
      <td width="51"></td>
      <td width="662" valign="top" align="center">
      <form method="POST" action="SendMail.asp">
      <table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#C0C0C0" bordercolordark="#6699FF">
        <tr>
          <td width="15%"></td>
          <td width="18%" valign="top" align="left">您的Email:</td>
          <td width="67%"><input type="text" name="Email" size="20"></td>
        </tr>
        <tr>
          <td width="15%"></td>
          <td width="18%" valign="top" align="left">您的 称呼:</td>
          <td width="67%"><input type="text" name="Name" size="20"></td>
        </tr>
        <tr>
          <td width="15%"></td>
          <td width="18%" valign="top" align="left">主&nbsp;&nbsp;&nbsp;&nbsp; 
            题:</td>
          <td width="67%"><input type="text" name="Title" size="20"></td>
        </tr>
        <tr>
          <td width="15%"></td>
          <td width="18%" valign="top" align="left">内&nbsp;&nbsp;&nbsp;&nbsp; 
            容:</td>
          <td width="67%"><textarea rows="12" name="Content" cols="32"></textarea></td>
        </tr>
        <tr>
          <td width="15%"></td>
          <td width="85%" valign="top" align="center" colspan="2"><input type="submit" value="提交" name="B1">&nbsp;&nbsp;&nbsp; 
            <input type="reset" value="全部重写" name="B2"></td>
        </tr>
      </table>
      </form>
      </td>
      <td width="36"></td>
    </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="755" bgcolor="whitesmoke">
    <tr>
      <td width="100%" valign="top" align="right"><img border="0" src="IMAGES/logo_3rom_by.gif"></td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

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