www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/top_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">
</HEAD>
<BODY>
<table width="778" border=0 align=center cellpadding=5 cellspacing=1 bordercolorlight=#cecece bordercolordark=#ffffff bgcolor="#d3d3d3">
<tr>
<td height=25 bgcolor=#ececec colspan=9> <font color=#FF0000>★<B>网站列表</B>★</font></td></tr>
<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 classid=68 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>