📄 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 + -