insertvote.asp

本书通过实例介绍了嵌入式编程的方法与技巧书中例子具有实用性

<%
Dim i,j,k,flag
pname=request.form("president")
sname=request.form("secretary")
tname=request.form("treasurer")
m=request.form("ssn")
n=request.form("pwd")
session("ssn")=m

if(pname="") then
	pname="none"
	end if
if(sname="") then
	sname="none"
	end if

if(tname="") then
	tname="none"
	end if


set myconn=server.createobject("ADODB.Connection")
set cmd=server.createobject("ADODB.Command")

set myconn1=server.createobject("ADODB.Connection")
set cmd1=server.createobject("ADODB.Command")

set myconn2=server.createobject("ADODB.Connection")

set rs=server.createobject("ADODB.Recordset")
myconn.open "DSN=vote"
myconn1.open "DSN=vote"
myconn2.open "DSN=vote"
rs.open "select * from voters",myconn,adopendynamic


flag=0
stat=0
session("status")=0
session("status1")=1
do while not rs.eof
if(m=rs.fields(0)) then
	if(n=rs.fields(1)) then
	status=rs.fields(2)
	flag=1
	session("status")=1
	else
	%>
	<b>Enter User name and Password Correctly <br></b>
<%
end if
end if
rs.movenext
loop

if(stat=status) then

session("status1")=0

end if

if(flag=1 and stat=status) then
cmd.ActiveConnection=myconn2
cmd1.ActiveConnection=myconn1

str1= "update Contest set votes=votes+1 where PersonName in('"&pname&"','"&sname&"','"&tname&"')"
cmd.commandText=str1

tnames="none"
if(pname=tnames and sname=tnames and tname=tnames) then
str2= "update voters set status=status+2 where ssn='"&m&"'"
else
str2= "update voters set status=status+1 where ssn='"&m&"'"
end if

cmd1.commandText=str2

cmd.execute
cmd1.execute
%>
<!-- #include file="thanks.html" -->
<% else %>
<!-- #include file="checkvote.asp" -->
<%
end if
myconn.close
myconn1.close
myconn2.close
%>