% CID=request("id") dim rs_danye,FoundErr dim sql sql="select * from onlypage where ID="&CID&"" Set rs_danye= Server.CreateObject("ADODB.Recordset") rs_danye.open sql,conn,1,3 if rs_danye("ifshow")=0 then response.write"" response.end else rs_danye("Hits")=rs_danye("Hits")+1 rs_danye.update %>
—北京超图软件股份有限公司"> —北京超图软件股份有限公司"> —北京超图软件股份有限公司">