8
<%
const MaxPerPage=6
const MaxNumber=5
const MaxPic=1
const MaxQy=8
const MaxPer=10
const MaxP=6
const HyMax=5
const TbMax=4
dim mrs
dim msql
dim sql1
dim rs1
dim tbrs
dim tbsql
dim gqrs
dim gqsql
dim zsrs
dim zssql
dim userrs
dim usersql
dim hyrs
dim hysql
dim gsid,gsname
dim i,x,y,z,j,a,n
%><%
Set mrs= Server.CreateObject("ADODB.Recordset")
msql="select * from info where type like '" & "采购" & "' and showname like '%"&showname&"%' and flag=1 order by info_id desc"
mrs.open msql,conn,1,1
cgnum=mrs.recordcount
Set grs= Server.CreateObject("ADODB.Recordset")
gsql="select * from info where type like '" & "供应" & "' and showname like '%"&showname&"%' and flag=1 order by info_id desc"
grs.open gsql,conn,1,1
gynum=grs.recordcount
Set drs= Server.CreateObject("ADODB.Recordset")
dsql="select * from info where type like '" & "代理" & "' and showname like '%"&showname&"%' and flag=1 order by info_id desc"
drs.open dsql,conn,1,1
dlnum=drs.recordcount
Set hrs= Server.CreateObject("ADODB.Recordset")
hsql="select * from info where type like '" & "合作" & "' and showname like '%"&showname&"%' and flag=1 order by info_id desc"
hrs.open hsql,conn,1,1
hznum=hrs.recordcount
sql1="select * from news where bz=4 order by NewsID desc"
set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql1,conn,1,1
gqsql="select * from info where showname<>'""'and dateandtime <=date() order by info_id desc"
Set gqrs= Server.CreateObject("ADODB.Recordset")
gqrs.open gqsql,conn,1,1
sql="select * from news where bz=1 order by NewsID desc"
set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
newsql="select * from news where bz=5 order by newsid desc"
Set newrs= Server.CreateObject("ADODB.Recordset")
newrs.open newsql,conn,1,1
zssql="select * from spzs where flag=1 and zsbz like '%01%' order by ID desc"
Set rszs= Server.CreateObject("ADODB.Recordset")
rszs.open zssql,conn,1,1
zssql1="select * from spzs where Cpmc<>'""' order by ID desc"
Set rszs1= Server.CreateObject("ADODB.Recordset")
rszs1.open zssql1,conn,1,1
cpnum=rszs1.recordcount
tbsql="select * from banner where bz=0 order by LinkID"
Set tbrs= Server.CreateObject("ADODB.Recordset")
tbrs.open tbsql,conn,1,1
Set rssort= Server.CreateObject("ADODB.Recordset")
sortsql="select * from Class_1"
rssort.open sortsql,conn,1,1
%>
<%do while not rs1.eof%><% a=a+1
if a>=Max1 then exit do
rs1.movenext
loop
rsa.close
set rs1=nothing
%>
