<%@language = vbscript%>
<!!
<html>
<body>
<h1align = center> </h1>
<%
DimsMessage
ifrequest.form ( "cmdadduser") <> "" "그런 다음
Dimomduser
Dimomduserinfo
Dimnresult
Dimsfullname
Dimsusername
Dimspassword
sfullname = request.form ( "txtfullname")
susername = request.form ( "txtusername")
spassword = request.form ( "txtpassword")
sdomain = request.form ( "txtdomain")
setomDuser = server.createObject ( "mdusercom.mduser")
setomduserinfo = server.createobject ( "mdusercom.mduserinfo")
ifomduser.loadUserDll () = Truethen
omduser.inituserinfo (omduserinfo)
omduserinfo.fullname = sfullname입니다
omduserinfo.mailbox = susername
omduserinfo.password = spassword
omduserinfo.domain = sdomain
omduser.filteruserinfo (omduserinfo)
nresult = omduser.adduser (omduserinfo)
SelectCasenresult
casemddllerr_noerror
smessage = ""! "
casemddllerr_userexists
smessage = ""： ' "& susername &"'已存在! 注册失败！ "
CASEELSE
smessage = ""! 错误代码 : "& nresult
EndSelect
omduser.freeuserdll
또 다른
smessage = "": 不能加载 dll 文件 "
endif
setomDuser = 아무것도 없습니다
setomDuserInfo = 아무것도 없습니다
endif
%>
<p> </p>
<formaction = "adduser.asp"메소드 = postId = "form1">
<tableId = "table1">
<tr> <td> 域名 : </td> <td> <inputsize = 50name = "txtDomain"id = "text1"value = "system.mail"readonly> </td> </tr>
<tr> <td> 全名 : </td> <td> <inputsize = 50name = "txtfullname"id = "text2"> </td> </tr>
<tr> <td> 登录名 : </td> <td> <inputsize = 25name = "txtusername"id = "text3"> </td> </tr>
<tr> <td> 口令 : </td> <td> <inputtype = "password"size = 25name = "txtpassword"id = "password1"> </td> </tr>
<tr> <td> </td> <td> <inputtype = "제출"value = "注册新用户 注册新用户"name = "cmdadduser"id = "제출"> </td> </tr>