<% ID = Request("ID") if(IsNumeric(id)) then sql = "Update PageCount Set Count=Count+1 where ID="&ID Connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=127.0.0.1;uid=www.xiayidao.cn;pwd=cn.xiayidao.www;Database=XYDII;" Set Conn = CreateObject("adodb.Connection") Conn.Open Connstr Conn.execute(sql) Conn.Close() set Conn=nothing 'else 'response.write "11" End IF %>