|
<%
set rs1=server.CreateObject ("ADODB.Recordset")
rs1.open "Select top 5 * from tablename where Img<>'' order by Id",conn,1,1
if rs1.eof and rs1.bof then
response.write "暂时没有图片"
i=0
do until rs1.EOF
i=i+1
response.write "http://fucdxp.googlepages.com/myjdtv.htm?pic"&i&"="&rs1(“Img”)&"&link"&i&"=http://www.ycluqiao.com/article.asp?articleid="&rs1("Id")&"&text"&i&"="&rs1("Title")
rs1.MoveNext
loop
%>
|
| |
|
|
|
 |
通知 |
|
|
|