📄 viewuserclass.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="userclass.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="viewuserclass.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 width="50%">
<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 Rs,Sql
set Rs = server.CreateObject ("ADODB.RecordSet")
Sql = "select * from userinfo"
Rs.Open Sql,Conn,1,3
%>
<%
dim strpage,sql1,select_count,select_pagecount
Dim i
strpage=request.querystring("page")
if len(strpage)=0 then
strpage="1"
end if
set rs1=server.createobject("adodb.recordset")
sql1="select * from userinfo where classid='"&request.QueryString("classid")&"' order by userid desc"
rs1.open sql1,conn,1,3
if rs1.eof then
rs1.close
set rs1=nothing
conn.close
set conn=nothing
response.Write"没有记录。"
response.end
end if
rs1.pagesize=20
rs1.absolutepage=cint(strpage)
select_count=rs1.recordcount
select_pagecount=rs1.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 rs1.pagesize
if rs1.eof then
exit for
end if
%>
<tr class="tabbgcolorli">
<td width="11%"><span class="style6"><A HREF=/job/search/viewuser.asp?user=<%=rs1("user")%> target=_blank><%=rs1("username")%></a></span></td>
<td width="20%"> </td>
<td>
<div align="center"></div>
<div align="center"> </div>
<div align="center"> </div></td>
</tr>
<%
rs1.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_pagecount &"</b>页<b>" & select_count &"</b>条记录，本页是第<b>"& strpage &"</b>页。"
if int(strpage)>1 then
response.Write" <a href=?page=1>第一页</a> "
response.Write" <a href=?page="&cstr(cint(strpage)-1)&">上一页</a> "
end if
if int(strpage)<select_pagecount then
response.Write" <a href=?page="&cstr(cint(strpage)+1)&">下一页</a>"
response.Write" <a href=?page="& select_pagecount &">最后一页</a> "
end if
response.Write"<br>"
%></span>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -