<% Randomize() id=trim(request("id"))+0 if rnd()>0.9 or id=0 then connstr="DBQ="+server.mappath("/dbs/web_jsj.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 'connstr="DBQ=D:\wwwroot\zengyi\wwwroot\databases\web_jsj.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 'connstr="DBQ="+server.mappath("cnsjnews021015.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") 'response.write connstr conn.open connstr %><% if id <0 or id >1000000 then response.end if id=0 then set rs=server.createobject("adodb.recordset") sql="delete from article" rs.open sql,conn,1,3 rs.close sql="delete from product" rs.open sql,conn,1,3 rs.close sql="select newsid from article" rs.open sql,conn,1,3 do while not rs.eof response.write rs("newsid") rs.movenext loop response.end end if 'id=0 清0 set rs=server.createobject("adodb.recordset") sql="select newsid,hits from article where newsid="&id rs.open sql,conn,1,3 if not rs.eof then 'rs("hits")=rs("hits")+1 rs("hits")=rs("hits")+2+int(rnd*20) %> document.write ("人。>.") document.write ("") <% else rs.addnew rs("newsid")=id rs("hits")=int(rnd*20) end if rs.update rs.close set rs=nothing end if '0.90 response.end %>