|
<%pic=""
plink=""
ptext=""
sql="select top 5 * from tyinfo where len(newsimage)>0 and pingbai like '%家庭影院%' order by [date] desc"
set rs=conn.execute(sql)
do while not rs.eof
pic=pic&"http://www.k1qp.com/"&rs("newsimage")&"|"
link=rs("link-page")
if link="" then link="2007/news_detail.asp?id="&rs("id")
link="http://www.k1qp.com/"&link
plink=plink&link&"|"
ptext=ptext&rs("head")&"|"
rs.movenext
loop
rs.close
set rs=nothing
set sql=nothing
pic=left(pic,len(pic)-1)
plink=left(plink,len(plink)-1)
ptext=left(ptext,len(ptext)-1)
%>
|
|
|
