28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Dim nl_tjdatafirst,nl_tjdatanext,nl_txdatafirst,nl_txdatanext,nl_title,nl_fl,nl_zz,nl_ly,nl_bj
dim rs,sql
nl_tjdatafirst=request.Form("nl_tjdatafirst")
nl_tjdatanext=request.Form("nl_tjdatanext")
nl_txdatafirst=request.Form("nl_txdatafirst")
nl_txdatanext=request.Form("nl_txdatanext")
nl_title=request.Form("nl_title")
nl_fl=request.Form("nl_fl")
nl_zz=request.Form("nl_zz")
nl_nl=request.Form("nl_nl")
nl_ly=request.Form("nl_ly")
nl_bj=request.Form("nl_bj")
set rs=server.CreatObject("ADODB.Recordset")
If request.Form("nl_tjdatafirst") <>"" and request.Form("nl_tjdatanext")<>"" then
sql="select * from [NENLONG] where nl_tjdata between '"&nl_tjdatafirst&"' and '"&nl_tjdatanext&"'Order by nl_tjdata desc"
end if
if request.Form("nl_txdatafirst") <>"" and request.Form("nl_txdatanext") <>"" then
sql="select * from [NENLONG] where nl_txdata between '"&nl_txdatafirst&"' and '"&nl_txdatanext&"'Order by nl_tjdata desc"
end if
if request.Form("nl_title")<>"" then
sql="select * from [NENLONG] where nl_title='"&nl_title&"' Order by nl_id Desc"
end if
if request.Form("nl_fl")<>"" then
sql="select * from [NENLONG] where nl_fl='"&nl_fl&"'"
end if
if request.Form("nl_zz")<>"" then
sql="select * from [NENLONG] where nl_zz='"&nl_zz&"' Order by nl_id Desc"
end if
if request.Form("nl_nl")<>"" then
sql="select * from [NENLONG] where nl_nl like '%"&nl_nl&"%' Order by nl_id desc"
end if
if request.Form("nl_ly")<>"" then
sql="select * from [NENLONG] where nl_ly='"&nl_ly&"' order by nl_id desc"
end if
if request.Form("nl_bj")<>"" then
sql="select * from [NENLONG] where nl_bj like '%"&nl_bj&"%' order by nl_id desc"
end if
if request.Form("nl_tjdatafirst")="" and request.Form("nl_tjdatanext")="" and request.Form("nl_txdatafirst")="" and request.Form("nl_txdatanext")="" and request.Form("nl_title")="" and request.Form("nl_fl")="" and request.Form("nl_zz")="" and request.Form("nl_nl")="" and request.Form("nl_ly")="" and request.Form("nl_bj")="" then
sql="select * from [nenlong] order by nl_id desc"
end if
rs.open sql,conn,1,1
%>
ql="Select ID,BellID,SongName,SingerName,Price,AvailabilityDate,SpName,SingType,Region,DownloadsNumber,FilterDate from BellData where"
if music<>"" then sql=sql&" SongName like '%"&music&"%' AND"
if m_name<>"" then sql=sql&" SingerName like '%"&m_name&"%' AND"
if spname<>"" then sql=sql&" SpName like '%"&spname&"%' AND"
if date1<>"" then sql=sql&" AvailabilityDate like '%"&date1&"%' AND"
if region<>"" then sql=sql&" Region like '%"®ion&"%' AND"
if right(sql,5)="WHERE" then sql=left(sql,clng(len(sql))-5) '解决所有参数都为空的情况
if right(sql,3)="AND" then sql=left(sql,clng(len(sql))-3) '去掉参数最后的and
if Other="New" then
sql=sql&" ORDER BY DownloadsNumber DESC"
else
sql=sql&" ORDER BY DownloadsNumber DESC"
end if
set rs=server.CreatObject("ADODB.Recordset")
If request.Form("nl_tjdatafirst") <>"" and request.Form("nl_tjdatanext")<>"" then
sql1=" and nl_tjdata between '"&nl_tjdatafirst&"' and '"&nl_tjdatanext&"' "
end if
if request.Form("nl_txdatafirst") <>"" and request.Form("nl_txdatanext") <>"" then
sql2=" and nl_txdata between '"&nl_txdatafirst&"' and '"&nl_txdatanext&"' "
end if
if request.Form("nl_title")<>"" then
sql3=" and nl_title='"&nl_title&"'"
end if
if request.Form("nl_fl")<>"" then
sql4=" and nl_fl='"&nl_fl&"' "
end if
if request.Form("nl_zz")<>"" then
sql5=" and nl_zz='"&nl_zz&"' "
end if
if request.Form("nl_nl")<>"" then
sql6=" and nl_nl like '%"&nl_nl&"%' "
end if
if request.Form("nl_ly")<>"" then
sql7=" and nl_ly='"&nl_ly&"'"
end if
if request.Form("nl_bj")<>"" then
sql8="and nl_bj like '%"&nl_bj&"%' "
end if
sql="select * from [nenlong] where 1=1 "&sql1&" "&sql2&" "&sql3&" "&sql4&" "&sql5&" "&sql6&" "&sql7&" "&sql8&" order by nl_id desc"
rs.open sql,conn,1,1