<%dbdns="../"%>
<%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_xxnews 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_xxnews 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")
author=rs("SMT_author")
keyword=rs("SMT_keyword")
SMT_htc=rs("SMT_htc")
end if
rs.close
if newssort="->228->" or newssort="->229->" then
if session("vip")<>2 and session("vip")<>6 then
response.Write("")
response.End()
end if
end if
%>
感恩多--中国保健产业网
<%set rs=server.createobject("adodb.recordset")
sql="select * from SMT_xxnewssort 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
%>