📄 comstatics.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P align=center><FONT face=幼圆 size=4 color=BlueViolet>
<%Response.Write "录用统计"%>
</FONT></P>
<P align=center>
<TABLE WIDTH=75% BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD><FONT color=palevioletred face=""
size=4><FONT face=幼圆>姓名</FONT></FONT><FONT
face=幼圆></FONT></TD>
<TD><FONT color=palevioletred face=""
size=4><FONT face=幼圆>年龄</FONT></FONT><FONT
face=幼圆></FONT></TD>
<TD><FONT color=palevioletred face=幼圆
size=4><FONT>专业</FONT></FONT></TD>
<TD><FONT color=palevioletred face=幼圆
size=4><FONT>工作意向</FONT></TD>
</TR>
<TR><FONT>
<%
set rec=server.CreateObject("adodb.recordset")
rec.Source="select user,username,userage,usermajor,job1,job2 from userinfo where user in (select user from usercom where comid='" & session("comonline") & "')"
rec.ActiveConnection="dsn=findjob"
rec.Open ,,1,1
if not rec.BOF then
rec.PageSize=10
if request("page")="" then
rec.AbsolutePage=1
else
rec.AbsolutePage=request("page")
end if
for i=1 to rec.PageSize
if rec.EOF then
exit for
end if
%>
</FONT>
<TD><a href="viewuser.asp?user=<%=rec("user")%>"><%=rec("username")%></a>
</TD>
<TD><%=rec("userage")%>
</TD>
<TD><%=rec("usermajor")%>
</TD>
<TD>1.<%=rec("job1")%><br>2.<%=rec("job2")%>
</TD>
</TR>
<%
rec.movenext
next
%>
</TABLE>
</P>
<%
for i=1 to rec.PageCount
if trim(Request.QueryString("page"))<>trim(i) then
Response.Write "[<a href='comstatics.asp?page=" & i & "'>第" & i & "页</a>] "
else
Response.Write "[第" & i & "页] "
end if
next
rec.close
set rec=nothing
else
Response.Write "<font size=4>贵公司/单位录取的人数为0</font>"
end if
%>
</form>
<P> </P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -