<%@language=vbscript codepage=936 %> <% dim ID,Title,VoteTime,IsSelected dim rs,sql ID=request.QueryString("id") ' 也可用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 id="&cint(id) 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 %>

修 改 调 查 <% for i=1 to 8%> <%next%> 主题： " size="52"> 选项<%=i%>： " size="36"> 票数： " size="5"> 调查类型： selected <% end if%>>单选 selected <% end if%>>多选   > 设为最新调查 ">

<% end if rs.close set rs=nothing conn.close set conn=nothing %>