<%
dh=""
if request("bh")<>"" then
bh=sqlcheck(IsIntegers(request("bh")))
'读取二级栏目
sql2="select * from bhlm where bh="&bh&""
set rs2=conn.execute(sql2)
if not rs2.eof then
lm=rs2("bhmc")
'dh=dh&" > "&rs2("bhmc") 一级菜单隐藏
end if
end if
if request("lmid")<>"" then
lmid=sqlcheck(IsIntegers(request("lmid")))
'读取二级栏目
sql2="select * from xwlm where lmid="&lmid&""
set rs2=conn.execute(sql2)
if not rs2.eof then
lm=rs2("lmmc")
dh=dh&" "&rs2("lmmc")
end if
end if
%>
加入我们
加入我们
人才招聘
集团公司
招聘职位:
发布时间
<%
set rs=server.createobject("adodb.recordset")
sql="select * from xwfb where 1=1"
if bh<>"" then
sql=sql&" and bh="&bh&""
end if
if lmid<>"" then
sql=sql&" and lmid="&lmid&""
end if
sql=sql&" order by px,id desc"
cnt=0
rs.open sql,conn,1,1
if rs.eof then%>
Sorry, no record!
<%
else
Dim CurPage,Url_Add
IF CheckStr(Request.QueryString("Page"))<>Empty Then
Curpage=CLng(CheckStr(Request.QueryString("Page")))
IF Curpage<0 Then Curpage=1
Else
Curpage=1
End IF
Url_Add="?bh="&request("bh")&"&lmid="&request("lmid")&"&"
rs.PageSize=8
rs.AbsolutePage=CurPage
Dim nums
iii=0
Nums=rs.RecordCount
Dim MultiPages,PageCount
MultiPages=MultiPage(Nums,rs.PageSize,CurPage,Url_Add)
do until rs.eof or PageCount=rs.PageSize
cnt=cnt+1
%>
