<%
Function getClickNumone(table ,id)
sql="update news set clickNum=clickNum+1 where id="&id
conn.execute sql
End Function
nid=SafeRequest("id",1)
if nid ="" then response.Redirect "index.asp"
Call getClickNumone("news",nid)
sql="select * from News where id="&nid
Set show=conn.execute(sql)
if show.eof and show.bof Then response.Redirect "index.asp"
T=show("TypeNumber")
S=show("id")
%>
新闻媒体_<%=web_title%>
">
新闻媒体
<%
Set rsx2=new Record06
Set rsx2.connection=conn
rsx2.openx "Select * from newsType where left(typeNumber,4)='0007' and level=2 order by typeNumber asc",100
%>
<%for each a in rsx2.DataClass%>