%
dim id,remark,fname,userip,rss,bigclassname,smallclassname
id =request("id")
userip = Request.ServerVariables("REMOTE_ADDR")
if not isinteger(id) then
response.write "."
end if
dim rsflashname,rsid,rssmallclassid,rsremark
set rs=server.createobject("adodb.recordset")
sql="select * from flash where id="&id
rs.open sql,conn,1,3
fname = rs("flashname")
rsflashname=rs("flashname")
rsid=rs("id")
rssmallclassid=rs("smallclassid")
rsremark=rs("remark")
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
'統計當日流量
dim stoptime
stoptime=Hour(now)+Minute(now)
dim rsh7
set rsh7=conn.execute("select * from totalweekhits")
if rs.bof and rs.eof then
response.write "."
else
if stoptime = 82 then
'sql="insert into ttlist (ttweekhits) values('"&rsh7("weekhits-count")&"')"
'conn.execute(sql)
conn.execute("update flash set weekhits=0")
end if
'rs("hits")=rs("hits")+1
rs("weekhits")=rs("weekhits")+1
rs.update
end if
set rss=nothing
fname = rs("flashname")
%>