<% '您需要修改这个参数，数据库的路径------------------------- db="/@shujuku/@##$%#@#@#.mdb" '路径要和上面一样否则后台备份数据库会失败,不用带/ '下面是数据库的打开操作，建议不要修改--------------------- If chkinsert(request("n_id"))=false Then Response.Write("") response.end end if if not isnumeric(request("n_id")) then Response.Write("") response.end end if set rs=server.CreateObject("adodb.recordset") rs.open"select title from anli where id="&request("n_id"),conn,1,1 if rs.eof then Response.Write("") response.end end if Set Conn = Server.CreateObject("ADODB.Connection") mydb="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") Conn.Open Mydb Sql="select * from anli where id="&request("n_id") set rst=server.CreateObject("adodb.recordset") rst.open sql,conn,1,3 hits=rst("hit") hits=hits+1 rst("hit")=hits rst.update response.Write("document.write('"&hits&"');") rst.close set rst=nothing %>