www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/links_edit.asp
<!--#include file="mdb.asp"--> <!--#include file="aq.asp"--> <% if session("adminlogin")<>sessionvar then Response.Write("<script language=javascript>alert('你尚未登录,或者超时了!请重新登录');this.location.href='index.asp';</script>") Response.End End if %> <HTML> <HEAD> <TITLE>友情链接管理</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <LINK REL="stylesheet" HREF="../css/style.css" TYPE="text/css"> <link href="img/css_body.css" rel="stylesheet" type="text/css" /> </HEAD> <BODY> <table width="778" border=0 align=center cellpadding=5 cellspacing=1 bordercolorlight=#cecece bordercolordark=#ffffff bgcolor="#D3D3D3"> <tr> <td colspan="8" class="td_title" align="left"> 友情链接管理</td> <tr> <td colspan=9 align=middle bgcolor="#FFFFFF"> <% dim pn,delete,tj,btj,lj,blj,verity,noverity pn=request("pn") delete=request("delete") tj=request("tj") btj=request("btj") lj=request("lj") blj=request("blj") verity=request("verity") noverity=request("noverity") if delete<>"" and session("lastdeleted")<>delete then conn.execute "delete from detail where id="&delete response.write "<big><big><font color='red'>已删除一条编号为"&delete&"的网站记录!</font></big></big>" session("lastdeleted")=delete end if if tj<>"" and session("lastverityed")<>tj then conn.execute "update detail set topid=1 where id="&tj response.write "<big><big><font color='red'>已推荐一条编号为"&tj&"的网站记录!</font></big></big>" session("lastverityed")=tj end if if btj<>"" and session("lastverityed")<>btj then conn.execute "update detail set topid=0 where id="&btj response.write "<big><big><font color='red'>取消推荐一条编号为"&btj&"的网站记录!</font></big></big>" session("lastverityed")=btj end if if lj<>"" and session("lastverityed")<>lj then conn.execute "update detail set links=1 where id="&lj response.write "<big><big><font color='red'>作为连接一条编号为"&lj&"的网站记录!</font></big></big>" session("lastverityed")=lj end if if blj<>"" and session("lastverityed")<>blj then conn.execute "update detail set links=0 where id="&blj response.write "<big><big><font color='red'>取消连接一条编号为"&blj&"的网站记录!</font></big></big>" session("lastverityed")=blj end if if noverity<>"" and session("lastverityed")<>noverity then conn.execute "update detail set verity=0 where id="&noverity response.write "<big><big><font color='red'>取消审核通过一条编号为"&noverity&"的网站记录!</font></big></big>" session("lastverityed")=noverity end if %> <tr> <td height=25 align=center bgcolor="#FFFF00">编号</td> <td align=center bgcolor="#FFFF00">网站名称</td> <td align=center bgcolor="#FFFF00">所属分类和网站url</td> <td align=center bgcolor="#FFFF00">总入/总出</td> <td align=center bgcolor="#FFFF00">网址推荐</td> <td align=center bgcolor="#FFFF00">友情连接</td> <td align=center bgcolor="#FFFF00">取消审核</td> <td align=center bgcolor="#FFFF00">编辑</td> <td align=center bgcolor="#FFFF00">删除</td> </tr> <% if pn="" then pn=1 set r=server.createobject("adodb.recordset") r.open "select * from detail where verity=1 and links=1 order by id",conn,1,3 r.pagesize=50 r.absolutepage=pn rowcount=r.pagesize do while not r.eof and rowcount>0 set rr=server.createobject("adodb.recordset") rr.open "select * from feilei where classid="&r("classid"),conn,1,3 if rr.eof then classname="" else classname=rr("classname") end if response.write "<td align=center height=20 bgcolor=#FFFFFF nowrap>"&r("id")&"</td>" response.write "<td VALIGN='TOP' bgcolor=#FFFFFF><a href='../url.asp?id="&r("id")&"' target='_blank'><FONT COLOR=#0000ff>"&r("title")&"</FONT></A><BR>"&r("yl_time")&"</td>" response.write "<td bgcolor=#FFFFFF>"&classname&"<BR><a href='../url.asp?id="&r("id")&"' target='_blank'>"&r("url")&"</A></td>" response.write "<td align=center bgcolor=#FFFFFF>"&r("yl_in")&"/"&r("out")&"</td>" if r("topid")>0 then response.write "<td align=center bgcolor=#FFFFFF><a href='"&request.servervariables("scrit_name")&"?pn="&pn&"&btj="&r("id")&"'><font color='red'>取消推荐</font></a></td>" else response.write "<td align=center bgcolor=#FFFFFF><a href='"&request.servervariables("script_name")&"?pn="&pn&"&tj="&r("id")&"'>推荐网址</a></td>" end if if r("links")>0 then response.write "<td align=center bgcolor=#FFFFFF><a href='"&request.servervariables("scrit_name")&"?pn="&pn&"&blj="&r("id")&"'><font color='red'>取消连接</font></a></td>" else response.write "<td align=center bgcolor=#FFFFFF><a href='"&request.servervariables("script_name")&"?pn="&pn&"&lj="&r("id")&"'>作为连接</a></td>" end if response.write "<td align=center bgcolor=#FFFFFF><a href='"&request.servervariables("scrit_name")&"?pn="&pn&"&noverity="&r("id")&"'>取消审核</a></td>" response.write "<td align=center bgcolor=#FFFFFF><a href='wz_edit.asp?id="&r("id")&"'>编辑</a></td>" response.write "<td align=center bgcolor=#FFFFFF><a href='"&request.servervariables("script_name")&"?pn="&pn&"&delete="&r("id")&"'>删除</a></td></tr>" rr.close set rr=nothing rowcount=rowcount-1 r.movenext loop %> <tr> <td height=25 bgcolor=#ececec colspan=9> <% ppage=pn-1 npage=pn+1 totalpage=r.pagecount if cint(totalpage)>cint(pn) then %> <a href='<%=request.servervariables("script_name")%>?pn=1'>首页</a> <a href='<%=request.servervariables("script_name")%>?pn=<%=ppage%>'>上一页</a> <a href='<%=request.servervariables("script_name")%>?pn=<%=npage%>'>下一页</a> <a href='<%=request.servervariables("script_name")%>?pn=<%=totalpage%>'>尾页</a> 每页显示<%=r.pagesize%>个网站,当前第<%=pn%>页,总共<%=totalpage%>页 <% else if pn=1 then %> <a href='<%=request.servervariables("script_name")%>?pn=1'>首页</a> <a href='<%=request.servervariables("script_name")%>?pn=<%=npage%>'>下一页</a> <a href='<%=request.servervariables("script_name")%>?pn=<%=totalpage%>'>尾页</a> 每页显示<%=r.pagesize%>个网站,当前第<%=pn%>页,总共<%=totalpage%>页 <% else %> <a href='<%=request.servervariables("script_name")%>?pn=1'>首页</a> <a href='<%=request.servervariables("script_name")%>?pn=<%=ppage%>'>上一页</a> 下一页 <a href='<%=request.servervariables("script_name")%>?pn=<%=totalpage%>'>尾页</a> 每页显示<%=r.pagesize%>个网站,当前第<%=pn%>页,总共<%=totalpage%>页 <% end if end if %> </td></tr> </table> </BODY> </HTML>