📄 viewalluser.asp

📁 林林网络招聘系统(源码+毕业论文+开题报告)使用ASP技术,数据库使用Access,不错的网络招聘系统
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<style type="text/css">
<!--
.style1 {font-size: 14px}
-->
</style>

<%
'网络022班孙超的毕业设计
'网络022班孙超的毕业设计 
  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>"
	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><IMG SRC=" & Fig(I - 1) & "><br><span class='style1'><A HREF=viewuser.asp?user="&rs("user")&" target='_blank'>[查看此人信息]</a></TD>"
	  Response.Write "<TD><span class='style1'><A HREF=viewuser.asp?user="&rs("user")&" target='_blank'>"&rs("username")&"</a></td>"
	  Response.Write "<TD><span class='style1'> "&rs("usersex")&"</td>"
	  Response.Write "<TD><span class='style1'> "&rs("userage")&"</td>"
	  Response.Write "<TD><span class='style1'> "&rs("userlevel")&"</td>"
	  Response.Write "<TD><span class='style1'> "&rs("usermajor")&"</td>"
	  Response.Write "<TD><span class='style1'> 1."&rs("job1")&"<br>2."&rs("job2")&"</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 userinfo order by userID 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
      RS.PageSize = 6  
          
      '显示页次超链接 
      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='viewalluser.asp?PageNo=" & I & "'>" & _  
            I & "</A>" & "&nbsp;|&nbsp;"  '超链接到viewalluser.asp并将页次当成参数传送 
        End If  
      Next  
      Response.Write "]<HR><center>所有注册个人用户&nbsp;&nbsp;&nbsp;<a href='../index.asp'>返回首页</a>&nbsp;&nbsp;&nbsp;<a href='../search/searchuser.htm' target='_blank'>搜索应聘者</a></span><br><br>"
    %>    
    <%  
      '根据页次调用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%> 
	<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><div align="center" class="style1"><br>
                <br>
        以上为所有注册个人用户<br>
        <br>
        <br>
        <a href="../index.htm">返回首页</a></div></td>
      </tr>
    </table>
  </BODY>  
</HTML>
⌨️ 快捷键说明

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