tdjl.asp

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

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
	  '本页用于求职者投递简历
      dim rs,sql,i
	  Dim rss,sqls,num
	  if request.form("Baction")="td" then
	  num=request.form("comid").count
	  for i=1 to Num
 set rss=server.createobject("adodb.recordset")
 sqls="select * from jl"
 rss.open sqls,conn,1,3
 rss.addnew '往简历表中增加一条记录
 rss("com")=replace(request.Form("com"),"'","''")
 rss("comid")=request.form("comid")(i)
 rss("user")=session("user")
 rss("userid")=session("id")
 rss("time")=now()
 rss.update
 set rss=nothing
 next
 response.write("<span class='style1'>投递成功</span>")
 end if
 'end if
%>
<SCRIPT language=JavaScript src="chao.js"></SCRIPT>
<style type="text/css">
<!--
.style1 {font-size: 14px}
-->
</style>

<form name="form" method="post" action="">
  <table width="100%" border="0" cellpadding="4" cellspacing="1" class="tabbgcolor">
    <tr class="tabbgcolorliWhite"> 
      <td colspan="4" class="tabbgcolorli style1">[所有单位列表]</td>
    </tr>
    <tr class="tabbgcolorliWhite"> 
      <td class="tabbgcolorli">
	  <% 
	  dim strpage,rs1,sql1,select_count,select_pagecount
	  strpage=request.querystring("page")  
		if len(strpage)=0 then
		strpage="1"
		end if
		set rs1=server.createobject("adodb.recordset")
        sql1="select * from cominfo order by comid desc"
        rs1.open sql1,conn,1,3    
		if rs1.eof then
		       rs1.close
			   set rs1=nothing
			   conn.close
			   set conn=nothing
			   response.Write"没有会员记录。"
			   response.end
	    end if
		rs1.pagesize=20
		rs1.absolutepage=cint(strpage)
		select_count=rs1.recordcount
		select_pagecount=rs1.pagecount
		%> <div align="center" class="style1">单位名称</div></td>
      <td class="tabbgcolorli"><div align="center"><span class="style1">招聘职位</span></div></td>
      <td class="tabbgcolorli"><div align="center"><span class="style1">登记时间</span></div></td>
      <td class="tabbgcolorli"><div align="center" class="style1">操作</div></td>
    </tr>
    <%
	    for i=1 to rs1.pagesize
		if rs1.eof then
		exit for
		end if
	'dim rs21,sql21
	'set rs21=server.createobject("adodb.recordset")
     '   sql21="select * from cominfo where comID="&rs1("comID")&""
      '  rs21.open sql21,conn,1,3   
	%>
    <tr class="tabbgcolorli"> 
      <td width="20%"><span class="style1"><div align="center"><a href="viewcom.asp?user=<%=rs1("com")%>"><%=rs1("comname")%></a></div></span></td>
      <td width="40%"> <div align="center"><span class="style1"><%=rs1("want1")%></span></div></td>
      <td><div align="center"><span class="style1"><%=rs1("time")%></span></div></td>
      <td width="8%"><div align="center"> 
          <input name="comid" type="checkbox" id="comid" value="<%=rs1("comid")%>">
        </div></td>
    </tr>
    <%
	rs1.MoveNext
    next
	%>
  </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td height="4"></td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="2" cellspacing="1" class="tabbgcolor">
    <tr>
      <td class="tabbgcolorli"><span class="style1">
        <%		
 response.write"&nbsp;共<b>"& select_pagecount &"</b>页<b>" & select_count &"</b>条记录，本页是第<b>"& strpage &"</b>页。"
 if int(strpage)>1 then
 response.Write"&nbsp;<a href=?page=1>第一页</a>&nbsp;"
 response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)-1)&">上一页</a>&nbsp;"
 end if
 if int(strpage)<select_pagecount then
 response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)+1)&">下一页</a>"
 response.Write"&nbsp;<a href=?page="& select_pagecount &">最后一页</a>&nbsp;"
 end if
 response.Write"<br>"
%></span>
        <input name="Baction" type="radio" value="td" checked>
        <input name="Submit" type="submit" class="Anbut" value="投递简历">        　
<input type="checkbox" name="chkall" onClick="CheckAll(this.form)">
        <span class="style1">选中所有</span><input name="action" type="hidden" id="action4" value="sunchao">
</td>
    </tr>
  </table>
</form>