<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->z
<%
dim id,rss,bigclassname,smallclassname,remark
id =request("id")
if not isinteger(id) then
call mb("对不起,没有找到要欣赏的作品!","index.asp",1)
end if
set rs=server.createobject("adodb.recordset")
sql="select * from flash where id="&id
rs.open sql,conn,1,3
if rs.bof and rs.eof then
call mb("对不起,没有找到相关的作品!","index.asp",1)
else
rs("hits")=rs("hits")+1
rs.update
end if
set rss=conn.execute("select B.bigclassname,S.smallclassname from bigclass B inner join smallclass S on S.bigclassid=B.bigclassid where S.smallclassid="&rs("smallclassid"))
if not(rss.bof and rss.eof) then
bigclassname=rss(0)
smallclassname=rss(1)
end if
set rss=nothing