<!--#include file="bsconfig.asp"-->
<%
'=========================================================
'
'產(chǎn)品名稱： 公司(企業(yè))網(wǎng)站管理系統(tǒng)（簡稱：www.web300.cn）
'版權(quán)所有: www.web300.cn 
'程序制作：www.web300.cn開發(fā)團(tuán)隊
'Copyright 2006-2008 www.web300.cn - All Rights Reserved. 
'
'========================================================
%>
<%
dim ID,Title,VoteTime,IsSelected
dim rs,sql
ID=request("id")
Title=trim(request.form("Title"))
VoteTime=trim(request.form("VoteTime"))
if VoteTime="" then VoteTime=now()
IsSelected=trim(request("IsSelected"))
if IsSelected="True" then
	conn.execute "Update Vote set IsSelected=False where IsSelected=True"
end if
dim i
if ID="" then
	Response.Redirect "Bs_Vote.asp"
end if
sql="select * from Vote where ID="&Cint(ID)
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if not rs.eof then
	if Title<>"" then
		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
			else
				rs("select"&i)=""
				rs("answer"&i)=0
			end if
		next
		rs("VoteTime")=VoteTime
		rs("VoteType")=request("VoteType")
		if IsSelected="" then IsSelected=false
		rs("IsSelected")=IsSelected
		rs.update
		rs.close
		set rs=nothing
		call CloseConn()
		Response.Redirect "Bs_Vote.asp"
	end if
%>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
	<tr>
		<td class="a1" height="25" align="center"><strong>修 改 調(diào) 查</strong></td>
	</tr>
	<tr class="a4">
		<td align="center">
      <br>
			<form method="POST" action="Bs_Vote_edit.asp">
        <table width="500" border="0" align="center" cellpadding="0" cellspacing="2" Class="border">
          <tr class="tdbg"> 
						<td width="15%" align="right" bgcolor="#C0C0C0">主題：</td>
						<td width="85%" colspan="3" bgcolor="#E3E3E3"><input name="Title" type="text" value="<%=rs("Title")%>" size="52"></td>
					</tr>
					<% for i=1 to 8%>
					<tr class="tdbg"> 
						<td align="right" bgcolor="#C0C0C0">選項<%=i%>：</td>
						<td bgcolor="#E3E3E3"><input name="select<%=i%>" type="text" value="<%=rs("select"& i)%>" size="36"> 
						</td>
						<td align="right" bgcolor="#E3E3E3">票數(shù)：</td>
						<td width="80" bgcolor="#E3E3E3"><input name="answer<%=i%>" type="text" value="<%=rs("answer"&i)%>" size="5"></td>
					</tr>
					<%next%>
					<tr class="tdbg"> 
						<td align="right" bgcolor="#C0C0C0">調(diào)查類型：</td>
						<td colspan="3" bgcolor="#E3E3E3"><select name="VoteType" id="VoteType">
							<option value="Single" <% if rs("VoteType")="Single" then %> selected <% end if%>>單選</option>
							<option value="Multi" <% if rs("VoteType")="Multi" then %> selected <% end if%>>多選</option>
						</select></td>
					</tr>
					<tr class="tdbg">
						<td align="right" bgcolor="#C0C0C0">&nbsp;</td>
						<td colspan="3" bgcolor="#E3E3E3">
							<input name="IsSelected" type="checkbox" id="IsSelected" value="True" <% if rs("IsSelected")=true then response.write "checked"%>>
							設(shè)為最新調(diào)查</td>
					</tr>
					<tr class="tdbg">
						<td colspan=4 align=center> <BR>
							<input name="ID" type="hidden" id="ID" value="<%=rs("ID")%>"> 
							&nbsp;<input name="Submit" type="submit" id="Submit" value="保存修改結(jié)果"> </td>
					</tr>
				</table>
			</form>
		</td>
	</tr>
</table>
<BR>
<%htmlend%>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>