?? viewclass.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>
</head>
<!--#include file="conn.asp" -->
<body>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<th>最新人才</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">求職者列表<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,rs1,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">用戶名 </div></td>
<td class="tabbgcolorli"><div align="center">電子</div></td>
<td class="tabbgcolorli"><div align="center">權限</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%"><%=rs1("username")%></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">
<%
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>"
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<th>最新工作</th>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="tabbgcolor">
<tr class="tabbgcolorliWhite">
<td colspan="3" class="tabbgcolorli">公司/單位列表<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">用戶名 </div></td>
<td class="tabbgcolorli"><div align="center">電子</div></td>
<td class="tabbgcolorli"><div align="center">權限</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%"><%=rs2("comname")%></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">
<%
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 + -