<%@language=vbscript codepage=936 %> <% dim sql,rs,Action,ID Action=Trim(Request("Action")) ID=Trim(Request("VoteID")) if Action="Set" and ID<>"" then conn.execute "Update Vote set IsSelected=False where IsSelected=True" conn.execute "Update Vote set IsSelected=True Where ID=" & ID response.Write "" end if sql="select * from Vote order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %>

调 查 管 理

管理选项：添加新调查

<% if not (rs.bof and rs.eof) then do while not rs.eof %> <% rs.movenext loop %> <% end if%>
选择 主题 操作
<%if rs("IsSelected")=true then%> checked<%end if%> name="VoteID">  <%=rs("Title")%> ">修改 ">删除

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