Siteweaver留言本编辑器控制开关asp

/ / 2016-02-04   阅读:2491
留言本的编辑器都是开启的,无论你是否允许游客留言,这个编辑器都是打开的,这样会影响页面打开速度,因此蜜蜂博客给其加上一个动态控制开关,如果是会员,就打开编辑器,否则关闭编辑器。修改以后比较适合动易留言...
留言本的编辑器都是开启的,无论你是否允许游客留言,这个编辑器都是打开的,这样会影响页面打开速度,因此蜜蜂博客给其加上一个动态控制开关,如果是会员,就打开编辑器,否则关闭编辑器。修改以后比较适合动易留言本改论坛的朋友。

这里以动易SiteWeaver6.7为例,修改方法:

一、在GuestBook/Guest_Reply.asp文件里,找到代码:
以下是代码片段: 
strHtml = Replace(strHtml, "{$WriteKindID}", rsGuest("KindId") & "")
在其下面加上:
Dim GuestBookEditor
 regEx.Pattern = "\[GuestBookEditor\]([\s\S]*?)\[\/GuestBookEditor\]"
 Set Matches = regEx.Execute(strHtml)
 For Each Match In Matches
 GuestBookEditor = Match.value
Next
 If GuestBook_EnableVisitor = True Then
  strHtml = Replace(strHtml, "[GuestBookEditor]", "")
  strHtml = Replace(strHtml, "[/GuestBookEditor]", "")
 End If
 If GuestBook_EnableVisitor = False Then
 If UserLogined = True Then
  strHtml = Replace(strHtml, "[GuestBookEditor]", "")
  strHtml = Replace(strHtml, "[/GuestBookEditor]", "")
 Else
  strHtml = Replace(strHtml, GuestBookEditor, "<center><a href='../User/' target='_blank'>登陆</a> 后可发帖及回帖. <a href='../Reg/User_Reg.asp' target='_blank'>这里注册</a></center>")
 End If
End If

二、使用方法:
在留言回复模板里的编辑器代码前加 [GuestBookEditor] ,编辑器代码后加 [/GuestBookEditor]。

三、代码判断原理:
在“网站信息配置”-->“留言本选项”-->“是否允许游客留言”处设置:
1、如果选“是”,也就是游客留言方式,那么留言本编辑器打开;
2、如果选“否”,那么只有会员登陆的情况下编辑器才会打开,否则非会员浏览时编辑器为关闭。

我要评论

昵称:
验证码:

最新评论

共0条 共0页 10条/页 首页 上一页 下一页 尾页
意见反馈