<%@language = vbscript%>
<!-metadatatype = "typelib" uuid = "{01e88d14-f479-4ca5-9ca8-ebd2eed74c83}"->
<html>
<body>
<h1align = center> 在线注册演示 </h1>
-
การจับสลัว
ifrequest.form ("cmdadduser") <> "" แล้ว
ผู้ให้ความสำคัญ
dimomduserinfo
dimnresult
Dimsfullname
ชื่อด่างทับชื่อ
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
endelect
omduser.freeuserdll
อื่น
smessage = "错误: 不能加载 dll 文件"
endif
setomDuser = ไม่มีอะไร
setomDuserInfo = ไม่มีอะไร
endif
-
<p> 新用户注册 </p>
<formaction = "adduser.asp" method = postid = "form1"> method
<TableId = "Table1">
<tr> <td> 域名: </td> <td> <putsize = 50name = "txtdomain" id = "text1" value = "system.mail" readonly> </td> </tr>
<tr> <td> 全名: </td> <td> <putsize = 50name = "txtfullName" id = "text2"> </td> </tr>
<tr> <td> 登录名: </td> <td> <putsize = 25name = "txtusername" id = "text3"> </td> </tr>
<tr> <td> 口令: </td> <td> <putryType = "รหัสผ่าน" ขนาด = 25name = "txtpassword" id = "รหัสผ่าน 1"> </td> </tr>
<tr> <td> </td> <td> <putType = "ส่ง" value = "注册新用户" name = "cmdadduser" id = "submit1"> </td> </tr>