?? result.asp
字號:
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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -