解决新云CMS友情链接里的垃圾链接问题pc软件 文章资讯 手机软件

您当前的位置→图文中心网站专题网站建设解决新云CMS友情链接里的垃圾链接问题

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


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

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

 

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

第一步: 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 + "您输入的验证码和系统system产生的不一致, 请重新输入。 "
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条友情连载,为了方便加快删除友情链接垃圾无用文件广告

相关文章
  • 魔兽世界WoW Legion companion随身app不能安装怎么解决
  • 谷歌浏览器程序包出错!谷歌浏览器程序包无效的问题怎么解决?
  • CAD保存文件时出现致命错误如何处理怎么解决?
  • CAD画pl线是空心是怎么回事?CAD pl线变实心线的方法解决办法
  • foodie美食相机拍照时闪退怎么处理,怎么解决
  • 360安全卫士解决电脑玩游戏花屏死机的方法介绍
  • 电脑FPS低是什么引起的?我们怎么格能够解决?
  • win7系统msn无法登录,Win7登录msn失败提示“错误代码80040154”怎么解决?
  • PS设置的内存和暂存位置容量不够解决?扩大PS暂存盘容量的具体方法
  • PP助手出错解决,PP助手修复闪退的方法
  • 发表评论
    阅读排行
    相关热门
    网站帮助 - 广告合作 - 下载声明 - 网站地图