admin_researchmana.asp

青岛dj站程序,带后台管理 名字和密码都是:admin

<!--#include file="function.asp"-->
<%CheckAdmin2%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from research order by id desc"
rs.open sql,conn,1,1
%>
<div align="center">
  <center>
<table border="0" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="97">
  <tr>
    <td valign=top width="5" height="129" background="images/line_bg02.gif">
    <img border="0" src="images/line_bg02.gif"></td>
    <td valign=top width="175" height="129">　
    <!--#include file="admin_left.asp"-->
    </td>
    <td valign=top width="5" height="129" background="images/line_bg02.gif">　</td>
    <td align=center valign=top width="588" height="129">
      <table border="1" width="100%" cellspacing="0" cellpadding="0" class="TableLine" bordercolor="#0D5777" style="border-collapse: collapse">
        <form method="POST" action="admin_ResearchSet.asp">
          <tr>
            <td width="100%" height="20" colspan=5 bgcolor="#0D5777" align=center bordercolor="#1E465B"><b>管 理 网 站 调 查</b></td>
          </tr>
          <tr>
            <td width="10%" align="center">选择</td>
            <td width="10%" align="center">ID</td>
            <td width="60%" align="center">主题</td>
            <td width="10%" align="center">修改</td>
            <td width="10%" align="center">删除</td>
          </tr>
<%
do while not rs.eof
%>
          <tr>
            <td width="10%" align="center"><input type="radio" value=<%=rs("ID")%><%if rs("IsChecked")=true then%> checked<%end if%> name="Checked"></td>
            <td width="10%" align="center"><%=rs("ID")%>　</td>
            <td width="60%"><%=rs("Title")%>　</td>
            <td width="10%" align="center"><input onclick="javascript:window.open('admin_ResearchModify.asp?id=<%=rs("ID")%>','_self','')" type="button" value="修改" name="button1"></td>
            <td width="10%" align="center"><input onclick="javascript:window.open('admin_ResearchDel.asp?id=<%=rs("ID")%>','_self','')" type="button" value="删除" name="button2"></td>
          </tr>
<%
rs.movenext
loop
rs.close
%>
          <tr>
            <td colspan=5 align=center><input type="submit" value="选定调查项" name="submit"> <input onclick="javascript:window.open('admin_ResearchAdd.asp','_self','')" type="button" value="添加新调查" name="button"></td>
          </tr>
        </form>
      </table>
    </td>
    <td align=center valign=top width="5" height="129" background="images/line_bg02.gif">
      <img border="0" src="images/line_bg02.gif"></td>
  </tr>
  <tr>
    <td valign=top width="750" height="1" colspan="5" background="images/line_bg01.gif">
    <img border="0" src="images/line_bg01.gif"></td>
    </tr>
</table>
  </center>
</div>

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