📄 comclass.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="6" cellpadding="2" width="714" border="0" align="center">
<tr>
<th width="706" class="title"><span class="style6">工作分类</span><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="4" class="tabbgcolorli style6">公司/单位列表<span class="Notices">[点击名称查看信息]</span></td>
</tr>
<tr class="tabbgcolorliWhite">
<td width="15%" 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 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 width="15%" class="tabbgcolorli"><div align="center">cb</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="6%"><span class="style6"><A HREF=viewcom.asp?user=<%=rs2("com")%>><%=rs2("comname")%></a></span></td>
<td width="5%"><div align="center"></div></td>
<td width="20%"><div align="center"><span class="style6"><%=rs2("want1")%></span></div></td>
<td><div align="center"><span class="style6"><%=rs2("time")%></span></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 + -