%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim ImgUrl,SqlText,rs,LinkUrl LinkUrl="ArticleList.asp?lbid=23" ImgUrl="images/temp.jpg" SqlText="SELECT TOP 1 [id],PicUrl FROM T_XX WHERE [lbid]=23 AND PicUrl IS NOT NULL AND LEN(PicUrl)>4 ORDER BY plsx asc,[id] desc" set rs=conn.execute(SqlText) if not rs.eof then LinkUrl="Article.asp?id="&rs("id") ImgUrl="WebFiles/"&rs("PicUrl") end if %>