manage.asp

全新后台新闻编辑器 2.全新后台下载编辑器 3.增加图片友情链接管理功能 4.JMail在线发送邮件,支持在线导出Email 5.新增在后台网站配置中指定网站首页新闻条数 6.后台

<!--#include file="top.asp"-->
<%set rs=server.CreateObject("adodb.recordset")
  sql="select * from title order by id desc"
  rs.open sql,connstr
%>
<table width="70%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="63" valign="bottom"><div align="center">以下是您所有的投票主题，请进行各自的操作：</div></td>
  </tr>
</table>
<form name="form1" method="post" action="">
  <div align="center">
    <%
if rs.eof and rs.bof then
   response.write "目前还没有投票"
else
%>
    </div>
  <table width="70%"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
  <%do while not rs.eof
       if rs("current")=true then
	      current="激活"
	   else
	      current="未激活"
	   end if
  %>
    <tr>
      <td width="44%" height="21" bgcolor="#D7F2FF"><a href="edit.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
      <td width="12%" bgcolor="#FFF4C8"><div align="center"><a href="add_choice.asp?id=<%=rs("id")%>">添加选项</a></div></td>
      <td width="7%" bgcolor="#D7F2FF"><div align="center"><a href="del.asp?id=<%=rs("id")%>" onClick="return test()">删除</a>
        </div></td>
      <td width="9%" bgcolor="#FFF4C8"><div align="center"><a href="vote.asp?id=<%=rs("id")%>" target="_blank">预览</a></div></td>
      <td width="28%" bgcolor="#D7F2FF"><div align="center">
        <input name="textfield" type="text" class="input" value="&lt;object type=&quot;text/x-scriptlet&quot; width=&quot;400&quot; height=&quot;300&quot; data=&quot;vote.asp?id=<%=rs("id")%>&quot;&gt;&lt;/object&gt;" size="22">
      </div></td>
    </tr>
	<%rs.movenext
	  loop
	  rs.close
	  set rs=nothing
	  %>
  </table>
    <%end if%>
</form>