hover_vote.asp

后台默认管理账号密码：admin 后台主要功能如下：一、系统管理：管理员管理

<!--#include file="toptable.asp"-->
<%
'=================================
'   良精科技企业管理系统
'   QQ在线客服:65961930 82993936
'   咨询定购Tel:010-81991660
'      [e-mail] 
'        www.liangjing.net
'  copyright(c)2001-2008 HoverCms 2007特别版
'=================================
%>
<%
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 "<script language='JavaScript' type='text/JavaScript'>alert('设置成功！');</script>"
end if
sql="select * from Hover_Vote order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="3" cellspacing="1" border="0" width="97%" align="center" class="tableBorder">
<form method="POST" action="Hover_Vote.asp">
     <tr>
		<td class="title" colspan=4  height="25" align="center"><strong>调 查 管 理</strong></td>
	</tr>
     <tr>
		<td class="title2" colspan=4  height="25"  >选择您需要更改的调查。 </td>
	</tr>
          <tr bgcolor="#C0C0C0" class="title"> 
            <td width="135" height="25" align="center" class="items">选择</td>
            <td width="102" align="center" class="items">ID</td>
            <td width="544" class="items">主 题</td>
            <td width="175" align="center" class="items">操作</td>
		  </tr>
<%
if not (rs.bof and rs.eof) then
	do while not rs.eof
%>
          <tr bgcolor="#E3E3E3" class="tdbg"> 
            <td width="135" height="22" align="center" class="table"> 
            <input type="radio" value=<%=rs("ID")%><%if rs("IsSelected")=true then%> checked<%end if%> name="VoteID"></td>
            <td width="102" height="22" align="center" class="table"><%=rs("ID")%></td>
            <td height="22" class="table">&nbsp;<%=rs("Title")%></td>
            <td width="175" height="22" align="center" class="table"><a href="Hover_Vote_edit.asp?ID=<%=rs("ID")%>">修改</a> 
              <a href="Hover_Vote_Del.asp?ID=<%=rs("ID")%>">删除</a></td>
		  </tr>
<%
rs.movenext
loop
%>
 <tr class="tdbg"> 
 <td colspan=4 align=center class="table"> 
   <input name="Action" type="hidden" id="Action" value="Set"> 
	 <input name="submit" type="submit" class="btn2"  value="将选定的调查设为最新调查">
	 </td>
 </tr>
 
<% end if%>
</form>	
</table>
<BR>
<%htmlend%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>