-
<%
Dim worksID,i,Errmsg
Dim objRS,strSQL
strSQL="select top 20 Id,PhotoUrl,Title from KS_U_Eworks Where Verific=1 And DelTF=0 And keywords like'%09企业作品展%' order by Istop desc,adddate desc"
Set objRS=Server.CreateObject("Adodb.recordset")
objRS.open strSQL,conn,1,1
If objrs.eof Then
Errmsg="
- 很抱歉，图片不存在！" Response.Write(Errmsg) Response.End End If While (Not objRS.eof ) Response.Write("
" &left(objRS("Title"),26)&" ")
objrs.movenext
wend
objrs.close
%>
"+"
| 景观中国简介 | About me | 广告服务 | 招聘信息 | 会员注册 | 投稿中心 | 建议留言 | 操作帮助| 网站地图 | 联系我们 |
| Copyright © 2005-2010 Landscape.cn 京ICP备05068035号 |
| 景观中国 版权所有 |