|
|
|
|
黄河棉花市场信息信短定制 |
<%
set rs=server.CreateObject("adodb.recordset")
sql="select count(*) as record from webtailoritem where manncer='1'"
rs.open sql,conn,0,1
recordsum=cint(rs("record"))
rs.close
set rs=nothing
if recordsum>12 then
recordnum=12
else
recordnum=recordsum
end if
if recordnum<>0 then
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from webtailoritem where manncer='1' "
rs.open sqlstr,conn,3,1
for i=1 to recordnum
if rs.eof then
exit for
end if
%>
| |
黄河电子撮合每日成交价 |
<%
rs.movenext
if rs.eof then
exit for
end if
%>
黄河电子撮合每日成交价 |
<%
rs.movenext
if rs.eof then
exit for
end if
%>
黄河电子撮合每日成交价 |
<% rs.movenext
next
rs.close
set rs=nothing
end if
%>
|
黄河棉花交易商专区短信定制 |
<%
set rs=server.CreateObject("adodb.recordset")
sql="select count(*) as record from webtailoritem where manncer='2'"
rs.open sql,conn,0,1
recordsum=cint(rs("record"))
rs.close
set rs=nothing
if recordsum>6 then
recordnum=6
else
recordnum=recordsum
end if
if recordnum<>0 then
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from webtailoritem where manncer='2' "
rs.open sqlstr,conn,3,1
for i=1 to recordnum
if rs.eof then
exit for
end if
%>
| |
|
<%
rs.movenext
if rs.eof then
exit for
end if
%>
|
<%
rs.movenext
if rs.eof then
exit for
end if
%>
|
<%
rs.movenext
next
rs.close
set rs=nothing
end if
%>
|
其他地区棉花信息短信制定 |
<%
set rs=server.CreateObject("adodb.recordset")
sql="select count(*) as record from webtailoritem where manncer='3'"
rs.open sql,conn,0,1
recordsum=cint(rs("record"))
rs.close
set rs=nothing
if recordsum>12 then
recordnum=12
else
recordnum=recordsum
end if
if recordnum<>0 then
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from webtailoritem where manncer='3' "
rs.open sqlstr,conn,3,1
for i=1 to recordnum
if rs.eof then
exit for
end if
%>
| |
|
<%
rs.movenext
if rs.eof then
exit for
end if
%>
|
<%
rs.movenext
if rs.eof then
exit for
end if
%>
|
<%
rs.movenext
next
rs.close
set rs=nothing
end if
%>
|
国外棉花指数信息短信制定 |
<%
set rs=server.CreateObject("adodb.recordset")
sql="select count(*) as record from webtailoritem where manncer='4'"
rs.open sql,conn,0,1
recordsum=cint(rs("record"))
rs.close
set rs=nothing
if recordsum>12 then
recordnum=12
else
recordnum=recordsum
end if
if recordnum<>0 then
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from webtailoritem where manncer='4' "
rs.open sqlstr,conn,3,1
for i=1 to recordnum
if rs.eof then
exit for
end if
%>
| |
|
<%
rs.movenext
if rs.eof then
exit for
end if
%>
|
<%
rs.movenext
if rs.eof then
exit for
end if
%>
|
<%
rs.movenext
next
rs.close
set rs=nothing
end if
%>
| |
|
|
|
|
|
|
| |
|
