admin_toplink.asp

ASP源程序采用天空软件小偷中心核件制成

<!--#include file="conn.asp"-->
<!--#include file="admin_loginchk.asp"-->
<%admin1%>
<title>顶部网址</title>
<LINK rel="stylesheet" href="../style.css">
<table border="0" width="99%" cellspacing="1" cellpadding="1" style="margin-top:6px;margin-bottom:6px" align="center">
  <tr> 
    <td valign=top width="20%" bgcolor="#D8D5B4">
      <!--#include file="admin_left.asp"-->
    </td>
    <td align=center valign=top>
      <div align="center">
        <center>
      <table border="0" cellpadding="4" cellspacing="0" width="98%" style="border-collapse: collapse" bordercolor="#111111">
        <tr align="center" bgcolor="#999999"> 
          <td bgcolor="#D8D5B4">网 站 顶 部 网 址</td>
        </tr>
        <tr align="center"> 
          <td align="center" valign="top">
            <table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse">
              <tr> 
                <td align="center" colspan="6" height="50" bgcolor="#FFFFFF" width="568"><font color="#FF0000">遇到排序不正常请使用“初始化排序”功能。</font></td>
              </tr>
              <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql6 ="SELECT  * From toplink order by orderid"
rs.open sql6,Conn,3,3
%>
              <tr align="center"> 
                <td width="34" bgcolor="#D8D5B4" height="30">原序</td>
                <td width="35" bgcolor="#D8D5B4" height="30">新序</td>
                <td width="95" bgcolor="#D8D5B4" height="30">大类名称</td>
                <td width="170" bgcolor="#D8D5B4" height="30">更名</td>
                <td width="46" bgcolor="#D8D5B4" height="30">执行</td>
                <td width="188" bgcolor="#D8D5B4" valign="top" height="30">栏目描述(请用|分隔)</td>
              </tr>
              <%			
i=0
do while not rs.eof
i=i+1%>
              <tr> 
                <td width="34" align="center" bgcolor="#F2F1E6"><%=rs("linkid")%></td>
                <td width="35" align="center" bgcolor="#F2F1E6"><%=rs("orderid")%></td>
                <td width="95" align="center" bgcolor="#F2F1E6" valign="top"> 
                  <form name="form1" method="post" action="admin_toplinkfuntion.asp?ID=<%=rs("linkid")%>">
                    <br>
                    <input type="text" name="linkname" value="<%=rs("linkname")%>" maxlength="50" size="8">
                    <input type="submit" name="Submit2" value="保存">
                    <input type="hidden" name="action" value="modiclass">
                  </form></td>
                <td width="170" align="center" bgcolor="#F2F1E6" valign="top"> 
                  <br>
                  
				  
                <form name="form1" method="post" action="admin_toplinkfuntion.asp?ID=<%=rs("linkid")%>">
                    <input type="text" name="linkurl" value="<%=rs("linkurl")%>" maxlength="50" size="16">
                    <input type="submit" name="Submit2" value="保存">
                    <input type="hidden" name="action" value="modiurl">
                  </form>
                </td>
                <td width="46" bgcolor="#F2F1E6" align="center"> <a href="admin_toplinkfuntion.asp?ID=<%=rs("linkid")%>&action=delclass" >删除</a> 
                  <%if i=1 then%>
                  拉上 
                  <%else%>
                  <a href="admin_toplinkfuntion.asp?ID=<%=rs("linkid")%>&action=upclass" >拉上</a> 
                  <%end if%>
                  <%if i=rs.recordcount then%>
                  拉下 
                  <%else%>
                  <a href="admin_toplinkfuntion.asp?ID=<%=rs("linkid")%>&action=downclass" >拉下</a></td>
                <%end if%>
                <td width="188" bgcolor="#F2F1E6" align="center" > 
                  <form name="form1" method="post" action="admin_toplinkfuntion.asp?ID=<%=rs("linkid")%>&action=addadmin">
                    <textarea name="linkinfo" cols="20" rows="3"><%=rs("linkinfo")%></textarea>
                   
                    <input type="submit" name="Submit2" value="保存">
                  </form>
                </td>
              </tr>
              <%
rs.MoveNext
Loop

rs.close
set rs=nothing
%>
              <tr> 
                <td colspan="6" height="40" align="center" bgcolor="#F2F1E6" width="568"><a href="admin_toplinkfuntion.asp?action=classinit">初始化分类排序</a></td>
              </tr>
              <tr> 
                <form method="post" action="admin_toplinkfuntion.asp?action=addclass" name="type">
                  <td align="center" colspan="6" height="60" width="568"> 增加网址： 
                    <input class=text type="text" name="type" size="15">
                    网址： 
                    <input class=text type="text" name="linkurl" size="15">
                    <input type="hidden" name="howmany" size="15" value=<%=i%>>
                    <input type="submit" name="Submit" value="添加">
                    <input type="reset" value="重写" name="B1">
                  </td>
                </form>
              </tr>
  </table>
 </td>
        </tr>
      </table>
      
        </center>
      </div>
      
      </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<br>
<%conn.close
set conn=nothing%></body></html>