pc软件 文章资讯 手机软件

您当前的位置→图文中心网站专题网站建设解决新云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 '###每页显示数

以上是意思是每页显示数1000条友情连接,为了方便加快删除友情链接垃圾广告

相关文章

王者荣耀server busy怎么办 server busy进不去解决方法: 王者荣耀serverbusy怎么办?serverbusy进不去解决方法。

ARP攻击防御解决方案:下面我们介绍几种常见ARP攻击典型的症状:上网的时候经常会弹出一些广告,有弹出窗口形式的,也有嵌入网页形式的。

HTML404优化链接解决方案:在网站上我们有时候开会看到网页打开之后是404页面,那么404页面代表着什么呢?1、404死链接的定义:当一个存在的链接打不开时,那么这个链接就是死链接,状态码为404(状态码是空间服务器反馈的信息),我们常见的状态码有:200(正常访问)...。

发表评论
网站帮助 - 广告合作 - 下载声明 - 网站地图