admin_researchmana.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%CheckAdmins%>
<!--#include file="top.asp"-->
<%
sql="select * from research order by id desc"
rs.open sql,conn,1,1
%>
<table border="0" width="770" cellspacing="1" cellpadding="1" bgcolor="#333333" align="center">
  <tr> 
    <td valign=top width="20%" bgcolor="<%=Tabletitlecolor%>"> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td align=center valign=top bgcolor="<%=Tablebodycolor%>"> 
      <table border="0" width="98%" cellspacing="1" cellpadding="0" class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=Tablebackcolor%>">
        <form method="POST" action="admin_ResearchSet.asp">
          <tr bgcolor="<%=Tabletitlecolor%>"> 
            <td width="100%" height="20" colspan=5 align=center><b><font color="#FFFFFF">管 
              理 网 站 调 查</font></b></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="10%" align="center"><font color="1">选择</font></td>
            <td width="10%" align="center"><font color="1">ID</font></td>
            <td width="60%" align="center"><font color="1">主题</font></td>
            <td width="10%" align="center"><font color="1">修改</font></td>
            <td width="10%" align="center"><font color="1">删除</font></td>
          </tr>
          <%
do while not rs.eof
%>
          <tr bgcolor="#FFFFFF"> 
            <td width="10%" align="center"> <font color="1"> 
              <input type="radio" value=<%=rs("ID")%><%if rs("IsChecked")=true then%> checked<%end if%> name="Checked">
              </font></td>
            <td width="10%" align="center"><font color="1"><%=rs("ID")%>　</font></td>
            <td width="60%"><font color="1"><%=rs("Title")%>　</font></td>
            <td width="10%" align="center"> <font color="1"> 
              <input onclick="javascript:window.open('admin_ResearchModify.asp?id=<%=rs("ID")%>','_self','')" type="button" value="修改" name="button1">
              </font></td>
            <td width="10%" align="center"> <font color="1"> 
              <input onclick="javascript:window.open('admin_ResearchDel.asp?id=<%=rs("ID")%>','_self','')" type="button" value="删除" name="button2">
              </font></td>
          </tr>
          <%
rs.movenext
loop
rs.close
%>
          <tr bgcolor="#FFFFFF"> 
            <td colspan=5 align=center> <font color="1"> 
              <input type="submit" value="选定调查项" name="submit">
              <input onclick="javascript:window.open('admin_ResearchAdd.asp','_self','')" type="button" value="添加新调查" name="button">
              </font></td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<br>
<%
set rs=nothing
conn.close
set conn=nothing%>
</body>
</html>