admin_friendsitemana.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 FriendSite 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="114">
  <tr>
    <td valign=top width="5" background="images/line_bg02.gif" height="127">
    <img border="0" src="images/line_bg02.gif"></td>
    <td valign=top width="175" height="127"><!--#include file="admin_left.asp"--></td>
    <td valign=top width="5" background="images/line_bg02.gif" height="127">　</td>
    <td align=center valign=top width="574" height="127">
      <table border="1" width="100%" cellspacing="0" cellpadding="0" class="TableLine" style="border-collapse: collapse" bordercolor="#008080">
        <form method="POST" action="admin_FriendSiteSave.asp?act=set">
          <tr>
            <td width="100%" height="20" colspan=10 bgcolor="#234156" align=center><b>管 理 友 情 站 点</b></td>
          </tr>
          <tr>
            <td width="5%" align="center">选择</td>
            <td width="5%" align="center">ID</td>
            <td width="10%" align="center">站名</td>
            <td width="10%" align="center">地址</td>
            <td width="10%" align="center">简介</td>
            <td width="20%" align="center">网站Logo</td>
            <td width="10%" align="center">站长</td>
            <td width="5%" align="center">推荐</td>
            <td width="5%" align="center">修改</td>
            <td width="5%" align="center">删除</td>
          </tr>
<%
do while not rs.eof
%>
          <tr>
            <td width="5%"><input type="checkbox" name="checked" value="<%=rs("ID")%>"<%if rs("IsOK")=true then%> checked<%end if%>></td>
            <td width="5%" align="center"><%=rs("ID")%>　</td>
            <td width="10%" align="center"><%=rs("SiteName")%>　</td>
            <td width="10%" align=center><a href="<%=rs("SiteUrl")%>" target="_blank" title="<%=rs("SiteUrl")%>">网站地址</a></td>
            <td width="10%" align=center><a style="cursor:hand" title="<%if rs("SiteIntro")="" or isnull(rs("SiteIntro")) then%>无<%else%><%=rs("SiteIntro")%><%end if%>">网站简介</td>
            <td width="20%" align=center><%if not isNull(rs("LogoUrl")) then%><img src="<%=rs("LogoUrl")%>" width=88 height=31 border=0 alt="<%=rs("LogoUrl")%>"><%end if%></td>
            <td width="10%" align="center"><%=rs("SiteAdmin")%>　</td>
            <td width="5%" align="center"><input onclick="javascript:window.open('admin_FriendSiteSave.asp?act=SetIsGood&id=<%=rs("ID")%>','_self','')" type="button" value="<%if rs("IsGood")=true then%>取消<%else%>推荐<%end if%>" name="button1"></td>
            <td width="5%" align="center"><input onclick="javascript:window.open('admin_FriendSiteModify.asp?id=<%=rs("ID")%>','_self','')" type="button" value="修改" name="button2"></td>
            <td width="5%" align="center"><input onclick="javascript:window.open('admin_FriendSiteSave.asp?act=del&id=<%=rs("ID")%>','_self','')" type="button" value="删除" name="button3"></td>
          </tr>
<%
rs.movenext
loop
rs.close
%>
          <tr>
            <td colspan=10 align=center><input type="submit" value="选定" name="submit"> <input onclick="javascript:window.open('admin_FriendSiteAdd.asp','_self','')" type="button" value="添加新网站" name="button"></td>
          </tr>
        </form>
      </table>
    </td>
    <td align=center valign=top width="5" height="127" background="images/line_bg02.gif">
      <img border="0" src="images/line_bg02.gif"></td>
  </tr>
  <tr>
    <td valign=top width="764" background="images/line_bg01.gif" height="1" colspan="5">
    <img border="0" src="images/line_bg01.gif"></td>
    </tr>
</table>
  </center>
</div>
<p>　</p>

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