-
<%
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
%>
"+"
| 景觀中國(guó)簡(jiǎn)介 | About me | 廣告服務(wù) | 招聘信息 | 會(huì)員注冊(cè) | 投稿中心 | 建議留言 | 操作幫助| 網(wǎng)站地圖 | 聯(lián)系我們 |
| Copyright © 2005-2010 Landscape.cn 京ICP備05068035號(hào) |
| 景觀中國(guó) 版權(quán)所有 |