<% dim rrs,vid,vclass,addclick vid=trim(request("id")):vclass=trim(request("class")):addclick=request("addclick") if not IsNumeric(vid) then response.write "ID参数错误!":response.end else vid=clng(vid) end if if not IsNumeric(addclick) then response.write "ID参数错误!":response.end else addclick=clng(addclick) end if set rrs = server.createobject("adodb.recordset") if vclass="weburl" then sql="update Gq_wzdh set art_count=art_count+" & addclick & " where id="&vid conn.execute sql sql="select art_count from Gq_wzdh where id="&vid rrs.open sql,conn %> document.write('<%=rrs("art_count")%>'); <% rrs.close elseif vclass="article" then sql="update Gq_article set art_count=art_count+" & addclick & " where id="&vid conn.execute sql sql="select art_count from Gq_article where id="&vid rrs.open sql,conn %> document.write('<%=rrs("art_count")%>'); <% rrs.close elseif vclass="sfdate" then sql="update Gq_SFdata set hits=hits+" & addclick & " where id="&vid conn.execute sql sql="select hits from Gq_SFdata where id="&vid rrs.open sql,conn %> document.write('<%=rrs("hits")%>'); <% rrs.close else response.write "参数错误!":response.end end if %>