zl.asp

Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明

<%
zl=request("zl")

set conn=server.createobject("adodb.connection")
conn.open "Provider=SQLOLEDB.1;Data Source=xhxy.;User ID=sa;Password=;Initial Catalog=xhdlxy"

s="select * from zl "
set rs=conn.execute(s)

set cmd=server.createobject(adodb.command)
set cmd.activeconnection=conn

rs.movefirst

if zl=1 then
response.write "支持票为:"&rs(0)+1&<br>
response.write "不支持票为:"&rs(1)&<br>
response.write "无所谓的为:"&rs(2)&<br>
sql="update zl set y=y+1"
else if zl=2 then
response.write "支持票为:"&rs(0)&<br>
response.write "不支持票为:"&rs(1)+1&<br>
response.write "无所谓的为:"&rs(2)&<br>
sql="update zl set n=n+1"
else
response.write "支持票为:"&rs(0)&<br>
response.write "不支持票为:"&rs(1)&<br>
response.write "无所谓的为:"&rs(2)+1&<br>
sql="update zl set m=m+1"
end if
cmd.execute
%>