?? viewalluser.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'>[頁數 "
For I = 1 To RS.PageCount
If I = CInt(PageNo) Then '若到瀏覽者所點取的頁次超鏈接，便不再當成超鏈接
Response.Write I & " | "
Else
Response.Write "<A HREF='viewalluser.asp?PageNo=" & I & "'>" & _
I & "</A>" & " | " '超鏈接到viewalluser.asp并將頁次當成參數傳送
End If
Next
Response.Write "]<HR><center>所有注冊個人用戶 <a href='../index.asp'>返回首頁</a> <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 + -