<%
dim title,content,from,cnt,id,pubtime,upfile
from="没有相关信息"
title="没有相关信息"
content="没有相关信息"
pubtime=date
cnt=0
id=cint(request.QueryString("id"))
set rs=Server.CreateObject("Adodb.Recordset")
Sql="select * from article where see=1 and id=" & id
rs.open Sql,conn,1,3
if rs("today")=date then
rs("todayview")=rs("todayview")+1
else
rs("today")=date
rs("todayview")=0
end if
rs.update
rs.close
rs.open Sql,conn,1,1
if rs.recordcount<>0 then
conn.execute("update article set hits=hits+1 where id=" & id)
upfile=rs("upfile")
title=rs("title")
content=rs("content")
from=rs("from")
cnt=rs("hits")
pubtime=rs("date")
end if
rs.close
%>
重庆文理学院招办——普通本专科招生
