📄 viewallcom.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<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>
</TR>
<%
'以下为分页显示所有注册公司的信息
set rec=server.CreateObject("adodb.recordset")
rec.Source="select comid,comname,comwanted from cominfo"
rec.ActiveConnection="dsn=findjob"
rec.Open ,,1,1
rec.PageSize=4
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
%>
<TR>
<TD><STRONG><FONT color=mediumorchid face=""><FONT>
<%Response.Write "<a href=viewcom.asp?comid=" & rec("comid") & ">" & rec("comname")%>
</A>
</FONT>
</FONT></STRONG><FONT></FONT></TD>
<TD><STRONG><FONT color=mediumorchid face=""><FONT>
<%=rec("comwanted")%>
</FONT>
</FONT></STRONG><FONT></FONT></TD>
</TR>
<%
rec.movenext
next
%>
</TABLE>
<P></P>
<%for i=1 to rec.PageCount
if trim(Request.QueryString("page"))<>trim(i) then
Response.Write "[<a href='viewallcom.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 + -