📄 admin_links.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/UserPs.Asp"-->
<!--#include file="../inc/pwwd.asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
response.write" - Powered By FYPost - 枫叶贴吧"
response.End()
Exit For
End If
Next
'/*不让搜索引擎收录*/
Call Admin_Admin()
action = ReplaceBadWord(Request.QueryString("action"))
Select Case action
Case ""
Call admin_index()
Case "dellink"
Call dellink()
Case "relink"
Call relink()
Case "admin_link"
Call admin_link()
End Select
Sub admin_index()
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心—贴吧管理</TITLE>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
td{
background:#F1F3F5;
}
-->
</style></head>
<body>
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" colspan="5"><strong class="size">链接修改管理</strong></td>
</tr>
<tr class="table_3">
<td class="bj" colspan="5">链接列表</td>
</tr>
<tr>
<td height="25" class="table_3" width="14%">站点名称</td>
<td width="38%">地址</td>
<td width="16%">类型</td>
<td width="15%">添加日期</td>
<td width="17%">操作</td>
</tr>
<%
set rs= server.createobject("adodb.recordset")
sql= "select * from [link] where [linkname]<>'枫叶在线' order by [id] asc "
rs.open sql,conn,1
If not rs.eof and not rs.bof Then
do while not rs.eof
%>
<tr>
<td class="table_3" width="14%"><%=rs("linkname")%></td>
<td width="38%"><%=rs("linkurl")%></td>
<td width="16%">
<%
If rs("linkimg") = 0 Then
response.Write("文本链接")
Else
response.Write("LOGO链接")
End If
%>
</td>
<td width="15%"><%=rs("linktime")%></td>
<td width="17%">[<a href="admin_links.Asp?action=relink&id=<%=rs("id")%>">编辑</a>] [<a href="admin_links.Asp?action=dellink&id=<%=rs("id")%>">删除</a>]</td>
</tr>
<%
rs.movenext
Loop
Else
response.Write("<tr><td colspan=""5"" height=""25""><div align=""center"">现在没有连接</div></td></tr>")
End If
%>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub dellink()
id=request.QueryString("id")
set rs= server.createobject("adodb.recordset")
sql="delete from [link] where [id]="&id
rs.Open sql,conn,3
%>
<script language="javascript">
alert("链接删除成功！")
document.location="admin_links.asp"
</script>
<%
End Sub
Sub relink()
id = request.QueryString("id")
set rs= server.createobject("adodb.recordset")
sql= "select * from [link] where [id]="&id
rs.open sql,conn,1
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心—贴吧管理</TITLE>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
td{
background:#F1F3F5;
}
-->
</style></head>
<body>
<br>
<form action="admin_links.asp?action=admin_link&id=<%=id%>" method="post">
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" colspan="2"><strong class="size">链接添加管理</strong></td>
</tr>
<tr class="table_3">
<td class="bj" colspan="2">添加链接</td>
</tr>
<tr>
<td height="25" class="table_3" width="23%">链接类型：</td>
<td width="76%"><%
If rs("linkimg") = 0 Then
%>
<INPUT name="logo" type="radio" value="0" checked>文本链接 <INPUT name="logo" type="radio" value="1"> LOGO链接
<%
Else
%>
<INPUT name="logo" type="radio" value="0" >文本链接 <INPUT name="logo" type="radio" value="1" checked> LOGO链接
<%
End If
%></td>
</tr>
<tr>
<td height="25" class="table_3" width="23%">站点名称：</td>
<td width="76%"><input name="linkname" type="text" class="input" id="linkname" style="width:145px;" value="<%=rs("linkname")%>" ></td>
</tr>
<tr>
<td height="25" class="table_3" width="23%">站点URL：</td>
<td width="76%"><input name="linkurl" type="text" class="input" id="linkurl" style="width:210px;" value="<%=rs("linkurl")%>"></td></tr>
<tr>
<td height="25" class="table_3" width="23%">站点LOGO：</td>
<td width="76%"><input name="linklogo" type="text" class="input" id="linklogo" style="width:210px;" value="<%=rs("linklogo")%>" >
(如果是文本链接不需要填写)</td>
</tr>
<tr>
<td height="25" class="bj" width="23%"> </td>
<td class="bj" height="25" width="76%"><input name="submit" type="submit" value="修改" class="buttion"> <input name="submit" type="reset" value="撤消" class="buttion"></td>
</tr>
</table>
</form>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_link()
Id = request.QueryString("id")
logo=request.form("logo")
linkname=request.form("linkname")
linkurl=request.form("linkurl")
linklogo=request.form("linklogo")
if logo = "0" then
set rs= server.createobject("adodb.recordset")
sql= "update [link] set [linkname]='"&linkname&"',[linkurl]='"&linkurl&"' where [id]="&id
rs.Open sql,conn
%>
<script language="javascript">
alert("友情链接修改成功！")
document.location="admin_links.asp"
</script>
<%
Else
set rs= server.createobject("adodb.recordset")
sql= "update [link] set [linkname]='"&linkname&"',[linkurl]='"&linkurl&"',[linklogo]='"&linklogo&"',[linkimg]='1' where [id]="&id
rs.Open sql,conn
%>
<script language="javascript">
alert("友情链接修改成功！")
document.location="admin_links.asp"
</script>
<%
End If
End Sub
Call Fywencl()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -