1.asp

人才招聘系统,用asp做的

<!--#include file=conn1.asp-->
<%
pagenow=cint(request("pagenow")) 
if pagenow<=0 or pagenow=""  then pagenow=1
pagesize=10
set cmd=server.CreateObject("adodb.command")
cmd.ActiveConnection=conn
cmd.CommandType=4
cmd.CommandText="fenye"
cmd.Parameters.Append cmd.CreateParameter("int_pagenow",adInteger,adParamInput,,pagenow)
cmd.Parameters.Append cmd.CreateParameter("int_pagesize",adInteger,adParamInput,,pagesize)
cmd.Parameters.Append cmd.CreateParameter("int_recordcount",adInteger,adParamOutput)
set rs=cmd.Execute
if rs.eof then 
Response.Write "目前已超过了纪录个数或纪录集为空！"
Response.End
end if

dim arrRs
arrRs=rs.getrows '可以利用getRows将纪录集迅速保存到一个二维的数组中来提高速度。
recordcount=cmdexample.Parameters("int_recordcount")
'注意，当纪录不足以刚好整除单位页纪录时，我们也要将其定义为一页，如纪录数目为2页多一个纪录，此时我们的页数也要为3页纪录。
if (recordcount mod pagesize)=0 then 
pagecount=recordcount\pagesize
else
pagecount=recordcount\pagesize+1
end if
%>
<%=rs("arrRs")%>

<%
rs.close
set rs=nothing
set cmdexample=nothing
closedb
%><!--#include file=person/time.asp-->