📄 jl.asp

📁 林林网络招聘系统(源码+毕业论文+开题报告)使用ASP技术,数据库使用Access,不错的网络招聘系统
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<%
'毕业设计:林林在线网络招聘系统
'毕业设计:林林在线网络招聘系统
if session("user")="" then
      Response.write("<center>使用错误,请先登陆")  
      Response.End
end if
%>
<style type="text/css">
<!--
.style1 {font-size: 14px}
.style2 {font-size: 16px}
-->
</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 width='20%'><font color='#DB7093' size='4' face='幼圆'>&nbsp;</font></td>"
	Response.Write "<td width='40%'><font color='#DB7093' size='4' face='幼圆'><font>姓名</font></font></td>"
    Response.Write "<td><font color='#DB7093' size='4' face='幼圆'><font>ID</font></font></td>"
    RS.AbsolutePage = PageNo 
    For I = 1 To RS.PageSize
      Response.Write "<TR BGCOLOR=" & BG(I - 1) & ">"
      Response.Write "<TD><IMG SRC=user.gif><br><span class='style1'><A HREF=viewuser.asp?user="&rs("user")&">[查看此人信息]</a><FORM METHOD='POST' TARGET= '_self' ACTION='../com/lyokadd.asp?User=" & _
        RS("user") & "&userid=" & RS("userid") & _
        "'></span><INPUT TYPE='SUBMIT' VALUE='正式录用'></form><FORM METHOD='POST' TARGET= '_self' ACTION='../com/deljl.asp?User=" & _
        RS("user") & "&comid=" & RS("comid") & _
        "'></span><INPUT TYPE='SUBMIT' VALUE='删除此人'></form></TD>"
 	  Response.Write "<TD><span class='style1'> "&rs("user")&"</td>"
	  Response.Write "<TD><span class='style1'> "&rs("userid")&"</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" />
  <BODY>
    <CENTER>
    </CENTER>
    <%  
	  dim id,rsly,rs
	  dim sql,sqlly
	  set RS=server.CreateObject("adodb.recordset")	      
		sql="select * from jl where comid='"&session("id")&"'"
 	    RS.open sql,conn,1,3
		
     If RS.EOF Then 
        Response.Write "<CENTER><P><span class='style1'>目前还没有简历！</span></P>" & _
          "<P><A HREF='../main.htm'><span class='style2'>返回系统首页</span></A></P></CENTER>" 
      Else
          
      '设置分页大小，您可视实际情况设置其他数值 
      RS.PageSize = 5  
          
      '显示页次超链接 
      PageNo = Request("PageNo")  '读取浏览者所点取的页次超链接 
      Response.Write "<span class='style1'>[页数&nbsp;"  
      For I = 1 To RS.PageCount  
        If I = CInt(PageNo) Then   '若到浏览者所点取的页次超链接，便不再当成超链接 
          Response.Write I & "&nbsp;|&nbsp;"  
        Else  
          Response.Write "<A HREF='tj.asp?PageNo=" & I & "'>" & _  
            I & "</A>" & "&nbsp;|&nbsp;"  '超链接到tj.asp并将页次当成参数传送 
        End If  
      Next  
      Response.Write "]</span><HR>"  
    %>    
    <%  
      '根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页 
      If PageNo <> "" Then   
        ShowPage RS, PageNo  
      Else  
        ShowPage RS, 1  
      End If  
  
      '关闭数据库连接并释放对象 
      RS.Close           
      Set RS = Nothing     
      Conn.Close           
      Set Conn = Nothing     
    %>
	<%end if%>
  </BODY>  
</HTML>
⌨️ 快捷键说明

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