ARP联盟图文中心下载中心手机频道最近更新软件最近更新文章网络热点
您当前的位置→图文中心网站专题网站建设解决新云CMS友情链接里的垃圾链接问题
站内搜索:

解决新云CMS友情链接里的垃圾链接问题


2009/3/21  编辑:佚名 来源:本站整理 

前阶段用新云做的网站友情链接总是莫名其妙的多了好多垃圾链接,今天清除了明天还有,有的时候都好几百条,怎么办?下面是加入验证码的

第一步: 1、打开模板管理, 2、打开公共模板管理, 3、打开友情连接页面模板这一行,4修改模板基本设置,5、修改友情连接申请页面表单代码

<br><table width="96%" border=0 align=center cellpadding=3 cellspacing=1 style="BACKGROUND-COLOR: #E1E1E1;">
<tr style="COLOR: #FFFFFF;HEIGHT: 25;" align="center">
<td colspan=2 background="../skin/default/bluebg.gif"><strong>申请友情连接</strong></td>
</tr>
<form name=myform method=post action="">
<input type=hidden name="action" value='save'>
<tr bgcolor=#FFFFFF>
<td width="30%" align=center><strong>网站名称(<font color=red>*</font>):</strong></td>
<td width="70%"><input type=text name=LinkName size=20 value=''></td>
</tr>
<tr bgcolor=#FFFFFF>
<td align=center><strong>网站(<font color=red>*</font>):</strong></td>
<td><input type=text name=LinkUrl size=45 value='http://'>;</td>
</tr>
<tr bgcolor=#FFFFFF>
<td align=center><strong>LOGO地址(<font color=red>*</font>):</strong></td>
<td><input type=text name=LogoUrl size=45 value='http://'>;</td>
</tr>
<tr bgcolor=#FFFFFF>
<td align=center><strong>网站简介(<font color=red>*</font>):</strong></td>
<td><textarea name=Readme rows=3 cols=45></textarea></tr>
<tr bgcolor=#FFFFFF>
<td align=center><strong>管理密码(<font color=red>*</font>):</strong></td>
<td><input type=password name=password1 size=20></td>
</tr>
<tr bgcolor=#FFFFFF>
<td align=center><strong>确定管理密码(<font color=red>*</font>):</strong></td>
<td><input type=password name=password2 size=20></td>
</tr>
<tr bgcolor=#FFFFFF><td align=center><strong>连接类型(<font color=red>*</font>):</strong></td>
<td><input type=radio name=isLogo value='0' checked>文字连接   
<input type=radio name=isLogo value='1'>LOGO连接</td>
</tr>
<tr bgcolor=#FFFFFF>
<td align=center><strong>验证码(<font color=red>*</font>):</strong></td>
<td class=Usertablerow1><input name="verifycode" type="text" size="10" maxlength="4" value=""> 请在验证码框输入 <img src="../inc/getcode.asp" alt="验证码,看不清楚?请点击刷新验证码" height="10" style="cursor : pointer;" onClick="this.src='../inc/getcode.asp'" /></td>
</tr>

<tr align=center bgcolor=#FFFFFF>
<td><strong>确定申请:</strong></td>
<td><input type=submit class=Button value='申请友情连接'></td>
</tr>
</form>
</table><br>

第二步: 修改Link/addlink.asp的文件里面加入以下红的代码

<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/classmenu.asp"-->
<%
Dim Rs, SQL, FoundErr,ErrMsg
Dim isLock,HtmlContent,ListContent
FoundErr = False

Newasp.PreventInfuse

Newasp.LoadTemplates 9999, 6, 0

HtmlContent = Newasp.HtmlContent
HtmlContent = Replace(HtmlContent,"/", Newasp.InstallDir)
HtmlContent = Replace(HtmlContent, "1", 0)
HtmlContent = Replace(HtmlContent,"{$PageTitle}","申请友情连接")

isLock = Newasp.ChkNumeric(Newasp.HtmlSetting(3)) '设置申请连接默认状态。0=正常显示,1=锁定

HtmlContent = ReadClassMenu(HtmlContent)
HtmlContent = ReadClassMenubar(HtmlContent)
ListContent = Newasp.CutFixContent(HtmlContent, "<!--ListBegin", "ListEnd-->", 1)
HtmlContent = Replace(HtmlContent, ListContent, Newasp.HtmlSetting(5))

If Newasp.CheckStr(LCase(Request.Form("action"))) = "save" Then
Call FriendLinkSave
Else
If CInt(Newasp.StopApplyLink) <> 0 Then
Call OutAlertScript(Newasp.HtmlSetting(6))
Else
Response.Write HtmlContent
End If
End If

