<%
stats="浏览小字报"
%>
<%=Forum_info(0)%>--<%=stats%>
>
<%
dim paperid
dim abgcolor
dim username
if request("id")="" then
founderr=true
Errmsg=Errmsg+" "+"
非法的参数。"
elseif not isInteger(request("id")) then
founderr=true
Errmsg=Errmsg+" "+"
非法的参数。"
else
paperID=request("id")
end if
if founderr then
call dvbbs_error()
else
set rs=server.createobject("adodb.recordset")
sql="select * from smallpaper where s_id="&paperid
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Errmsg=Errmsg+" "+"
没有找到相关信息。"
call dvbbs_error()
else
conn.execute("update smallpaper set s_hits=s_hits+1 where s_id="&paperid)
%>