result.asp

来自「ASP创思招聘求职系统源代码」· ASP 代码 · 共 108 行 · 第 1/2 页

if jclass <> ""  then                                                                                                                                                                          
  mySQL = mySQL & "AND jobclass_wish='"& jclass & "'"                                                                                                                                                                          
end if                                                                                     
mySQL = mySQL & "ORDER BY date DESC"                                                                                                                                                                                                                                                                                                                                                                                                     
rootRs.Open mySQL,conn,1,1                                                                                                                                                                                
If  rootRs.Eof Then                                                                                                                                                                             
Response.Write "<center>没有符合要求的记录。</center>"                                                                                                                                                                             
else                                                                                                                                                                             
Response.Write "<center><font color=green>共找到 "                                                                                                                                                                             
response.write rootrs.recordcount                                                                                                                                                                              
Response.Write " 条记录</font></center>"                                                                                                                                                                                          
rootRs.pagesize=10                                                                                                                                                                                
rootRs.AbsolutePage =1                                                                                                                                                                                
if Request("page")<>"" then rootRs.AbsolutePage =Request("page")                                                                                                                                                                               
RowCount =rootRs.pagesize                                                                                                                                                                               
%>                                                                                                                                                                                
<%Do While Not rootRs.Eof AND RowCount>0%>                                                                                                                                                                                         
<table border="1" width="65%" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="5" bgcolor="#A4D1FF" height="1">                                                                                                                                                                                
  <tr>                                                                                                                                                      
    <td width="9%" align="center" height="1"><a href="mailto:<%=rootrs("email")%>"><%=rootrs("name")%></a></td>                                                                                                                                                                                                           
    <td width="6%" align="center" height="1"> <%=rootrs("old")%>周岁</td>                                                                                                                                                                                                         
    <td width="10%" align="center" height="1"><%=rootrs("edu")%>毕业</td>                                                                                                                                                                                                                                                                      
    <td width="6%" align="center" height="1"><a href="resume/resume.asp?userid=<%=rootrs("userid")%>">查看简历</a></td>                                                                                                                                                                          
    <td width="3%" align="center" height="1"><a href="javascript:popwin2(<%=rootrs("userid")%>)">联络</a></td>                                                                                                                                                                          
  </tr>                                                                                                                                                                                
</table>                        
                                                                                                                                                                   
<%rootRs.MoveNext                                                                                                                                                                         
RowCount=RowCount-1                                                                                                                                                                         
Loop                                                                                                                                   
end if                                                                                                                                                  
%>                                                                                                                                                                         
<%                                                                                                                                                                            
If rootRs.pagecount>1 then                                                                                                                                                                          
j=rootRs.pagecount                                                                                                                                                                          
Response.Write "<center><table border='0'>"                                                                                                                                                                          
Response.Write "<tr>"                                                                                                                                                                          
Response.Write "<td>共" & j & "页：</td>"                                                                                                                                                                          
For i=1 to rootRs.pagecount                                                                                                                                                                          
Response.Write "<td><a href='result.asp?page=" & i & "'>"                                                                                                                                                                          
Response.Write "[第"& i &"页]</a>"                                                                                                                                                                         
Response.Write "</td>"                                                                                                                                                                          
Next                                                                                                                                                                          
Response.Write "</tr></table></center>"                                                                                                                                                                          
End if                                                                                                                                                                                                                                                                 
conn.close                                                                                                                                                                         
set conn=nothing%>                                                                                                                                                                                
</body>                                                                                                                                                                                    
</html>