建一个数据表，再建两个页面，第二个页面全是代码：
第一个页面
<%
Connstr="DBQ="+server.mappath("database/weiwei.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")
conn.open Connstr
sqlstr="select * from baby"
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
dim a,b,c,d
b=rs("wei01")
c=rs("wei02")
d=rs("wei03")
a=b+c+d
%>
<form name="form1" method="post" action="ok.asp">
<table width="558" border="1">
<tr>
<td colspan="6"><div align="center">好娃娃投选举系统</div></td>
</tr>
<tr>
<td width="37">编号</td>
<td width="81">姓名</td>
<td width="94">票数</td>
<td width="88">投票</td>
<td width="90">百分比</td>
<td width="108">图像</td>
</tr>
<tr>
<td>1</td>
<td>Weiwei</td>
<td><%=rs("wei01")%></td>
<td><input type="radio" name="text" value="1"></td>
<td><%=left(b/a*100,5)%>%</td>
<td><table width="<%=150*left(b/a,5)%>" border="0">
<tr>
<td bgcolor="#00FF66"> </td>
</tr>
</table></td>
</tr>
<tr>
<td>2</td>
<td>Lucy</td>
<td><%=rs("wei02")%></td>
<td><input type="radio" name="text" value="2"></td>
<td><%=left(c/a*100,5)%>%</td>
<td><table width="<%=150*left(c/a,5)%>" border="0">
<tr>
<td bgcolor="#00FF66"> </td>
</tr>
</table></td>
</tr>
<tr>
<td>3</td>
<td>Susan</td>
<td><%=rs("wei03")%></td>
<td><input type="radio" name="text" value="3"></td>
<td><%=100-left(b/a*100,5)-left(c/a*100,5)%>%</td>
<td><table width="<%=150*left(d/a,5)%>" border="0">
<tr>
<td bgcolor="#00FF66"> </td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="6"><div align="center">
<input type="submit" name="Submit" value="呵呵，乖乖，提交吧～">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
第二个页面
<%
Connstr="DBQ="+server.mappath("database/weiwei.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")
conn.open Connstr
sqlstr="select * from baby where autoid=36"
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
select case request("text")
case 1
rs("wei01")=rs("wei01")+1
case 2
rs("wei02")=rs("wei02")+1
case 3
rs("wei03")=rs("wei03")+1
end select
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<script>window.alert('投票成功');window.location.href='default.asp'</script>"
%>
