% 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") %>