<%=left(trim(rs("title")),8)%>
| 犬舍网待售幼犬 |
|
<%
dim rs,totalnum,num,picpath,piclink
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pet_dog_pic_young where price>0 and flag=1",conn,1,1
totalnum=rs.recordcount
for i=1 to 5
Randomize
num=Fix(Rnd*totalnum)
rs.move num
picpath = trim(rs("picpath1"))
piclink = "http://"&rs("folder")&".petking.cn/"&trim(rs("filepath"))
%>
<%=left(trim(rs("title")),8)%> |