<%
id=request("id")
if id="" or not checknum(id) then
call msg("参数错误","")
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from affiche where id="&id&" and pass='yes' "
rs.open sql,conn,1,3
if rs.eof then
call msg("该信息不存在或已删除","")
else
rs("read_num")=rs("read_num")+1
rs.update()
if rs("link_url")<>"" then
response.Redirect rs("link_url"):response.End()
end if
lm=rs("lm")
title=rs("title")
color_font=rs("color_font")
wtime=rs("wtime")
read_num=rs("read_num")
z_body=rs("z_body")
img_sl=rs("img_sl")
end if
rs.close
set rs=nothing
%>
<%call getDoHead("affiche",id)%>
<%=Mtitle%>
