📄 index.asp
字号:
<!--#include file=conn.asp-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body background="../img/dnacebg2.jpg">
<%
dim subject,xm1,xm2,xm3,xm4,xm5
set rs=server.createobject("adodb.recordset")
rs.open "select * from vote",conn,1,1
subject=rs("subject")
xm1=rs("xm1")
xm2=rs("xm2")
xm3=rs("xm3")
xm4=rs("xm4")
xm5=rs("xm5")
rs.close
set rs=nothing
if request("act")="save" then
set rsv=server.createobject("adodb.recordset")
rsv.open "select * from vote",conn,1,3
vote=split(rsv("vote"),",")
if request.form("xm1")="" then
vote(0)=vote(0)
elseif request.form("xm1")="1" then
vote(0)=vote(0)+1
rsv("all")=rsv("all")+1
end if
if request.form("xm2")="" then
vote(1)=vote(1)
elseif request.form("xm2")="1" then
vote(1)=vote(1)+1
rsv("all")=rsv("all")+1
end if
if request.form("xm3")="" then
vote(2)=vote(2)
elseif request.form("xm3")="1" then
vote(2)=vote(2)+1
rsv("all")=rsv("all")+1
end if
if request.form("xm4")="" then
vote(3)=vote(3)
elseif request.form("xm4")="1" then
vote(3)=vote(3)+1
rsv("all")=rsv("all")+1
end if
if request.form("xm5")="" then
vote(4)=vote(4)
elseif request.form("xm5")="1" then
vote(4)=vote(4)+1
rsv("all")=rsv("all")+1
end if
rsv("vote")=vote(0)&","&vote(1)&","&vote(2)&","&vote(3)&","&vote(4)&","
rsv.update
rsv.close
set rsv=nothing
response.redirect "view.asp"
end if
%>
<div align="center">
<table width="250" height="200" border="0" cellpadding="0" cellspacing="0" bgcolor="#EDCEA2" id="table1">
<tr>
<td>
<div align="center">
<table border="1" width="100%" id="table2" cellspacing="1" cellpadding="3" bordercolorlight="#FF7200" bordercolordark="#FFFFFF">
<form action=?act=save method=post name=form1>
<tr>
<td bgcolor="#CEA772">
<p align="center"><b>欢迎投票</b></td>
</tr>
<tr>
<td>
<p align="center"><%=subject%></td>
</tr>
<tr>
<td>
<div align="center">
<table border="0" width="90%" id="table3" cellspacing="0" cellpadding="0">
<tr>
<td><input type=checkbox name=xm1 value=1><%=xm1%></td>
</tr>
<tr>
<td><input type=checkbox name=xm2 value=1><%=xm2%></td>
</tr>
<%if xm3<>"" then%>
<tr>
<td><input type=checkbox name=xm3 value=1><%=xm3%></td>
</tr>
<%end if%>
<%if xm4<>"" then%>
<tr>
<td><input type=checkbox name=xm4 value=1><%=xm4%></td>
</tr>
<%end if%>
<%if xm5<>"" then%>
<tr>
<td><input type=checkbox name=xm5 value=1><%=xm5%></td>
</tr>
<%end if%>
</table>
</div>
</td>
</tr>
<tr>
<td>
<p align="center"><input type=submit name=submit value=投票> <input type=button name=view value=查看结果 onclick="location.href='view.asp'"></td>
</tr>
</form>
</table>
</div>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -