自己瞎搞的,留下来备用!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<script language="javascript" type="text/javascript">
<!--
function checkbox()
{
var obj = document.getElementsByName("optHSCameratyp");
var objLen = obj.length;
var i;
var k=0;
for (i = 0;i< objLen;i++){
if (obj[i].checked==true) {
alert("you select " + obj[i].value)
k=k+1
break;
}
}
if (k==0)
{
alert("至少选择一个撒!");
return false;
}
}
-->
</script>
</head>
<%
dim conn,db
db="data/ceshi.mdb"
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath(db)
sub CloseConn()
conn.close
set conn=nothing
end sub
sub saveadd()
dim s
conn.execute("insert into vote(selected) values('"&request.Form("optHSCameratyp")&"')")
response.Redirect("vote.asp")
end sub
dim action
action=request.QueryString("action")
%>
<body οnlοad="fun();">
<%
select case action
case "sv"
call saveadd()
case "admin"
call admin()
case "edit"
call edit()
case else
call add()
end select
sub add()
%>
<form id="form1" name="form1" method="post" action="?action=sv" οnsubmit="return checkbox();">
<label>
<input type="checkbox" name="optHSCameratyp" value="1" />
棒球
</label>
<label>
<input type="checkbox" name="optHSCameratyp" value="2" />
篮球
</label>
<label>
<input type="checkbox" name="optHSCameratyp" value="3" />
足球</label>
<label><input type="checkbox" name="optHSCameratyp" value="4" />
</label>
<label>乒乓
<input type="checkbox" name="optHSCameratyp" value="5" />
</label>
<label>
羽毛球
<input type="checkbox" name="optHSCameratyp" value="6" />
看书
</label>
<label>
<input name="optHSCameratyp" type="checkbox" value="7" />
电影
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
<a href="?action=admin">管理</a>
</form>
<%
end sub
sub admin()
set rs=conn.execute("select * from vote order by ID desc")
do while not rs.eof
response.Write "<a href=?action=edit&id="&rs("ID")&">"&rs("ID")&"</a><br>"
rs.movenext
loop
rs.close
set rs=nothing
call closeConn()
end sub
sub edit()
set rse = conn.execute("select * from vote where ID="&request.QueryString("id"))
if not rse.eof then
p=rse("selected")
else
response.Redirect("vote.asp")
end if
rse.close
set rse=nothing
%>
<script>
function fun()
{
var a;
var j;
var k;
var obj = document.getElementsByName("optHSCameratyp");
var objLen = obj.length;
a=[<%=p %>]
for(j=0;j<objLen;j++)
{
for(k=0;k<a.length;k++)
{
if(a[k]==obj[j].value)
{
obj[j].checked = true;
}
}
}
}
</script>
<form id="form1" name="form1" method="post" action="?action=sv" οnsubmit="return checkbox();">
<input type="checkbox" name="optHSCameratyp" value="1"/>
棒球
</label>
<label>
<input type="checkbox" name="optHSCameratyp" value="2" />
篮球
</label>
<label>
<input type="checkbox" name="optHSCameratyp" value="3" />
足球</label>
<label><input type="checkbox" name="optHSCameratyp" value="4" />
</label>
<label>乒乓
<input type="checkbox" name="optHSCameratyp" value="5" />
</label>
<label>
羽毛球
<input type="checkbox" name="optHSCameratyp" value="6" />
看书
</label>
<label>
<input type="checkbox" name="optHSCameratyp" value="7" />
电影
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
<a href="?action=admin">管理</a>
</form>
<% end sub %>
</body>
</html>