您现在的位置：星云电脑教程 >> 电脑教程 >> 经验共享 >> 动易专题 >> 正文

动易如何只能让注册用户留言

星云电脑教程文章来源：网络作者：星云整理更新时间：2005-9-11 12:29:26 点击数【有问必答】

只修改了一个文件GuestBook\Guest_Write.asp ，下载解压后覆盖同名文件即可。

_____________________________________以下是源码

<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>


<%
if CheckUserLogined<>True then
Response.redirect "../User/User_Login.asp"
end if
Call CloseConn

Dim PE_GuestBook
Call CreateObject_GuestBook
Call PE_GuestBook.ShowWrite
Set PE_GuestBook = Nothing

Sub CreateObject_GuestBook()
    On Error Resume Next
    Set PE_GuestBook = Server.CreateObject("PE_GuestBook.GuestBook")
    If Err Then
        Err.Clear
        Response.Write "对不起，你的服务器没有安装动易组件（PE_GuestBook.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
        Response.End
    End If
End Sub
%>

_____________________________________

【打印此文】【有问必答】【关闭窗口】