📄 add.asp
字号:
<!--#include file="conn.asp"-->
<% IF Session("fjvote_IsManager")<>True THEN Response.redirect "login.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.asa>
</head>
<body bgcolor="#ECF5FF">
<!--#include file="head.asp"-->
<form method="POST" action="add.asp">
<input type="hidden" name="IsSub" value="YES">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="100%">
<tr>
<td width="100%" height="100%" valign="top">
<div align="center">
<%
IF Request.Form("IsSub")="YES" THEN
txt1=Server.HTMLEncode(Request.Form("txt1"))
txt2=Server.HTMLEncode(Request.Form("txt2"))
txt2=Trim(txt2)
IF txt1="" THEN errMessage="<li>投票描述一栏不能为空"
IF txt2="" THEN errMessage=errMessage&"<li>投 票 项一栏不能为空"
vote=Split(txt2,VBCrlf)
IF Ubound(vote)=0 THEN errMessage=errMessage&"<li>投票项至少要有两项"
IF Request.Form("rad")="YES" THEN
mul=True
ELSE
mul=False
END IF
IF errMessage<>"" THEN
Response.write "<b>.....发现错误.....</b><br><br>"&errMessage&"<br><br><a href=javascript:history.back()><font color=#000000>点击这儿返回</font></a>"
ELSE
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
conn.execute "Insert Into 调查(项目,多选) Values('"&txt1&"',"&mul&")"
Set rs=conn.execute("Select ID From 调查 Order By ID DESC")
ID=rs(0)
rs.close
Set rs=nothing
FOR i=0 TO Ubound(vote)
IF vote(i)<>"" THEN conn.execute "Insert Into 结果(所属,内容) Values("&ID&",'"&vote(i)&"')"
NEXT
conn.close
Set conn=nothing
Response.write "<b>.....操作完成.....</b><br><br>已经成功添加投票，<a href=add.asp><font color=#000000>点击这儿继续添加投票</font></a>"
END IF
ELSE
%>
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#6699FF" width="40%" id="AutoNumber2" height="25">
<tr>
<td width="100%" height="1" background="dh.gif">
<p align="center"><font size="2"><b>添加新投票</b></font></td>
</tr>
<tr>
<td width="100%" height="30" bgcolor="#FFFFFF">
<p>
投票描述：<br>
<textarea rows="3" name="txt1" cols="39"></textarea><br>
投 票 项：(以换行符分隔)<br>
<textarea rows="9" name="txt2" cols="39"></textarea><br>
允许多选：<input type="radio" value="YES" name="rad">是
<input type="radio" name="rad" value="NO" checked>否</p>
<p align="center">
<input type="submit" value="提交" name="B1"></p>
</td>
</tr>
</table>
<%
END IF
%>
</div>
</td>
</tr>
</table>
<p>龙腾投票系统V0.1</p>
</div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -