📄 link.asp

📁 使用说明： --- --- --- --- --- --- --- --- --- --- --- --- ---- 1：这是本人最早用过的
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
if Request("post")="add" then
if Request("name")="" or len(Request("name"))>50 then Error = "网站名称长度不能小于0字节大于50字节!"
if Request("nameurl")="" or len(Request("nameurl"))>255 then Error = "URL长度不能小于0字节大于255字节!"
if len(Request("img"))>255 then Error = "图片地址长度不能大于255字节!"
if Error <>"" then
Response.Write "<script>alert('"&Error&"自助链接失败！点击关闭!');close();</script>"
Else
set rs=server.createobject("adodb.recordset")
rs.open "select * from link ",conn,1,3
rs.addnew
rs("name")=HTMLEncode(Request("name"))
rs("nameurl")=HTMLEncode(request("nameurl"))
rs("img")=HTMLEncode(request("img"))
rs("openurl")=false
rs.update
rs.close
set rs = nothing
Response.Write "<script>alert('提交成功,正等管理员开通！点击关闭!');close();</script>"
End if
End if
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接-<%=title_name%></title>
<style>
<!--
body, table, tr, td, p, a, html, select, option, input        { font-family: 宋体; font-size: 9pt; text-decoration: none; color: #000000; line-height:150% }
A:hover { FONT-SIZE: 9pt; COLOR: #FF0000; FONT-FAMILY: 宋体; TEXT-DECORATION: none }
A.mecl { FONT-SIZE: 9pt; COLOR: #FFFFFF; FONT-FAMILY: 宋体; TEXT-DECORATION: none }
a:visited.mecl { FONT-SIZE: 9pt; COLOR: #FFFFFF; FONT-FAMILY: 宋体; TOP: 1px; TEXT-DECORATION: none }
a:hover.mecl { FONT-SIZE: 9pt; COLOR: #FFFF00; FONT-FAMILY: 宋体; POSITION: relative; TOP: 1px; TEXT-DECORATION: none }
-->
</style>
<Script Language="JavaScript">
function AddFav()
{
	window.external.addFavorite(window.document.location.href,document.title);
}
</Script>
</head>

<body topmargin="0" leftmargin="0" bgcolor="#CCCCCC">

<div align="center">
  <center>
<!--#include file="top.asp"-->
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="778" bgcolor="#FFFFFF">

  <tr>
    <td width="100%" style="padding-left: 15; padding-right: 15; padding-top: 10; padding-bottom: 10">
    　<p>
    <%
            set rsl = Server.CreateObject("adodb.recordset")
            rsl.open "select * from link where openurl=true order by id desc ",conn,1,3
            if not rsl.eof then
            for cc = 1 to rsl.recordcount
            %>
            <a href="<%=rsl("nameurl")%>"><font size="1" color="#808080">●</font><%
            if IsNull(rsl("img")) or rsl("img")="" then
            Response.write rsl("name")
            Else
            Response.write ("<img border='0' src="&rsl("img")&" >")
            End if
            %></a>    
            <%
            rsl.movenext
            if rsl.eof then exit for 
            next
            End if
            rsl.close
            set rsl = nothing
            %>
    </p>
    <p>　</td>
  </tr>
  <tr>
    <td width="100%" height="15" style="padding-left: 5; padding-right: 5">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
      <tr>
        <td width="100%" bgcolor="#F0F0F0" height="25">
        <p align="center">添加新链接<a name="add"></a></td>
      </tr>
      <tr>
        <td width="100%">
        <form method="POST" action="?post=add">
          <p align="center" style="margin-top: 5; margin-bottom: 5">网站名称:<input type="text" name="name" size="40"></p>
          <p align="center" style="margin-top: 5; margin-bottom: 5">网站地址:<input type="text" name="nameurl" size="40"></p>
          <p align="center" style="margin-top: 5; margin-bottom: 5">图片地址:<input type="text" name="img" size="40"></p>
          <p align="center" style="margin-top: 5; margin-bottom: 5">图片地址说明:想不显示图片可以为空!</p>
          <p align="center" style="margin-top: 5; margin-bottom: 5">
          <input type="submit" value="提交" name="B1">&nbsp; <input type="reset" value="重置" name="B2"></p>
        </form>
          <p align="center" style="margin-top: 5; margin-bottom: 5"><a href=http://www.9y.com.cn target="_blank" alt=9亿网><img src=http://www.9y.com.cn/img/logo.gif></a></p>
        <p align="center" style="margin-top: 5; margin-bottom: 5">请在你的网站友情链接里做好本站链接，如果你的网站没有友情链接，请在首页适当位置加入本站链接代码我们验证后即通过</p>
<p align="center" style="margin-top: 5; margin-bottom: 5"> <textarea name="textarea" cols="50" rows="3"><a href=http://www.9y.com.cn target="_blank" alt=9亿网><img src=http://www.9y.com.cn/img/logo.gif></a></textarea></p>     
</td>
      </tr>
    </table>
    </td>
  </tr>
      <tr align=center>
        <td width="100%">
<script language="JavaScript" src="http://www.rd18.net/link/rd18link_28_1.asp?oid=2210&bg=F8F8FF"></script>
        </td>
      </tr>
  <tr>
    <td width="100%" height="15"><hr noshade color="#C0C0C0" size="1"></td>
  </tr>

</table>
<!--#include file="foot.asp"-->
  </center>
</div>

</body>

</html>
⌨️ 快捷键说明

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