www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_friendsitemana.asp
<!--#include file="const.asp"-->
<!--#include file="checkadmin.inc"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from FriendSite order by id desc"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<title>后台管理</title>
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="0" cellspacing="1" border="0" width="100%" class="border" align=center>
<form method="POST" action="admin_FriendSiteSave.asp?act=set">
<tr class="tdbg">
<td height="22" align="center" class="title" colspan="10"><b>管 理 友 情 站 点</b></td>
</tr>
<tr class="tdbg">
<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 class="tdbg">
<td width="5%">
<p align="center"><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 class="tdbg">
<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>
</tr>
</table>
</center>
</div>
<p> </p>
<%
set rs=nothing
conn.close
set conn=nothing%>