?? viewcomclass.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>招聘</title>
<style type="text/css">
<!--
.style5 {font-size: 12px}
.style6 {font-size: 14px}
-->
</style>
</head>
<!--#include file="conn.asp" -->
<%
dim rs,sql, rs1
dim classid
dim classname
if request.querystring("classid")<>"" then
classid=int(request.querystring("classid"))
else
classid=0
end if
set rs = server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from jobs where classID="&cstr(classid)
rs.open sql,conn,1,1
if not rs.eof then
classname=rs("class")
end if
rs.close
%>
<body>
<table class="border" cellspacing="0" cellpadding="4" width="95%" border="0" align="center">
<tr>
<th class="title"><a href="comclass.asp" class="style6">本類首頁</a> <span class="style6">工作分類</span> <a href="index.asp" class="style6">站點首頁</a><br />
<br />
<span class="style5">
<%
sql="select * from jobs"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "還沒有任何欄目"
else
do while not rs.eof
%>
| <a href="viewcomclass.asp?classid=<%=rs("classid")%>">
<%if cint(rs("classid"))=cint(classid) then%>
<font color="red"><%=rs("class")%></font>
<%else%>
<%=rs("class")%>
<%end if%></a> |
<%
rs.movenext
loop
end if
rs.close
%>
<br />
<br />
</span></th>
</tr>
</table>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<th><span class="style6">最新工作</span></th>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="tabbgcolor">
<tr class="tabbgcolorliWhite">
<td colspan="3" class="tabbgcolorli style6">公司/單位列表<span class="Notices">[點擊名稱查看信息]</span></td>
</tr>
<tr class="tabbgcolorliWhite">
<td width="30%" class="tabbgcolorli">
<%
Dim Rs2,Sql2
set Rs2 = server.CreateObject("ADODB.RecordSet")
Sql2 = "select * from cominfo"
Rs2.Open Sql2,Conn2,1,3
%>
<%
dim strpage2,select_count2,select_pagecount2
'Dim i
strpage2=request.querystring("page")
if len(strpage2)=0 then
strpage2="1"
end if
set rs2=server.createobject("adodb.recordset")
sql2="select * from cominfo where classid='"&request.QueryString("classid")&"' order by comid desc"
rs2.open sql2,conn2,1,3
if rs2.eof then
rs2.close
set rs2=nothing
conn2.close
set conn2=nothing
response.Write"沒有記錄。"
response.end
end if
rs2.pagesize=20
rs2.absolutepage=cint(strpage2)
select_count2=rs2.recordcount
select_pagecount2=rs2.pagecount
%>
<div align="center" class="style6">用戶名 </div></td>
<td class="tabbgcolorli"><div align="center" class="style6">電子</div></td>
<td class="tabbgcolorli"><div align="center" class="style6">權限</div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div></td>
</tr>
<%
for i=1 to rs2.pagesize
if rs2.eof then
exit for
end if
%>
<tr class="tabbgcolorli">
<td width="11%"><span class="style6"><A HREF=/job/search/viewcom.asp?user=<%=rs2("com")%> target=_blank><%=rs2("comname")%></a></td>
<td width="20%"> </td>
<td>
<div align="center"></div>
<div align="center"> </div>
<div align="center"> </div></td>
</tr>
<%
rs2.MoveNext
next
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="tabbgcolor">
<tr>
<td class="tabbgcolorli">
<span class="style6"><%
response.write" 共<b>"& select_pagecount2 &"</b>頁<b>" & select_count2 &"</b>條記錄，本頁是第<b>"& strpage2 &"</b>頁。"
if int(strpage2)>1 then
response.Write" <a href=?page=1>第一頁</a> "
response.Write" <a href=?page="&cstr(cint(strpage2)-1)&">上一頁</a> "
end if
if int(strpage2)<select_pagecount2 then
response.Write" <a href=?page="&cstr(cint(strpage2)+1)&">下一頁</a>"
response.Write" <a href=?page="& select_pagecount2 &">最后一頁</a> "
end if
response.Write"<br>"
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -