<% 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") %> <%=rs("flashname")%> - 遊戲桃 ,<%=rs("flashname")%>遊戲,<%=rs("flashname")%>小遊戲,<%=rs("flashname")%>遊戲桃,<%=rs("flashname")%>遊戲天堂,<%=rs("flashname")%>下載">
現在位置 : 遊戲桃 > <%=smallclassname%>遊戲 > <%=rsflashname%>
 
 

<%=rs("flashname")%> :

<% remark=rs("remark") remark=replace(remark,chr(13) & chr(10), "
") response.write remark %>