ad_view.asp

就业信息服务网

<!-- #Include File=../sys.asp -->

<%
dim rs,sql
call conned()
state="天方网上调查系统管理 http://www.soonhost.com"
call top()
Set rs= Server.CreateObject ("ADODB.RecordSet")
sql = "select * from vote  order by bclass desc,baddtime desc"
rs.open sql, conn,1,3
'----------------------------------空记录
if not rs.eof then
rs.MoveFirst  '到第一条记录

%>
<p align="center"><b>天方网上调查系统管理<br>
  </b></p>
<table border=1 cellpadding=0 cellspacing=0 width=650 align="center" bordercolor="#0099cc">
  <tr align="center"> 
    <td class=td height=15 width=59><font
color=#ff0000>序号</font></td>
    <td class=td height=20 width=*><font
color=#ff0000>调查名称</font></td>
    <td class=td height=15 width=76><font color="#FF0000">位置上移</font></td>
    <td class=td height=15 width=78><font color="#FF0000">位置下移</font></td>
    <td class=td height=15 width=78><font
color=#ff0000>删除</font></td>
  </tr>
  <%
do while not rs.eof
Response.Write "<TR>"
response.write "<td class=td1 align='center'>"&rs("id")&" <img  border=0 src=../sys/image/nav.gif></td>"
response.write "<td class=td2 align='center'><a href=ad_changetype.asp?action=type&id="&rs("id")&" >" &rs("bselect")& "</a></td>"
response.write "<td class=td1 align='center'><a href=ad_typeoperat.asp?action=up&id="&rs("id")&" ><img  border=0 src=../sys/image/up.gif></a></td>"
response.write "<td class=td2 align='center'><a href=ad_typeoperat.asp?action=down&id="&rs("id")&" ><img  border=0 src=../sys/image/down.gif></a></td>"
response.write "<td class=td1 align='center'><a href=ad_typeoperat.asp?action=del&id="&rs("id")&" ><img  border=0 src=../sys/image/del.gif></a></td>"

Response.Write "</TR>"
rs.movenext
loop

Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
'==========================================
'程序制做:天方网络.    http://www.webs.net.cn
'天方网落 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.webs.net.cn
'msn:[e-mail]
'请保留以上版权信息，谢谢合作！
'==========================================
%> 
</table>
<table border=0 cellpadding=0 cellspacing=0 width=650 align="center" bordercolor="0">
  <tr align="center"> 
    <td >
      <div align="left"> 
        <p>1.点击调查名称更改调查名。<br>
          <br>
          2.删除调查将连同此栏目下内容一同删除,删除后不可恢复。 </p>
      </div>
    </td>
  </tr>
  
</table>

<% end if %>
<br>
<br>
<form method="post" action="ad_typeoperat.asp">
  <table border=1 cellpadding=0 cellspacing=0 width=650 align="center" bordercolor="#0099cc">
    <tr align="center" valign="middle"> 
      <td class=td2  height=15 width=154>添加新调查</td>
      <td class=td2  height=15 width=340> 
        <input type="hidden" name="action" value="add">
        <input type="text" name="subtype" maxlength="20" size="20">
        <input type="submit" name="Submit" value="添加">
      </td>
    </tr>
    
  </table>
  </form>
  <br>
  <table width="680" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td></td>
  </tr>
</table>
</html>