<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "gm_infodb","gm_info","2791_09"
sql = "select max(id) from info_tot"
Set Rs=conn.execute(sql)
max_id=Rs(0)
Set Rs=conn.execute("select in_date from info_tot where id='"&max_id&"'")
max_date= Rs(0)
y=cstr(year(max_date))
m=cstr(month(max_date))
d=cstr(day(max_date))
c="/"
ymd=y+c+m+c+d
set rs=conn.execute("select count(id) from info_tot where in_date>='"&ymd&"'")
infoid=rs(0)
set rs=conn.execute("select count(id) from info_tot where in_date>='"&ymd&"' and sfhy='n'")
infomf=rs(0)
rs.close
set rs=conn.execute("select count(id) from info_tot where in_date>='"&ymd&"' and sfhy='y'")
infosf=rs(0)
rs.close
'1
d1="b0"
set rs1=conn.execute("select id,title,in_date from info_tot where breeds like '%"+d1+"%' and in_date>='"&ymd&"'")
'2
d2="f0"
set rs2=conn.execute("select id,title,in_date from info_tot where breeds like '%"+d2+"%' and in_date>='"&ymd&"'")
'3
d3="d0"
set rs3=conn.execute("select id,title,in_date from info_tot where breeds like '%"+d3+"%' and in_date>='"&ymd&"'")
'4
d4="a0"
set rs4=conn.execute("select id,title,in_date from info_tot where breeds like '%"+d4+"%' and in_date>='"&ymd&"'")
'5
d5="c0"
set rs5=conn.execute("select id,title,in_date from info_tot where breeds like '%"+d5+"%' and in_date>='"&ymd&"'")
'6
d6="e0"
set rs6=conn.execute("select id,title,in_date from info_tot where breeds like '%"+d6+"%' and in_date>='"&ymd&"'")
t2=now
'trade
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "gm_tradedb","gm_trade","2791_09"
set rs=conn.execute("select count(id) from trade_info")
zz=rs(0)
set rs7=conn.execute("select title,id from free_trade order by in_date desc")
%>
谷盟网
