www.gusucode.com > 流光音乐建站系统 1.1码程序 > admin/Admin_LinkSite.asp
<!--#include file="Const.Asp"--> <%CheckAdmin3%> <%PageName="Admin_LinkSite"%> <!--#include file="Top.Asp"--> <link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css"> <table border="0" width="100%" cellspacing="1" cellpadding="1"> <tr> <td align=center valign=top> <% '===========================版权信息=============================== ' 流光音乐系统 1.0 ' Homepage : http://www.ad968.cn ' E-Mail : 77280511@qq.com ' QQ : 77280511 '请保留版权信息,以便我们更好的为您服务 '================================================================== set rs=server.createobject("adodb.recordset") sql="select * from FriendSite order by id desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'>暂时没有友情站点</p>" else %> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border"> <form method="POST" action="Admin_LinkSite_Err.asp?act=set"> <tr class="title"> <td width="100%" height="22" colspan=10 align=center>管 理 友 情 站 点</td> </tr> <tr> <td width="5%" class=tdbg align="center">选择</td> <td width="5%" class=tdbg align="center">ID</td> <td width="10%" class=tdbg align="center">站名</td> <td width="10%" class=tdbg align="center">地址</td> <td width="10%" class=tdbg align="center">简介</td> <td width="20%" class=tdbg align="center">网站Logo</td> <td width="10%" class=tdbg align="center">站长</td> <td width="5%" class=tdbg align="center">推荐</td> <td width="5%" class=tdbg align="center">修改</td> <td width="5%" class=tdbg align="center">删除</td> </tr> <% do while not rs.eof %> <tr> <td class=tdbg width="5%"><input type="checkbox" name="checked" value="<%=rs("ID")%>"<%if rs("IsOK")=true then%> checked<%end if%>></td> <td class=tdbg width="5%" align="center"><%=rs("ID")%></td> <td class=tdbg width="10%" align="center"><%=rs("SiteName")%></td> <td class=tdbg width="10%" align=center><a href="<%=rs("SiteUrl")%>" target="_blank" title="<%=rs("SiteUrl")%>">网站地址</a></td> <td class=tdbg width="10%" align=center><a style="cursor:hand" title="<%if rs("SiteIntro")="" or isnull(rs("SiteIntro")) then%>无<%else%><%=rs("SiteIntro")%><%end if%>">网站简介</td> <td class=tdbg 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 class=tdbg width="10%" align="center"><%=rs("SiteAdmin")%></td> <td class=tdbg width="5%" align="center"><input class=input onClick="javascript:window.open('Admin_LinkSite_Err.asp?act=SetIsGood&id=<%=rs("ID")%>','_self','')" type="button" value="<%if rs("IsGood")=true then%>撤消<%else%>推荐<%end if%>" name="button1"></td> <td class=tdbg width="5%" align="center"><input class=input onClick="javascript:window.open('Admin_LinkSite_Edit.asp?id=<%=rs("ID")%>','_self','')" type="button" value="修改" name="button2"></td> <td class=tdbg width="5%" align="center"><input class=input onClick="javascript:window.open('Admin_LinkSite_Err.asp?act=del&id=<%=rs("ID")%>','_self','')" type="button" value="删除" name="button3"></td> </tr> <% rs.movenext loop end if rs.Close %> <tr> <td colspan=10 class=tdbg height=25 align=center><input class=input type="submit" value="选定并生成友情连接" name="submit"> <input class=input onClick="javascript:window.open('Admin_LinkSite_Action_Add.asp','_self','')" type="button" value="添加新网站" name="button"></td> </tr> </form> </table> </td> </tr> </table> <br> <% set rs=nothing conn.close set conn=nothing%> </body> </html>