<% Connstr="DBQ="+server.mappath(" database/wh1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;" set conn=server.createobject("adodb.connection") conn.open Connstr sqlstr="select * from wh01 " set rs=server.CreateObject("adodb.recordset") rs.open sqlstr,conn,1,3

select case request("dan") case 1 rs("a02")=rs("a02")+1 case 2 rs("a04")=rs("a04")+1 case 3 rs("a05")=rs("a05")+1

end select rs.update

rs.close set rs=nothing conn.close set conn=nothing response.write "<script>window.alert('恭喜你投票成功');window.location.href='piao.asp'</script>" %> 注：piao是页面 dan是按钮的名字 ！