📄 add.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="YZ_login.asp"-->
<%
'从form1表单选项个数中获取x值,如果没有就给一个默认值4
x=request("x")
if x="" or x=empty then
x=4
end if
%>
<title>添加投票项目</title>
</head>
<body>
<h3 align="center">在线投票管理</h3>
<table width="654" height="431" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="746" height="30" bgcolor="#BEC9DB"><table width="100%" border="0">
<tr>
<td width="471"> 添加投票</td>
<td width="171"><a href="admin.asp">投票管理</a>-<a href="index.asp">首页</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="746" height="350" bgcolor="#F0F0F0">
<form method="post" action="do.asp" name="form1">
<table width="75%" height="284" align="center" border="0" cellspacing="1" cellpadding="0" bgcolor="#999999">
<tr>
<td width="100%" height="17" bgcolor="#F0F0F0"> </td>
</tr>
<tr>
<td height="25" bgcolor="#F0F0F0">投票选项个数:
<!--通过onChange方法可以实现改变选项个数值,并传给上面的变量x,从而动态的改变选项个数-->
<input type="text" name="x" size="6"
onChange="location.href='add.asp?x='+form1.x.value;" value="<%=x%>">
<input name="B1" type="button" value="确定"></td>
</tr>
<tr>
<td height="25" bgcolor="#F0F0F0">投票主题:
<input type="text" name="ZhuTi" size="40"></td>
</tr>
<tr>
<td height="25" bgcolor="#F0F0F0">投票方式:
<input name="XuanZe" type="radio" value="radio" checked>单选
<input name="XuanZe" type="radio" value="checkbox" >多选
</td>
</tr>
<tr>
<td height="25" bgcolor="#F0F0F0">投票开始时间:
<select size="1" name="nian">
<%
for i=6 to 9
response.Write("<option value=200"&i&">200"&i&"</option>")
next
%>
</select>年
<select name="yue" size="1">
<%
for i=1 to 12
response.Write("<option value="&i&">"&i&"</option>")
next
%>
</select>月
<select name="ri" size="1">
<%
for i=1 to 31
response.Write("<option value="&i&">"&i&"</option>")
next
%>
</select>日
</td>
</tr>
<tr>
<td height="25" bgcolor="#F0F0F0">投票结束时间:
<select size="1" name="nian1">
<%
for i=6 to 9
response.Write("<option value=200"&i&">200"&i&"</option>")
next
%>
</select>年
<select name="yue1" size="1">
<%
for i=1 to 12
response.Write("<option value="&i&">"&i&"</option>")
next
%>
</select>月
<select name="ri1" size="1">
<%
for i=1 to 31
response.Write("<option value="&i&">"&i&"</option>")
next
%>
</select>日
</td>
</tr>
<%
for i=1 to x
%>
<tr>
<td height="25" bgcolor="#F0F0F0">
投票选项<%=i%>:<input name=option<%=i%> value="" type="text">
</td>
</tr>
<%
next
%>
<tr>
<td height="25" bgcolor="#F0F0F0">设为当前投票选项?
<input name="ShiFou" type="radio" value="1" checked>是
<input name="ShiFou" type="radio" value="0" >否</td>
</tr>
<tr>
<td height="25" bgcolor="#F0F0F0" align="center"><input type="submit" name="B2" value=" 提交 ">
<input type="reset" name="B3" value=" 取消 "></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -