?? 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 + -