<%id=request("id")
if id="" or IsNumeric(id)<>true then
response.write"请输入正确的ID号！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from SMT_news where SMT_id="&id&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1"
rs.open sql,conn,1,1
if rs.eof then
response.write "
此内容不存在
"
response.end
else
conn.execute("update SMT_news set SMT_htc=SMT_htc+1 where SMT_id="&id)
ypid=rs("SMT_yp_id")
title=rs("SMT_title")
news=rs("SMT_news")
newssort=rs("SMT_newssort")
ly=rs("SMT_ly")
addr=rs("SMT_addr")
addsj=rs("SMT_date")
end if
rs.close%>
<%=title%> - <%=citytitle%>
<%set rs=server.createobject("adodb.recordset")
sql="select * from SMT_newssort where SMT_id="&newssort
rs.open sql,conn,1,1
if not rs.eof then
newssor=rs("SMT_newssort")
sortid=rs("SMT_id")
else
response.write "此内容不存在！"
response.end
end if
rs.close
set rs=nothing
%>