Sub FriendLinkSave()
Call PreventRefresh
If CInt(Newasp.StopApplyLink) <> 0 Then
Call OutAlertScript(Newasp.HtmlSetting(6))
Founderr = True
End If
If Trim(Request.Form("LinkName")) = "" Then
ErrMsg = ErrMsg + "网站名称不能为空\n"
Founderr = True
End If
If Trim(Request.Form("LinkUrl")) = "" Then ErrMsg = ErrMsg + "网站URL不能为空\n"
Founderr = True
End If
If Trim(Request.Form("Readme")) = "" Then
ErrMsg = ErrMsg + "网站简介不能为空\n"
Founderr = True
End If
If Trim(Request.Form("password1")) = "" Then
ErrMsg = ErrMsg + "管理密码不能为空\n"
Founderr = True
End If
If Trim(Request.Form("password2")) = "" Then
ErrMsg = ErrMsg + "确认管理密码不能为空\n"
Founderr = True
End If
If Newasp.IsValidPassword(Request("password2")) = False Then
ErrMsg = ErrMsg + "管理密码中含有非法字符\n"
Founderr = True
End If
If Trim(Request.Form("password1")) <> Trim(Request.Form("password2")) Then
ErrMsg = ErrMsg + "管理密码和确认密码不一至,请重新输入管理密码\n"
Founderr = True
End If
If Request("verifycode") = "" Then
ErrMsg = ErrMsg + "请返回输入验证码。"
Founderr = True
ElseIf Session("getcode") = "9999" Then
Session("getcode") = ""
ErrMsg = ErrMsg + "请不要重复提交,如需重新登陆请返回登陆页面。"
Founderr = True
ElseIf CStr(Session("getcode"))<>CStr(Trim(Request("verifycode"))) Then
ErrMsg = ErrMsg + "您输入的验证码和系统产生的不一致,请重新输入。"
Founderr = True

End If
Set Rs = Newasp.Execute("SELECT LinkID FROM NC_Link WHERE LinkName='" & Replace(Request.Form("LinkName"), "'", "") & "' And LinkUrl='" & Replace(Request.Form("LinkUrl"), "'", "") & "'")
If Not (Rs.EOF And Rs.BOF) Then
ErrMsg = "您申请的友情连接已经存在!"
Founderr = True
End If
Set Rs = Nothing
If Founderr = True Then
Call OutAlertScript(ErrMsg)
Exit Sub
End If
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM NC_Link WHERE (LinkID is null)"
Rs.Open SQL,Conn,1,3
Rs.Addnew
Rs("LinkName") = Newasp.FormEncode(Request.Form("LinkName"),50)
Rs("LinkUrl") = Newasp.FormEncode(Request.Form("LinkUrl"),200)
Rs("LogoUrl") = Newasp.FormEncode(Request.Form("LogoUrl"),200)
Rs("Readme") = Newasp.FormEncode(Request.Form("Readme"),200)
Rs("LinkTime") = Now()
Rs("password") = md5(Request.Form("password2"))
Rs("LinkHist") = 0
Rs("isLogo") = Newasp.ChkNumeric(Request.Form("isLogo"))
Rs("isIndex") = 0
Rs("isLock") = isLock
Rs.update
Rs.Close:Set Rs = Nothing
Call OutputScript(Newasp.HtmlSetting(7),"index.asp")
End Sub
CloseConn
%>

第三步: 修改admin/admin_link.asp的文件

maxperpage = 1000 '###每页显示数

参考消息:http://www.arpun.com/以上是意思是每页显示数1000条友情连接,为了方便加快删除友情链接垃圾广告

更多精彩,请查看本类栏目: 网站专题 - 网站建设
除非注明,ARP联盟文章来于网络,投稿原创等,转载请以链接形式标明本文地址。
本文地址:http://www.arpun.com/article/2561.html

相关文章
  • ·[图文]安卓6.0系统无法连接手机原因分析及解决方法
  • ·本地链接消失解决方法
  • ·[图文]苹果升到iOS9卡顿问题怎么解决
  • ·[图文]解决IOS 9未受信任的企业级开发者教程
  • ·[图文]安装win7系统提示“无法更新启动配置”的故障原因分析及解决方法
  • ·[图文]重装Win7系统黑屏提示错误代码oxc000007b的故障分析及解决方法
  • ·[图文]点击网页老是先弹出广告网页的4个解决办法
  • ·[图文]iphone出现error 53怎么解决
  • 发表评论
    栏目列表
    阅读排行
    本类最新
    网站帮助 - 广告合作 - 下载声明 - 网站地图