如果选了clasidd为2时
我第一次得到的sql是
response.write sql
为select * from View_devis where (1=1 AND ClassID in (2,5)) order by DeviceID desc
当我点下一页
我得到的是select * from View_devis where (1=1) order by DeviceID desc
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 reg<>"" then
sql=sql&" AND RegID="®&""
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 request("sql")="" then
xx=request("xx") '文本框中的东西
session("xx")=xx
xzbbgss=request("xzbbgss")'下拉框中的东西
if xzbbgss="序号" then
sql="select * from bgssyp where xh like '%"&xx&"%'"
elseif xzbbgss="实物名称" then
sql="select * from bgssyp where swmc like '%"&xx&"%'"
elseif xzbbgss="使用单位或存放地点" then
sql="select * from bgssyp where sydw like '%"&xx&"%'"
else
sql="select * from bgssyp where zrr like '%"&xx&"%'"
end if
session("sql")=sql
else
sql=session("sql")
end if
'end if
rs.open sql,conn,1,3