bestsjs.asp

3000首FLASH源程序

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select top 1 classid,images,id,title,content from stamp where best=true order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
response.write"document.write ('<a href=stamplist.asp?id="&rs("id")&"&classid="&rs("classid")&" target=_blank><img src=');"
	if instr(rs("images"),"|")>0 then
		imagesarr=split(rs("images"),"|")
		images=imagesarr(0)
	end if
response.write"document.write ('"&images&" alt=""点击查看详细信息"" border=0 width=100 onLoad=""javascript:if(this.height>150)this.height=150;else if(this.width>95)this.width=95;"" align=left></a><div align=center><b><font color=#ff0000>"&rs("title")&"</font></b></div>"&left(rs("content"),150)&"...');"
end if
rs.close
set rs=nothing
%>