% qstockcode = request.form("stkcode") qstockname = request.form("stkname") qbroker = request.form("qbroker") qstart = request.form("qstart") qend = request.form("qend") if qstart<>empty and qend<>empty and qstart > qend then qstart = "" qend = "" end if if qend=empty or qend="" then qend = date() end if if qstart=empty or qstart="" then qstart = dateadd("m",-1,qend) end if set conn = GetConnection() if qstockcode<>"" then qstockcode = right("00000"&qstockcode,5) sql = "select * from NewHK_ProSuggest as sg left join NewHK_Broker as bro on sg.broker_id = bro.id_no where stk_code='"&qstockcode&"' and report_date between '"&qstart&"' and '"&qend&"' order by report_date desc" elseif qstockname<>"" then sql = "select * from NewHK_ProSuggest as sg left join NewHK_Broker as bro on sg.broker_id = bro.id_no where stock like'%"&qstockname&"%' and report_date between '"&qstart&"' and '"&qend&"' order by report_date desc" elseif qbroker<>"選擇查詢之證券行" and qbroker<>"" then sql="select * from NewHK_ProSuggest as sg left join NewHK_Broker as bro on sg.broker_id = bro.id_no where broker_id="&qbroker&" and report_date between '"&qstart&"' and '"&qend&"' order by report_date desc" elseif qstart<>"" or qend<>"" then if qend="" then qend = qstart end if if qstart="" then qstart=qend end if sql = "select * from NewHK_ProSuggest as sg left join NewHK_Broker as bro on sg.broker_id = bro.id_no where report_date between '"&qstart&"' and '"&qend&"' order by report_date desc" end if set rs = server.createobject("adodb.recordset") rs.open sql,conn,3,3 '-----分頁設定 page = trim(request.form("page")) if not isnumeric(page) then page = 1 if page <= 0 then page = 1 if not rs.eof then page = cint(page) rs.pagesize = 5 '-----每頁筆數 if page > rs.pagecount then page = rs.pagecount rs.absolutepage = page end if %>