%
dim sql,dbs,i,showtitle,j,showlink
set dbs = new DBConn
dim result,lifeservice,friend,web,tuiguang,jiaju,zn,gw,wt,ah,commend
sql = "select distinct typename from type"
result = dbs.getData(sql)
sql = "select top 20 id,title from news where type = '生活服务信息' order by id desc"
lifeservice = dbs.getData(sql)
sql = "select top 10 id,title from news where type = '合作盟友' order by id desc"
friend = dbs.getData(sql)
sql = "select top 9 id,title from news where type = '网站建设' order by id desc"
web = dbs.getData(sql)
sql = "select top 9 id,title from news where type = '网站推广' order by id desc"
tuiguang = dbs.getData(sql)
sql = "select top 6 id,title from news where type = '精彩推荐' order by id desc"
jiaju = dbs.getData(sql)
sql = "select top 6 id,title from news where type = '楼市话题' order by id desc"
zn = dbs.getData(sql)
sql = "select top 6 id,title from news where type = '商机在线' order by id desc"
gw = dbs.getData(sql)
sql = "select top 6 id,title from news where type = '消费热点' order by id desc"
wt = dbs.getData(sql)
sql = "select top 15 id,title from news where type = '房地产信息' order by id desc"
ah = dbs.getData(sql)
sql = "select top 13 * from commend order by id desc"
commend = dbs.getData(sql)
dim lease,sechand
sql = "select top 17 rent.id,province,city,houseaddr,buildsize,price,payunit from rent,province,city where rent.provid = province.id and rent.cityid = city.id"
sql=sql+" and renttype='lease' order by savedate desc,rent.id desc"
lease = dbs.getdata(sql)
sql = "select top 10 rent.id,province,city,houseaddr,buildsize,price,payunit from rent,province,city where rent.provid = province.id and rent.cityid = city.id"
sql=sql+" and renttype='sell' and issecond = 'yes' order by savedate desc,rent.id desc"
sechand = dbs.getdata(sql)
sql = "select * from linktable order by id desc"
showlink = dbs.getdata(sql)
set dbs = nothing
%>