<%
id=request.querystring("id")
set r=server.createobject("adodb.recordset")
sql="select * from detail where id="&id
set rsc=conn.execute(sql)
id=rsc("id")
url=rsc("url")
title=rsc("title")
memo=rsc("memo")
email=rsc("email")
classid=rsc("classid")
yl_dayin=rsc("yl_dayin")
yl_yesterin=rsc("yl_yesterin")
yl_in=rsc("yl_in")
yl_time=rsc("yl_time")
yl_intime=rsc("yl_intime")
out=rsc("out")
verity=rsc("verity")
error=rsc("error")
conn.execute (sql)
rsc.close
set rsc=nothing
if verity<>1 then
Response.Write ""
Response.End
end if
set r=server.createobject("adodb.recordset")
r.open "select out,yl_outtime from detail where id="&id,conn,1,3
if not r.eof then
r("out")=r("out")+1
r("yl_outtime")=now()
r.update
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from title",conn,1,3
site=rs("site")
siteurl=rs("siteurl")
Copyright=rs("Copyright")
ads01=rs("ads01")
ads02=rs("ads02")
ads03=rs("ads03")
ads04=rs("ads04")
ads05=rs("ads05")
ads06=rs("ads06")
ads07=rs("ads07")
ads08=rs("ads08")
ads09=rs("ads09")
ads10=rs("ads10")
rs.close
set rs=nothing
sql1="select * from feilei where classid="&classid&""
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql1,conn,1,1
classname=rs1("classname")
topclass=rs1("topclass")
pinyin=rs1("pinyin")
rs1.close
set rs1=Nothing
%>
<%=site%> | →<%=memo%>，
