?? viewallcom.asp
字號:
<!-- #include file="conn.asp" -->
<%
'畢業設計:林林在線網絡招聘系統
'畢業設計:林林在線網絡招聘系統
if session("user")="" then
Response.write("<center>使用錯誤,請先登陸")
Response.End
end if
%>
<style type="text/css">
<!--
.style1 {font-size: 14px}
-->
</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><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>"
RS.AbsolutePage = PageNo
For I = 1 To RS.PageSize
Response.Write "<TR BGCOLOR=" & BG(I - 1) & ">"
Response.Write "<TD WIDTH='10%'><IMG SRC=" & Fig(I - 1) & "><br><A HREF=viewcom.asp?user="&rs("com")&"><span class='style1'>[查看公司信息]</span></a></TD>"
Response.Write "<TD><span class='style1'><A HREF=viewcom.asp?user="&rs("com")&">"&rs("comname")&"</a></td>"
Response.Write "<TD><span class='style1'> "&rs("addr")&"</td>"
Response.Write "<TD><span class='style1'> 1."&rs("want1")&"<br>2."&rs("want2")&"</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>
<%
set RS=server.CreateObject("adodb.recordset")
sql="select * from cominfo order by comID 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 = 5
'顯示頁次超鏈接
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='viewallcom.asp?PageNo=" & I & "'>" & _
I & "</A>" & " | "
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%>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center" class="style1"><br>
<br>
以上為所有注冊公司/單位</div></td>
</tr>
</table>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -