⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_link.asp

📁 强大的后台文章编辑器的功能
💻 ASP
字号:
🔍 
<%
if session("admin__user")="" then
  Response.Redirect "login.asp?id=8"
end if
%>
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
<STYLE type="text/css">
<!--
a:link       {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited    {text-decoration: none; color: #000000 }
A:hover      {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body         {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD           {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p            {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input        {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body         {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select       {FONT-SIZE: 9PT;}
option       {FONT-SIZE: 9pt;}
textarea     {FONT-SIZE: 9pt;}
-->
</STYLE>
</head>

<body>

<div align="center">
	<table border="0" width="600" id="table1">
		<tr>
			<td>　</td>
		</tr>
		<tr>
			<td>
<%
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
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 --><form method="POST" action="admin_link_add_save.asp<%if request("edit")="1" then response.write "?id="&rs("id")%>" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
				<table border="1" width="100%" id="table2" cellspacing="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#C0C0C0">
					<tr>
						<td align="left" background="images/topBar_bg.gif" colspan="2">&nbsp;<b>添加/修改友情链接
						　　　　　　　　　　<a href="admin_link_code.asp">友情链接调用</a></b></td>
					</tr>
					<tr>
						<td width="98" align="center">网站名称</td>
						<td>
						&nbsp;<!--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='"&rs("linkname")&"'"
						end if
						%> maxlength="255"></td>
					</tr>
					<tr>
						<td width="98" align="center">网站地址</td>
						<td>
						&nbsp;<!--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="&rs("url")
						 else
						  response.write "value=http://" 
						end if
						%>></td>
					</tr>
					<tr>
						<td width="98" align="center">网站LOGO</td>
						<td>
						&nbsp;<input type="text" name="logo" size="52" <%
						if request("edit")=1 then
						  response.write "value="&rs("logo")
						 else
						  response.write "value=" 
						end if
						%>> 图片　宽:88　高:31</td>
					</tr>
					<tr>
						<td align="center" colspan="2"><input type="submit" value="保存" name="B1">　　　<input type="reset" value="重置" name="B2"></td>
					</tr>
				</table>
			</form>
			</td>
		</tr>
	</table>
</div>
<%
  sql = "select * from link order by id desc"
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,1
  
%>
<div align="center">
	<table border="1" width="600" id="table3" cellpadding="3" style="border-collapse: collapse" cellspacing="0">
		<tr>
			<td width="103" align="center" background="images/topBar_bg.gif"><b>LOGO</b></td>
			<td width="148" align="center" background="images/topBar_bg.gif"><b>网站名称</b></td>
			<td width="222" align="center" background="images/topBar_bg.gif"><b>网站地址</b></td>
			<td width="97" align="center" background="images/topBar_bg.gif"><b>操　作</b></td>
		</tr>
<%
if rs.recordcount<>0 then

page=int(request.QueryString ("page"))
rs.PageSize=20
pagecount=rs.pagesize
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
   for i=0 to pagecount
%>
		<tr>
			<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("linkname")&"'><img border=0 width=88 hieght=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 width="222" style="table-layout:fixed;word-break:break-all" height="25"><a href="<%=rs("url")%>" target=_blank title='<%=rs("url")%>'><%=titleb(rs("url"),33)%></a></td>
			<td width="97" height="25">
			<p align="center"><a href="admin_link.asp?id=<%=rs("id")%>&edit=1">修改</a>　<a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_link_del.asp?id=<%=rs("id")%>">删除</a></td>
		</tr>
<%
 rs.movenext
 if rs.eof then exit for
 next

end if
%>
	</table>
</div><br>
<center>
<%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%>
</center>
</body>
<%
conn.close
set conn=nothing
%>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -