<%
qyid=request("qyid")
if not IsNumber(qyid, 0, Len(qyid)) then
response.Write("/")
end if
qyid=cint(qyid)
set rs=server.createobject("adodb.recordset")
rs.open "select * from wenzhang where id="&qyid,conn,1,1
if rs.recordcount=0 then
response.write "文章不存在！"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
else
title=rs("title")
pic=rs("pic")
shijian=rs("date")
content=rs("content")
att=rs("affix")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
北京市体检中心
