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 "對不起，你的服務(wù)器沒有安裝動易組件（PE_Common6.dll），所以不能使用動易系統(tǒng)。請和你的空間商聯(lián)系以安裝動易組件。"
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
'下面是新加上的，是去掉驗證碼返回重復(fù)使用，但是返回上一頁需要手動點擊驗證碼刷新
IF Action="Save" Then
Session("CheckCode") = ""
End If
%>

呵呵，到這里就可以說大告成功了，刷新下評論頁吧，測試下，是不是可以了�。�

假如你覺得驗證碼太長，可以到我們這里幫助中心搜索下“驗證碼” ，你會有更多發(fā)現(xiàn)，自己去找下吧，我這里就不給你們找了。

注重：增加了防止不斷發(fā)表，驗證碼都有作用的BUG。

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