if lcase(session("user"))="admin" then
sql="select * from View_devis where (1=1"
else
cidd=getClassID(session("UserID"))
sql="select * from View_devis where (ClassID in ("&cidd&")"
end if
if serchname<>"" then
sql=sql&" AND "&serchtype&" like '%"&serchname&"%'"
end if
if floorid<>"" then
sql=sql&" AND FloorNumber like '%"&floorid&"%'"
end if
if roomid<>"" then
sql=sql&" AND RoomNumber like '%"&roomid&"%'"
end if
if danwei<>"" then
sql=sql&" AND DeptName like '%"&danwei&"%'"
end if
if officeid<>"" then
sql=sql&" AND OfficeName like '%"&officeid&"%'"
end if
if clasidd<>"" then
sql=sql&" AND ClassID in ("&rr(clasidd,-1)&")"
end if
if regid<>"" then
sql=sql&" AND RegID="®id&""
end if
if register1="1" then
sql=sql&" AND Registered="®ister1&""
end if
if register2="0" then
sql=sql&" AND Registered="®ister2&""
end if
'if register1="1" and register2="0" then
'sql=sql&" AND Registered="&""®ister2&" or Registered="&""®ister2&""
'end if
if isopen="1" then
sql=sql&" AND RunStatus="&isopen&""
end if
if isclose="0" then
sql=sql&" AND RunStatus="&isclose&""
end if
'if isclose="0" and isopen="1" then
'sql=sql&" AND RunStatus="&""&isclose&" or RunStatus="&""&isopen&""
'end if
if request("djtime1")<>"" and request("djtime2")<>"" then
p1=cdate(request("djtime1"))
p2=cdate(request("djtime2"))
pp1=p1&" 00:00:00"
pp2=p2&" 00:00:00"
sql=sql&" AND RegisterTime >= '"&pp1&"' and RegisterTime <= '"&pp2&"'"
end if
if request("sytime1")<>"" and request("sytime2")<>"" then
d1=cdate(request("sytime1"))
d2=cdate(request("sytime2"))
dd1=d1&" 00:00:00"
dd2=d2&" 00:00:00"
sql=sql&" AND LastTime >= '"&dd1&"' and LastTime <= '"&dd2&"'"
end if
sql=sql&")" & ""&orderSql&""
set conn=application("conn")
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,1
if rs.eof and rs.bof then
response.write "<p align='center'><font size=4 color='ffcc00'>当前还没有记录!"&_
"</font></p>"
else
totalput=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*maxpage>totalput then
if (totalput mod maxperpage)=0 then
currentpage=totalput\maxperpage
else
currentpage=totalput\maxperpage+1
end if
end if
if currentpage=1 then
showpage totalput,maxperpage,"DeviceChaxunlb.asp"
showcontent
showpage totalput,maxperpage,"DeviceChaxunlb.asp"
else
if(currentpage-1)*Maxperpage<totalput then
rs.move(currentpage-1)*Maxperpage
dim bookmark
bookmark=rs.bookmark
showpage totalput,maxperpage,"DeviceChaxunlb.asp"
showcontent
showpage totalput,maxperpage,"DeviceChaxunlb.asp"
else
currentpage=1
showpage totalput,maxperpage,"DeviceChaxunlb.asp"
showcontent
showpage totalput,maxperpage,"DeviceChaxunlb.asp"
dim orderby,orderSql
orderby = Request("OrderBy")
if len(orderby) > 0 then
orderSql = " order by " & orderby
else
orderSql = " order by DeviceID desc"
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?serchtype="&serchtype&"&serchname="&serchname&"&floorid="&floorid&"&roomid="&roomid&"&danwei="&danwei&"&officeid="&officeid&"&clasidd="&session("clsidd")&"®id="®id&"®ister1="®ister1&"®ister2="®ister2&"&isopen="&isopen&"&isclose="&isclose&"&djtime1="&djtime1&"&djtime2="&djtime2&"&sytime1="&sytime1&"&sytime2="&sytime2&"&page="&(CurrentPage+1)&">"
response.write ">下一页</a> <a href="&filename&"?serchtype="&serchtype&"&serchname="&serchname&"&floorid="&floorid&"&roomid="&roomid&"&danwei="&danwei&"&officeid="&officeid&"&clasidd="&clasidd&"®id="®id&"®ister1="®ister1&"®ister2="®ister2&"&isopen="&isopen&"&isclose="&isclose&"&djtime1="&djtime1&"&djtime2="&djtime2&"&sytime1="&sytime1&"&sytime2="&sytime2&"&page="&n&">尾页</a>"
end if