评论怎么加验证码呢?(2)_动易Cms教程

Call CloseConn
Call Main
Sub Main()
On Error Resume Next
Dim PE_Comment
Set PE_Comment = Server.CreateObject("PE_Common6.Comment")
If Err Then
Err.Clear
Response.Write "对不起，你的服务器没有安装动易组件（PE_Common6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
Exit Sub
End If
PE_Comment.iConnStr = ConnStr
PE_Comment.iSystemDatabaseType = SystemDatabaseType
PE_Comment.CurrentChannelID = ChannelID
Call PE_Comment.Execute
Set PE_Comment = Nothing
If Err Then
Response.Write "错 误 号：" & Err.Number & "<BR>"
Response.Write "错误描述：" & Err.Description & "<BR>"
Response.Write "错误来源：" & Err.Source & "<BR>"
Err.Clear
End If
End Sub
'下面是新加上的，是去掉验证码返回重复使用，但是返回上一页需要手动点击验证码刷新
IF Action="Save" Then
Session("CheckCode") = ""
End If
%>

呵呵，到这里就可以说大告成功了，刷新下评论页吧，测试下，是不是可以了！！

假如你觉得验证码太长，可以到我们这里帮助中心搜索下“验证码” ，你会有更多发现，自己去找下吧，我这里就不给你们找了。

注重：增加了防止不断发表，验证码都有作用的BUG。

查看更多 动易Cms教程  动易Cms模板