%
c_id=request("id")
if request("id")="" then c_id=1
dim sql1,rs1,rs,sql,classtitle,c_class,c_title,c_time,c_hits,c_pic,c_content,qc_class,zb_class
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 = "SELECT * from news where id="&c_id&""
rs1.open sql1,wconn,3,3
if not rs1.eof then
c_title=rs1("title")
c_class=rs1("classid")
c_time=rs1("uptime")
c_pic=rs1("pic")
c_content=rs1("content")
c_hits=rs1("hits")
rs1("hits")=c_hits+1
rs1.update
end if
rs1.close
set rs1=nothing
if c_class="" then c_class=1
qc_class= int((c_class-1)/5)*5+2
zb_class= int((c_class-1)/5)*5+3
%>