?? voteadd.asp
字號:
<%@language=vbscript codepage=936 %>
<!--#include file="Admin.asp"-->
<!--#include file="Conndb.asp"-->
<%
dim Title,VoteTime,Action,IsSelected
dim rs,sql
Title=trim(request.form("Title"))
VoteTime=trim(request.form("VoteTime"))
if VoteTime="" then VoteTime=now()
Action=trim(request("Action"))
IsSelected=trim(request("IsSelected"))
dim i
if Title<>"" then
sql="select top 1 * from Vote"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs.addnew
rs("Title")=Title
for i=1 to 8
if trim(request("select"&i))<>"" then
rs("select"&i)=trim(request("select"&i))
if request("answer"&i)="" then
rs("answer"&i)=0
else
rs("answer"&i)=clng(request("answer"&i))
end if
end if
next
rs("VoteTime")=VoteTime
rs("VoteType")=request("VoteType")
if IsSelected="" then IsSelected=false
if IsSelected="True" then conn.execute "Update Vote set IsSelected=False where IsSelected=True"
rs("IsSelected")=IsSelected
rs.update
rs.close
set rs=nothing
call CloseConn()
Response.Redirect "VoteManage.asp"
end if
%>
<html>
<head>
<title>調查管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="862" align="center" valign="top">
<br>
<strong>添 加 調 查</strong><br>
<form method="POST" action="VoteAdd.asp">
<table width="765" border="0" align="center" cellpadding="0" cellspacing="2" Class="border">
<tr class="tdbg">
<td width="81" height="22" align="right">主題:</td>
<td colspan="3">
<input name="Title" type="text" size="45" maxlength="50"></td>
</tr>
<%
for i=1 to 8%>
<tr class="tdbg">
<td height="22" align="right">選項<%=i%>:</td>
<td width="281">
<input type="text" name="select<%=i%>" size="36">
</td>
<td width="41" align="right">票數:</td>
<td width="352">
<input type="text" name="answer<%=i%>" size="5"></td>
</tr>
<%next%>
<tr class="tdbg">
<td height="22" align="right">調查類型:</td>
<td colspan="3">
<select name="VoteType" id="VoteType">
<option value="Single" selected>單選</option>
<option value="Multi">多選</option>
</select></td>
</tr>
<tr class="tdbg">
<td height="22" align="right"> </td>
<td colspan="3">
<input name="IsSelected" type="checkbox" id="IsSelected" value="True" checked>
設為最新調查</td>
</tr>
<tr class="tdbg">
<td height="25" colspan=4 align=center>
<input name="Reset2" type="reset" id="Reset2" value=" 清 除 "> </td>
</tr>
</table>
</form> </strong></p>
</td>
</tr>
</table>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -