readimages.asp

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

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

strImageName=trim(Request.QueryString("ImageName"))
If strImageName="" Then strImageName="0_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="50"></td>
      <td width="324"></td>
      <td width="330"></td>
      <td width="43"></td>
    </tr>
    <tr>
      <td width="50"></td>
      <td width="654" colspan="2" valign="top" align="center" nowrap><img border="0" src="tools/Images/<%=strImageName%>.jpg"></td>
      <td width="43"></td>
    </tr>
    <tr>
      <td width="50"></td>
      <td width="654" colspan="2" align="center"><a href="javascript:onClick= window.close()">关闭窗口</a></td>
      <td width="43"></td>
    </tr>
  </table>
  </center>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="755" bgcolor="whitesmoke">
  <tr>
    <td width="100%" align="right"><img border="0" src="IMAGES/logo_3rom_by.gif"></td>
  </tr>
</table>

</body>

</html>
<%
rs.close
set rs=nothing
MyCon.close
set MyCon=nothing
%>

readimages.asp - 源码说明

本页面展示了「为了开发出适用于中小型企业的通用人才管理软件。对于已备电脑等硬件设备而无人才管理软件的企业更能带来更高的收益。此人才管理软件主要应用了DELPHI 7和SQL。解决企业管理中的员工管理」中的 readimages.asp 源码文件，采用 ASP 编程语言编写，共 98 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与人才管理软件相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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