| 农副产品 |
| 蔬菜野菜 |
粮油棉麻 |
| 海鲜水产 |
干鲜果品 |
| 肉禽蛋奶 |
食用真菌 |
| 农业物资 |
| 化肥
农药 饲料
种子 |
| 其他 |
花卉
种苗 机械
工艺制品 兽药
|
| 供求热线 |
<%sub querytable(inputquery)
set conn1=server.createobject("ADODB.connection")
conn1.open("Provider=SQLOLEDB.1;Server=80.0.0.17;Database=sdxnw;UID=read;pwd=DSread17@8408;")
set rstemp1=conn1.execute(inputquery)
%>
<%do while not rstemp1.eof%>
<% for i = 0 to 1
thisvalue=trim(rstemp1(i))
If isnull(thisvalue) then
thisvalue=""
end if
if thisvalue="供" then
thisvalue="供"
end if
if thisvalue="求" then
thisvalue="求"
end if
%>
| "><%=thisvalue%> |
<%next%>
<%rstemp1.movenext
loop
%>
<%
rstemp1.close
set rstemp1=nothing
conn1.close
set conn1=nothing
end sub
%>
<%call querytable("select top 9 substring(titel,1,9),typeid,id from SCXX_sale order by dates desc,id desc")
%>
|
 更多 |
|
| 更多 |
|
<%
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(constr)
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"
for counts=0 to ubound(cityids)
sql=sql & " or cityid=" & cityids(counts)
next
end if
sql=sql & " order by dates desc"
' response.write(sql)
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
%>
|
|
首页 | 设为收藏|
联系我们|
