<!--#include file="../inc/conn.asp"  -->

<%
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"

id1=request.querystring("id")
set rs=server.createobject("adodb.recordset")
sql="select [hit],[ip],[id] from [web_question] where id="&id1&""
rs.open(sql),cn,1,3
if not rs.eof then
rs("hit")=rs("hit")+1

view_id=request.cookies(cstr(rs("id")))
if view_id="" then
rs("ip")=rs("ip")+1
response.cookies(cstr(rs("id")))=rs("id")
response.cookies(cstr(rs("id"))).expires=date()+1
end if
rs.update
hit=rs("hit")

end if
rs.close
set rs=nothing
%>
