<% sss=LCase(request.servervariables("QUERY_STRING")) if instr(sss,"select")<>0 or instr(sss,"%")<>0 then response.write "

ÄãµÄÍøÖ·²»ºÏ·¨" response.end end if set conn=server.CreateObject("adodb.connection") DBPath = Server.MapPath("/admin/data/#db1.mdb") conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath ID=trim(request.QueryString("ID")) IF ID<>"" Then if isnumeric(ID) Then conn.execute("update news set hit=hit+1 where id="&ID) end IF end IF imgid=trim(request.QueryString("IMGID")) If imgid<>"" then if isnumeric(imgid) then conn.execute("update picturenews set hit=hit+1 where id="&imgid) end if end if %>