%
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")
logo=rsc("logo")
title=rsc("title")
memo=rsc("memo")
email=rsc("email")
classid=rsc("classid")
youqing123_dayin=rsc("youqing123_dayin")
youqing123_yesterin=rsc("youqing123_yesterin")
youqing123_in=rsc("youqing123_in")
youqing123_time=rsc("youqing123_time")
youqing123_intime=rsc("youqing123_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,youqing123_outtime from detail where id="&id,conn,1,3
if not r.eof then
r("out")=r("out")+1
r("youqing123_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
%>
<%
Set news=Server.CreateObject("Adodb.Recordset")
SqlT="select top 11 id,title from detail where verity=1 and youqing123_dayin>0 order by youqing123_intime desc,id"
news.open SQLT,conn,1,1
numrow2=0
response.write "
"
response.write "
"
if news.EOF and news.BOF then
response.write "
暂时没有内容
"
else
numRows=0
While (Not news.EOF)
response.write "
"
numRows=numRows+1
news.MoveNext
if (numRows mod 1 =0) Then
numrow2=numrow2+1
response.write ""
end if
Wend
end if
news.close
Set news = Nothing
response.write "
"
%>
※ 网 址 分 类
<% Set feilei=Server.CreateObject("Adodb.Recordset")
Sql= "select top 72 classid,classname from feilei where show=1"
feilei.open Sql,conn,1,1
response.write "
"
response.write "
"
if feilei.Eof and feilei.Bof then
response.write "
暂时没有栏目
"
else
numRows = 0
While (Not feilei.Eof)
response.write "