📄 viewalluser.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>登记到本系统的所有求职者</FONT></P>
<P align=center>
<TABLE WIDTH=85% BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD><FONT color=palevioletred face=""
size=4 face=幼圆>姓名</FONT></TD>
<TD><FONT color=palevioletred face=""
size=4 face=幼圆>年龄</FONT></TD>
<TD><FONT color=palevioletred face=幼圆
size=4>专业</FONT></TD>
<TD><FONT color=palevioletred face=幼圆
size=4>工作意向</FONT></TD>
</TR>
<TR><FONT>
<%
set rec=server.CreateObject("adodb.recordset")
rec.Source="select user,username,userage,usermajor,job1,job2 from userinfo where username<>null"
rec.ActiveConnection="dsn=findjob"
rec.Open ,,1,1
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")%> 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='viewalluser.asp?page=" & i & "'>第" & i & "页</a>] "
else
Response.Write "[第" & i & "页] "
end if
next
rec.close
set rec=nothing
%>
</form>
<P> </P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -