📄 admin_link.asp
字号:
<!--#include file = admin_chk.asp -->
<!--#include file = Include/NIncHeads.asp -->
<%
If Not ChkAdmin("FriendLink") Then
Call ArtErr("","")
End If
Dim Action
Action = Request("Action")
Select Case Action
Case "AddLink"
Call AddLink()
Case Else
Call Heads_link()
Call showmain()
Call AdminPageEnd()
End Select
call CloseConn()
Sub showmain()
%><head>
<title>友情链接</title>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type="text/javascript"></script>
</head>
<%
DELid=trim(request("DELid"))
if DELid<>"" then
conn.Execute "delete from [Link] where ID="&Clng(delid)
end if
if request("edit")="1" and request("id")<>"" then
sql = "select * from link where id="&request("ID")
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
eid=rs("id")
elinkname=rs("linkname")
eurl=rs("url")
elb=rs("lb")
elogo=rs("logo")
ejs=rs("js")
epic=rs("pic")
esh=rs("sh")
end if
rs.close: set rs=nothing
end if
if (not isNumeric(epic)) then
epic=0
end if
%><!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{
if (theForm.linkname.value == "")
{
alert("请在 网站名称 域中输入值。");
theForm.linkname.focus();
return (false);
}
if (theForm.linkname.value.length < 1)
{
alert("在 网站名称 域中，请至少输入 1 个字符。");
theForm.linkname.focus();
return (false);
}
if (theForm.linkname.value.length > 255)
{
alert("在 网站名称 域中，请最多输入 255 个字符。");
theForm.linkname.focus();
return (false);
}
if (theForm.url.value == "")
{
alert("请在 网站地址 域中输入值。");
theForm.url.focus();
return (false);
}
if (theForm.url.value.length < 10)
{
alert("在 网站地址 域中，请至少输入 10 个字符。");
theForm.url.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan -->
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<form method="POST" action="?Action=AddLink&id=<%=eid%>" onSubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<tr>
<td class="bg_tr" colspan="2" height="25" align="center"><b>添加友情链接</b></td>
</tr>
<tr>
<td width="98" align="center" class="tdbg">网站名称</td>
<td class="tdbg">
<!--webbot bot="Validation" s-display-name="网站名称" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="255" --><input type="text" name="linkname" size="31" <%
if request("edit")=1 then
response.write "value='"&elinkname&"'"
end if
%> maxlength="255"></td>
</tr>
<tr>
<td width="98" align="center" class="tdbg">网站地址</td>
<td class="tdbg">
<!--webbot bot="Validation" s-display-name="网站地址" b-value-required="TRUE" i-minimum-length="10" --><input type="text" name="url" size="42" <%
if request("edit")=1 then
response.write "value='"&eurl&"'"
else
response.write "value=http://"
end if
%>></td>
</tr>
<tr>
<td width="98" align="center" class="tdbg">网站分类</td>
<td class="tdbg">
<select size="1" name="lb">
<option value="">请选择</option>
<%
lbid=elb
if (not isNumeric(LBID)) then
lbid=0
end if
set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select * from [LINKLB] order by id asc",conn,1,1
while not rs2.eof
%>
<option <% if clng(lbid)=clng(rs2("id")) then Response.Write " selected "%> value="<%=rs2("ID")%>"><%=rs2("lb")%></option>
<%
rs2.movenext
wend
rs2.close
set rs2=nothing
%>
</select></td>
</tr>
<tr>
<td width="98" align="center" class="tdbg">网站LOGO</td>
<td class="tdbg">
<input type="text" name="logo" size="52" <%
if request("edit")=1 then
response.write "value='"&elogo&"'"
else
response.write "value="
end if
%>> 图片 宽:88 高:31</td>
</tr>
<tr>
<td width="98" align="center" class="tdbg">网站介绍</td>
<td class="tdbg">
<input type="text" name="js" size="52" <%
if request("edit")=1 then
response.write "value='"&ejs&"'"
else
response.write "value="
end if
%>></td>
</tr>
<tr>
<td width="98" align="center" class="tdbg">有无图片</td>
<td class="tdbg">
<input type="radio" value="1" <% if clng(epic)=1 then Response.Write " checked "%> name="PIC" id=pic1><label for=pic1>有LOGO</label>
<input type="radio" name="PIC" <% if clng(epic)=0 then Response.Write " checked "%> value="0" id=pic2><label for=pic2>没有LOGO</label></td>
</tr>
<tr>
<td width="98" align="center" class="tdbg">是否审核</td>
<td class="tdbg">
<input type="radio" name="SH" value="1" <% if esh="1" then Response.Write " checked "%> id=sh1><label for=sh1>已经审核</label>
<input type="radio" name="SH" value="0" <% if esh="0" then Response.Write " checked "%> id=sh2><label for=sh2>取消审核</label></td>
</tr>
<tr>
<td align="center" colspan="2" class="forumRow"><input type="submit" value="保存" name="B1"> <input type="reset" value="重置" name="B2"></td>
</tr></form>
</table>
<%
id=trim(request("id"))
ontop=trim(request("ontop"))
upd=trim(request("upd"))
addtime=now()
if ontop<>"" then
conn.Execute "update [link] set ontop="&ontop&" where id="&clng(id)
elseif upd<>"" then
conn.Execute "update [link] set upd='"&addtime&"' where id="&clng(upd)
end if
sql = "select * from link order by ontop desc , upd desc , id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td align="center" class="bg_tr" height="25"><b>LOGO</b></td>
<td align="center" class="bg_tr" height="25"><b>网站名称</b></td>
<td align="center" class="bg_tr" height="25"><b>分类</b></td>
<td align="center" class="bg_tr" height="25"><b>网站地址</b></td>
<td align="center" class="bg_tr" height="25"><b>操 作</b></td>
</tr>
<%
if rs.recordcount<>0 then
page=int(request.QueryString ("page"))
rs.PageSize=10
pagecount=rs.pagesize
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
for i=0 to pagecount
ontop=rs("ontop")
if ontop="" then ontop=3
if ontop="3" then
ontop=5
else
ontop=3
end if
%>
<tr height="25" onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg">
<td width="103" align=center style="table-layout:fixed;word-break:break-all" height="25">
<%
if trim(rs("logo"))<>"" then
response.write "<a href="&rs("url")&" target=_blank title='"&rs("js")&"'><img border=0 width=88 height=31 src=" & rs("logo") & "></a>"
end if
%></td>
<td width="148" height="25" align=center><a href="<%=rs("url")%>" target=_blank><%=rs("linkname")%></a></td>
<td align=center height="25"><%if rs("ontop")="5" then Response.Write "<b><font color=blue>[顶]</font></b>"%>
<%
set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select * from [LINKLB] where [ID]="&rs("lb")&" order by id desc",conn,1,1
if rs2.recordcount<>0 then
Response.Write rs2("lb")
end if
rs2.close
set rs2=nothing
%>
</td>
<td height="25"><a href="<%=rs("url")%>" target=_blank title='<%=rs("url")%>'><%=titleb(rs("url"),50)%></a></td>
<td height="25">
<%
if rs("sh")="1" then
ssss="已经审核"
else
ssss="<font color=blue>没有审核</font>"
end if
%>
<p align="center"><a href="admin_link.asp?id=<%=rs("id")%>&edit=1">修改(<%=SSSS%>)</a> <a href='admin_link.asp?ontop=<%=ontop%>&id=<%=rs("id")%>'>固顶</a> <a href=admin_link.asp?upd=<%=rs("id")%>>提升</a>
<a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="?DELid=<%=rs("id")%>">删除</a></td> </tr>
<%
Response.flush
rs.movenext
if rs.eof then exit for
next
end if
%>
<tr><td colspan="5" align="center" height="30" class="forumRow">
<%if rs.recordcount<>0 then
if page>1 then
response.write "<a href="&request.servervariables("URL")&"?page=1>首页</a> "
response.write "<a href="&request.servervariables("URL")&"?page="&page-1&">上一页</a> "
end if
if page<rs.pagecount then
response.write "<a href="&request.servervariables("URL")&"?page="&page+1&">下一页</a> "
response.write "<a href="&request.servervariables("URL")&"?page="&rs.pagecount&">尾页</a> "
end if
response.write "共"&rs.recordcount&"条 每页显示"&pagecount&"条 共"&rs.pagecount&"页 "
%>
<script language="JavaScript">
<!--
function FP_jumpMenu(el,frm,sel) {//v1.0
var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
}
// -->
</script>
<select size="1" onChange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px">
<%for i=1 to rs.pagecount%>
<option value="<%=request.servervariables("URL")%>?page=<%=i%>" <%if page=i then response.write "selected"%>>第<%=i%>页</option>
<%next%>
</select>
<%end if%>
</td></tr></table>
<%
End Sub
Sub AddLink()
lb=trim(request("lb"))
sh=trim(request("sh"))
if (not isNumeric(LB)) then
Call ArtErr("<li>请选择正确的分类。</li>","1")
end if
if sh="" then sh=1
if request("linkname")<>"" and request("url")<>"" then
if request("id")="" then
sql = "select top 1 * from link"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
rs.addnew
else
sql = "select * from link where id="&request("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
end if
rs("linkname")=request("linkname")
rs("url")=trim(request("url"))
rs("logo")=trim(request("logo"))
rs("js")=trim(request("js"))
rs("PIC")=trim(request("PIC"))
rs("lb")=LB
rs("sh")=sh
rs.update
rs.close: set rs=nothing
Call ArtErr("<li>友情链接已保存成功！</li>","2")
end if
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -