lianmanage.asp

admin/admin.asp是WAP的后台管理登陆页面

<%
  if session("flag")="" then
      response.redirect "adminlogin.asp"
	  response.end
  end if
%>
<%if session("flag")>1 then
response.write"<SCRIPT language=JavaScript>alert('对不起，你没有这个权限！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if%>
<!--#include file="conn.asp"-->
<%
  if session("flag")="" then
      response.redirect "adminlogin.asp"
	  response.end
  end if
%>

<link rel="stylesheet" type="text/css" href="style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"><br>
      <a href="lianAddBig.asp"><strong><font color="#FF0000"><u>添加一级链接</u></font></strong></a><br>
      <br> 
      <table width="747" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
        <tr> 
          <td width="50%" height="30" align="center" bgcolor="#999999"><strong>连接名称</strong></td>
          <td height="30" align="center" bgcolor="#999999"><strong>操作选项</strong></td>
        </tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Aclass order by classtop"
rs.open sql,conn,3,3
%>
        <%
	do while not rs.eof
        if rs("classon")=0 then
%>
        <tr bgcolor="#E3E3E3" class="tdbg"> 
          <td width="233" height="22" bgcolor="#C0C0C0"><img src="plus.gif" width="15" height="15"><%=rs("class")%></td>
          <td align="right" bgcolor="#C0C0C0" style="padding-right:10"><a href="lianAddSmall.asp?id=<%=rs("id")%>"><font color="#FF0000">添加二级链接</font></a></td>
        </tr>
<%else%>
<tr bgcolor="#E3E3E3" class="tdbg"> 
          <td width="233" height="22" bgcolor="#C0C0C0"><img src="plus.gif" width="15" height="15"><%=rs("class")%></td>
          <td align="right" bgcolor="#C0C0C0" style="padding-right:10"> <a href="lianModifyBig.asp?id=<%=rs("ID")%>">修改</a> 
            | <a href="liandelBig.asp?id=<%=rs("ID")%>">删除</a> </td>
        </tr><%end if%>
      <%
  set rs2=server.createobject("adodb.recordset")
  sql2="select * from ANclass where nclasson=1 and classid="&rs("id")&" order by nclasstop"
  rs2.open sql2,conn,3,3
	  if not(rs2.bof and rs2.eof) then
		do while not rs2.eof
	%>
        <tr bgcolor="#EAEAEA" class="tdbg"> 
          <td width="233" height="22">&nbsp;&nbsp;<img src="nofollow.gif" width="15" height="15"><%=rs2("nclass")%></td>
          <td align="right" style="padding-right:10"><a href="lianModifySmall.asp?classid=<%=rs("id")%>&nclassid=<%=rs2("nclassid")%>">修改</a>
            | <a href="lianDelSmall.asp?nclassid=<%=rs2("nclassid")%>">删除</a> </td>
        </tr>
        <%
			rs2.movenext
		loop

	  end if
	  rs2.close
	  set rs2=nothing	
	  rs.movenext
	loop

%>
      </table>
      <br>
    </td>
  </tr>
</table>