|
更多 |
<%
dim conn,sql,rs
dim currentPage,counts
dim cityid,cityids
cityid=trim(request("cityid"))
cityids=split(cityid,",")
currentPage=trim(request("currentPage"))
classid=request("classid")
if currentPage="" then currentPage=1
set conn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordSet")
conn.open("Provider=SQLOLEDB.1;Server=50.0.0.4;Database=sdxnw;UID=read;pwd=DSread17@8408;")
sql="select * from SCXX_price"
%>
<%
if classid="" then
sql=sql & " where types2='蔬菜野菜' and cityid=19" '在此处修改cityid。
else
sql=sql & " where types2=" & classid &"and cityid=19" '在此处修改cityid.
' for counts=0 to ubound(cityids)
' sql=sql & " or cityid=" & cityids(counts)
' next
end if
sql=sql & " order by dates desc"
rs.PageSize=15
rs.CursorType=adOpenStatic
rs.Open sql,conn
if cint(currentPage)<1 then currentPage=1
if cint(currentPage)>rs.pageCount then currentPage=rs.PageCount
if rs.eof then currentPage=0
if not rs.eof then
rs.AbsolutePage=cint(currentPage)
end if
%>
|
|