admin_friendsitemana.asp

OA最新破解2008版 全新 破解 希望大家用着舒服

<%@ codepage ="936" %>
<%
if instr(session("flag"),"51")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<LINK rel="stylesheet" type="text/css" href="../style.css">
<!--#include file="conn.asp"-->
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>

<td align=center valign=top>
<%

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 border="0" width="100%" cellspacing="0" cellpadding="0" Class="TableLine">
<form method="POST" action="admin_FriendSiteSave.asp?act=set">
<tr>
<td width="100%" height="20" colspan=10 align=center>管理友情站点</td>
</tr>
<tr>
<td width="5%" align="center">选择</td>
<td width="5%" align="center">ID</td>
<td width="17%" align="center">站名</td>
<td width="10%" align="center">地址</td>
<td width="10%" align="center">简介</td>
<td width="13%" 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%" 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="17%" 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="13%" 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 class=submit 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 class=submit onclick="javascript:window.open('admin_FriendSiteModify.asp?id=<%=rs("ID")%>','_self','')" type="button" value="修改" name="button2"></td>
<td width="5%" align="center"><input class=submit onclick="javascript:window.open('admin_FriendSiteSave.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 align=center><input class=submit type="submit" value="选定" name="submit"> <input class=submit onclick="javascript:window.open('admin_FriendSiteAdd.asp','_self','')" type="button" value="添加新网站" name="button"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>

<%set rs=nothing%>