📄 viewallcom.asp

📁 林林网络招聘系统(源码+毕业论文+开题报告)使用ASP技术,数据库使用Access,不错的网络招聘系统

💻 ASP

字号:

<!-- #include file="conn.asp" -->
<style type="text/css">
<!--
.style1 {font-size: 14px}
-->
</style>

<%
  'ShowPage子程序负责设置表格颜色及插图，然后显示PageNo参数所指定的页次的所有记录
  Sub ShowPage(RS, PageNo)
    '设置表格背景颜色及插图文件，同时加上Randomize使每次产生不同顺序的图形文件
    ReDim Fig(RS.PageSize - 1 ), BG(RS.PageSize - 1 )
    Randomize
    For I = 0 to RS.PageSize - 1 
      Fig(I) = INT(RND * 9) + 1 & ".gif"
    Next 
    BG(0) = "#D9D9FF" 
    BG(1) = "#FFCAEE"
    BG(2) = "#FFFFCC"
    BG(3) = "#B9EEB9"
    BG(4) = "#B9E9FF"

    '显示留言并加以格式化
    Response.Write "<table width='100%' border='0' cellpadding='1' cellspacing='1'>"
	Response.Write "<tr>"
	Response.Write "<td><font color='#DB7093' size='4' face='幼圆'></font></td>"
	Response.Write "<td><font color='#DB7093' size='4' face='幼圆'><font>公司名称</font></font></td>"
    Response.Write "<td><font color='#DB7093' size='4' face='幼圆'><font>公司地址</font></font></td>"
	Response.Write "<td><font color='#DB7093' size='4' face='幼圆'><font>所需人才</font></font></td>"
    RS.AbsolutePage = PageNo 
    For I = 1 To RS.PageSize
      Response.Write "<TR BGCOLOR=" & BG(I - 1) & ">"
      Response.Write "<TD WIDTH='10%'><IMG SRC=" & Fig(I - 1) & "><br><A HREF=viewcom.asp?user="&rs("com")&" target='_blank'><span class='style1'>[查看公司信息]</span></a></TD>"
     ' Response.Write "<TD WIDTH='85%'><span class='style1'>公司名称：<A HREF=viewcom.asp?comname="&rs("comname")&">" & RS("comname") & "</A><BR>公司地址：" & RS("comaddr") & _
                   '  "<BR>所需人才：<br>" & RS("comwanted1") & "<BR>" & RS("comwanted2") &"<HR>公司简介：" & RS("comintroduce") & "</span></TD></TR>"
      Response.Write "<TD><span class='style1'><A HREF=viewcom.asp?user="&rs("com")&" target='_blank'>"&rs("comname")&"</a></td>"
	  Response.Write "<TD><span class='style1'> "&rs("addr")&"</td>"
	  Response.Write "<TD><span class='style1'> 1."&rs("want1")&"<br>2."&rs("want2")&"</td>"
      RS.MoveNext
      If RS.EOF Then Exit For    '若到记录结尾就结束For循环
    Next    
    Response.Write "</TABLE>"
  End Sub
%>
<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  <title>所有公司/单位</title><BODY>
    <CENTER>
    </CENTER>
    <%  
      '读取 数据表的所有记录并依照时间递减顺序排列 
	  set RS=server.CreateObject("adodb.recordset")
        '读取数据表的所有记录  
		sql="select * from cominfo order by comID desc"
 	    RS.open sql,conn,1,3
		
		If RS.EOF Then 
        Response.Write "<CENTER><P>目前还没有任何公司！</P>" & _
          "<P><A HREF='../main.asp'>返回系统首页</A></P></CENTER>" 
      Else

      'SQL = "SELECT * FROM 留言板 ORDER BY 时间 DESC"  
      'Set RS = GetSQLRecordset(strSQL, "Books.mdb", "痙ē

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -