我做了一个商城,是首页会员登陆的.但现在不能登陆了.也不能注册.一注册就提示"如图上所说的",我把把这个"User_Reg.asp"源代码附上.请高手帮忙看看!!!
有不明白的我会及时说的.
跪求高手指点了!!!

<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/function.asp"-->
<%
'网站配置的变量
Dim strHTML, PE_Site

Call Main
Call CloseConn

Sub Main()
    If EnableUserReg <> True Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>对不起，本站暂停新用户注册服务！</li>"
        Call WriteErrMsg(ErrMsg, ComeUrl)
        Exit Sub
    End If

    Set PE_Site = Server.CreateObject("PE_Common6.Site")
    PE_Site.iConnStr = ConnStr
    PE_Site.iSystemDatabaseType = SystemDatabaseType
    PE_Site.CurrentChannelID = 0
    PE_Site.Init
   
    strHTML = PE_Site.GetTemplate(0, 18, 0)
    strHTML = PE_Site.ReplaceCommon(strHTML)

    Dim strPath
    strPath = "您现在的位置： <a href='" & SiteUrl & "'>" & SiteName & "</a> >> 服务条款和声明"

    strHTML = Replace(strHTML, "{$PageTitle}", SiteTitle & " >> 服务条款和声明")
    strHTML = Replace(strHTML, "{$ShowPath}", strPath)

    strHTML = Replace(strHTML, "{$MenuJS}", PE_Site.GetMenuJS("", False))
    strHTML = Replace(strHTML, "{$Skin_CSS}", PE_Site.GetSkin_CSS(0))
   
    Set PE_Site = Nothing
    Response.Write strHTML
End Sub
%>

上图说的23行就是这一行
Set PE_Site = Server.CreateObject("PE_Common6.Site")

我注册成功了.但就提示我会员没办法注册.