邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: asp运行建立用户出错，有什么办法？ [打印本页]

作者: mainpine 时间: 2009-9-19 20:35
标题: asp运行建立用户出错，有什么办法？
就是不能加载连接库，还有其它加载方法吗

以下出错信息：

Active Server Pages 错误 'ASP 0224' 无法加载 TypeLib /asp/adduser.asp，行 3 无法加载 METADATA 标记中指定的类型库。

asp代码：
<%@ Language=VBScript %>
<% Option Explicit %>

<HTML>
<BODY>
<H1 align=center>AddUser Example</H1>
<P><HR>
<A HREF="default.htm">Back to index</A></P>
<%
Dim sMessage
If Request.Form("cmdAddUser") = "Add" Then
Dim oMDUser
Dim oMDUserInfo
Dim nResult
Dim sFullName
Dim sUserName
Dim sPassword

sFullName = Request.Form("txtFullName")
sUserName = Request.Form("txtUserName")
sPassword = Request.Form("txtPassword")

' Create an instance of mduser & mduserinfo objects
Set oMDUser = Server.CreateObject("MDUserCOM.MDUser")
Set oMDUserInfo = Server.CreateObject("MDUserCOM.MDUserInfo")

' Load the dll
If  oMDUser.LoadUserDll() = True Then

  ' Initialize the object.
  oMDUser.InitUserInfo(oMDUserInfo)

  ' Set some of properties so that we don't use the defaults.
  oMDUserInfo.FullName = sFullName
  oMDUserInfo.MailBox  = sUserName
  oMDUserInfo.Password = sPassword

  ' Filter to set the default values for the other properties.
  oMDUser.FilterUserInfo (oMDUserInfo)

  ' Try to add the user...
  nResult = oMDUser.AddUser (oMDUserInfo)

  ' Check the results
  Select Case nResult
  Case MDDLLERR_NOERROR
sMessage = "Account created successfully!"
  Case MDDLLERR_USEREXISTS
sMessage = "The user name '" & sUserName & "' already exists!  Please try again."
  case Else
sMessage = "Failed! Error code:" & nResult
  End Select

  ' Free the dll
  oMDUser.FreeUserDll
Else
  ' Could not load the dll!
  sMessage = "ERROR: Could not load the dll file!"
End If
' Free the instances
Set oMDUser = Nothing
Set oMDUserInfo = Nothing
End If
%>
<P>This is an example of how to add an MDaemon user.</P>
<FORM ACTION="adduser.asp" METHOD=post>
<TABLE>
<TR><TD>Full name:</TD><TD><INPUT SIZE=50 NAME="txtFullName"></TD></TR>
<TR><TD>User name:</TD><TD><INPUT SIZE=25 NAME="txtUserName"></TD></TR>
<TR><TD>Password:</TD><TD><INPUT TYPE="password" SIZE=25 NAME="txtPassword"></TD></TR>
<TR><TD></TD><TD><INPUT TYPE="submit" VALUE="Add" NAME="cmdAddUser"></TD></TR>
</TABLE>
</FORM>
<%
Response.Write(sMessage & "<BR>")
%>
</BODY>
</HTML>

作者: 洗澡龙 时间: 2009-9-20 18:53
搞不清楚，就别用md自己的方法，换成用数据库管理用户，对数据库进行用户操作，这个还简单一些。

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.net/)