-
<%
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企業(yè)作品展%' 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號 |
| 景觀中國 版權所有 |