<%
on Error Resume Next
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open Application("ConnStr")
strSQL="select * from TClickRate where s_Column='3' "
set RS=Conn.Execute(strSQL)
if RS.Eof and RS.Bof then
SQL="insert into TClickRate(s_Column,n_ClickNum) values('3',1)"
else
SQL="update TClickRate set n_ClickNum=n_ClickNum+1 where s_Column='3'"
end if
'response.write SQL
Conn.Execute(SQL)
RS.Close
conn.Close
%>
中央新闻纪录电影制片厂
