?? votemodify.asp
字號:
<%@language=vbscript codepage=936 %>
<!--#include file="Admin.asp"-->
<!--#include file="Conndb.asp"-->
<%
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 "VoteManage.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 "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>
<br>
<b> </b><br>
<strong><b>修 改</b> 調 查</strong><br>
<br>
<form method="POST" action="VoteModify.asp">
<table width="500" border="0" align="center" cellpadding="2" cellspacing="2" Class="border">
<tr class="tdbg">
<td width="15%" align="right">主題:</td>
<td width="85%" colspan="3"><input name="Title" type="text" value="<%=rs("Title")%>" size="52"></td>
</tr>
<%
for i=1 to 8%>
<tr class="tdbg">
<td align="right">選項<%=i%>:</td>
<td><input name="select<%=i%>" type="text" value="<%=rs("select"& i)%>" size="36">
</td>
<td align="right">票數:</td>
<td width="80"><input name="answer<%=i%>" type="text" value="<%=rs("answer"&i)%>" size="5"></td>
</tr>
<%next%>
<tr class="tdbg">
<td align="right">調查類型:</td>
<td colspan="3"><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"> </td>
<td colspan="3"><input name="IsSelected" type="checkbox" id="IsSelected" value="True" <% if rs("IsSelected")=true then response.write "checked"%>>
設為最新調查</td>
</tr>
<tr class="tdbg">
<td colspan=4 align=center><input name="ID" type="hidden" id="ID" value="<%=rs("ID")%>">
<input name="Submit" type="submit" id="Submit" value="保存修改結果"> </td>
</tr>
</table>
</form> </strong></p>
</td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -