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

标题: 请问如何实现让用户在线注册IMAIL.能有原代码吗? [打印本页]

作者: zw0052 时间: 2004-7-15 15:07
标题: 请问如何实现让用户在线注册IMAIL.能有原代码吗?
　　各位大虾:我是这方面的菜鸟,对邮件这东东一无所知.公司让在网页里实现如下功能:让用户自己注册申请IMAIL帐户.而不是在邮件系统的用户帐号管理里添加用户. 
　　该如何实现?请高手指教一二,能直接有原代码最好.先谢啦.在线等待.

作者: 钉子 时间: 2004-7-15 17:29
标题: Re:请问如何实现让用户在线注册IMAIL.能有原代码吗?
文章区有一个简单的文章. 
<a target=_blank href=http://www.5dmail.net/html/2004-7-7/200477101935.htm>http://www.5dmail.net/html/2004-7-7/200477101935.htm</a>

作者: jianlicd 时间: 2004-7-19 09:30
标题: Re:请问如何实现让用户在线注册IMAIL.能有原代码吗?
 
 Dim cmd As SqlClient.SqlCommand Dim sqltomail As String sqltomail = "insert into holserver_holgroup_com(USERID,PASSWORD,FULLNAME,USERDIR,MAILADDR,MAXSIZE,MAXMSGS,FLAGS,TYPE,NUMTRIES,ATTEMPTTIME,NUMTIMESSUSP,LASTLOGIN,SPNDUSRACCT,ICALENBL,SPELLENBL,NUMSGSTNS,IWDEPTH,IWOPTIONS,SPELLCHKG,PRVWSIZE,DEFVIEW,TIMEZONE,STRTDAY,DEFCALNM,ENTRYGRNL,STARTTIME,ENDTIME,MAXEVNTDISP,MAXTSKDISP,MAXNOTEDISP,MAXDLYRCURCNT,MAXWKLYRCURCNT,MAXMONRCURCNT,MAXYRLYRCURCNT,DISPCMPLTDTSKS,HOURSCLOCK,MAXSRCHRESPPG,MAXEVENTTITLELEN,MAXTASKTITLELEN,CONFIRMONDELETE,NUMNOTIFY,LASTNOTIFY)" _ 
& "values(@USERID,@PASSWORD,@FULLNAME,@USERDIR,@MAILADDR,@MAXSIZE,@MAXMSGS,@FLAGS,@TYPE,@NUMTRIES,@ATTEMPTTIME,@NUMTIMESSUSP,@LASTLOGIN,@SPNDUSRACCT,@ICALENBL,@SPELLENBL,@NUMSGSTNS,@IWDEPTH,@IWOPTIONS,@SPELLCHKG,@PRVWSIZE,@DEFVIEW,@TIMEZONE,@STRTDAY,@DEFCALNM,@ENTRYGRNL,@STARTTIME,@ENDTIME,@MAXEVNTDISP,@MAXTSKDISP,@MAXNOTEDISP,@MAXDLYRCURCNT,@MAXWKLYRCURCNT,@MAXMONRCURCNT,@MAXYRLYRCURCNT,@DISPCMPLTDTSKS,@HOURSCLOCK,@MAXSRCHRESPPG,@MAXEVENTTITLELEN,@MAXTASKTITLELEN,@CONFIRMONDELETE,@NUMNOTIFY,@LASTNOTIFY)" 
 cmd = New SqlClient.SqlCommand(sqltomail, personm.Global.connW) 
 cmd.Parameters.Add(New SqlClient.SqlParameter("@USERID", SqlDbType.VarChar)) cmd.Parameters.Add(New SqlClient.SqlParameter("@PASSWORD", SqlDbType.VarChar)) cmd.Parameters.Add(New SqlClient.SqlParameter("@FULLNAME", SqlDbType.VarChar)) cmd.Parameters.Add(New SqlClient.SqlParameter("@USERDIR", SqlDbType.VarChar)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAILADDR", SqlDbType.VarChar)) 
 cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXSIZE", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXMSGS", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@FLAGS", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@TYPE", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@NUMTRIES", SqlDbType.Int)) 
 cmd.Parameters.Add(New SqlClient.SqlParameter("@ATTEMPTTIME", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@NUMTIMESSUSP", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@LASTLOGIN", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@SPNDUSRACCT", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@ICALENBL", SqlDbType.Int)) 
 cmd.Parameters.Add(New SqlClient.SqlParameter("@SPELLENBL", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@NUMSGSTNS", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@IWDEPTH", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@IWOPTIONS", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@SPELLCHKG", SqlDbType.Int)) 
 cmd.Parameters.Add(New SqlClient.SqlParameter("@PRVWSIZE", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@DEFVIEW", SqlDbType.VarChar)) cmd.Parameters.Add(New SqlClient.SqlParameter("@TIMEZONE", SqlDbType.VarChar)) cmd.Parameters.Add(New SqlClient.SqlParameter("@STRTDAY", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@DEFCALNM", SqlDbType.VarChar)) 
 cmd.Parameters.Add(New SqlClient.SqlParameter("@ENTRYGRNL", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@STARTTIME", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@ENDTIME", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXEVNTDISP", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXTSKDISP", SqlDbType.Int)) 
 cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXNOTEDISP", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXDLYRCURCNT", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXWKLYRCURCNT", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXMONRCURCNT", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXYRLYRCURCNT", SqlDbType.Int)) 
 cmd.Parameters.Add(New SqlClient.SqlParameter("@DISPCMPLTDTSKS", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@HOURSCLOCK", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXSRCHRESPPG", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXEVENTTITLELEN", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@MAXTASKTITLELEN", SqlDbType.Int)) 
 cmd.Parameters.Add(New SqlClient.SqlParameter("@CONFIRMONDELETE", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@NUMNOTIFY", SqlDbType.Int)) cmd.Parameters.Add(New SqlClient.SqlParameter("@LASTNOTIFY", SqlDbType.Int)) 
 
 
 cmd.Parameters("@USERID").Value = "wzr" cmd.Parameters("@PASSWORD").Value = 123 cmd.Parameters("@FULLNAME").Value = 128 cmd.Parameters("@USERDIR").Value = "d:\IMail\users\wzr" cmd.Parameters("@MAILADDR").Value = "wzr@holserver.holgroup.com" 
 cmd.Parameters("@MAXSIZE").Value = 0 cmd.Parameters("@MAXMSGS").Value = 0 cmd.Parameters("@FLAGS").Value = 128 cmd.Parameters("@TYPE").Value = 0 cmd.Parameters("@NUMTRIES").Value = 0 
 cmd.Parameters("@ATTEMPTTIME").Value = 0 cmd.Parameters("@NUMTIMESSUSP").Value = 0 cmd.Parameters("@LASTLOGIN").Value = 0 cmd.Parameters("@SPNDUSRACCT").Value = 0 cmd.Parameters("@ICALENBL").Value = -1 
 cmd.Parameters("@SPELLENBL").Value = -1 cmd.Parameters("@NUMSGSTNS").Value = 4 cmd.Parameters("@IWDEPTH").Value = -1 cmd.Parameters("@IWOPTIONS").Value = 0 cmd.Parameters("@SPELLCHKG").Value = -1 
 cmd.Parameters("@PRVWSIZE").Value = -1 cmd.Parameters("@DEFVIEW").Value = "" cmd.Parameters("@TIMEZONE").Value = "" cmd.Parameters("@STRTDAY").Value = -1 cmd.Parameters("@DEFCALNM").Value = "" 
 cmd.Parameters("@ENTRYGRNL").Value = -1 cmd.Parameters("@STARTTIME").Value = -1 cmd.Parameters("@ENDTIME").Value = -1 cmd.Parameters("@MAXEVNTDISP").Value = -1 cmd.Parameters("@MAXTSKDISP").Value = -1 
 cmd.Parameters("@MAXNOTEDISP").Value = -1 cmd.Parameters("@MAXDLYRCURCNT").Value = -1 cmd.Parameters("@MAXWKLYRCURCNT").Value = -1 cmd.Parameters("@MAXMONRCURCNT").Value = -1 cmd.Parameters("@MAXYRLYRCURCNT").Value = -1 
 cmd.Parameters("@DISPCMPLTDTSKS").Value = -1 cmd.Parameters("@HOURSCLOCK").Value = -1 cmd.Parameters("@MAXSRCHRESPPG").Value = -1 cmd.Parameters("@MAXEVENTTITLELEN").Value = -1 cmd.Parameters("@MAXTASKTITLELEN").Value = -1 
 cmd.Parameters("@CONFIRMONDELETE").Value = -1 cmd.Parameters("@NUMNOTIFY").Value = 0 cmd.Parameters("@LASTNOTIFY").Value = 0 
 Try cmd.ExecuteNonQuery() Catch ex As System.Data.SqlClient.SqlException 
 End Try 
 ' System.IO.Directory.CreateDirectory("d:\imail\users\wzr") 
 ' Dim file As System.IO.FileStream ' file = System.IO.File.Create("d:\imail\users\wzr\main.mbx") 
 lblmsg.Text = "ok" 
 
 End Sub

作者: 钉子 时间: 2004-7-22 01:38
标题: Re:请问如何实现让用户在线注册IMAIL.能有原代码吗?
期等jianlicd 提供代码文件。供大家参考，谢谢。

作者: tony_cao 时间: 2004-7-26 06:26
标题: Re:请问如何实现让用户在线注册IMAIL.能有原代码吗?
我是用asp编写的在线开通邮箱程序

作者: 钉子 时间: 2004-7-29 13:31
标题: Re:请问如何实现让用户在线注册IMAIL.能有原代码吗?
tony_cao ，能否提供一下你的Web文件，与大家分享？谢谢

作者: tony_cao 时间: 2004-8-13 07:50
标题: Re:请问如何实现让用户在线注册IMAIL.能有原代码吗?
以下是我用asp编写的在线开通邮箱程序的主体部分，供大家分享，其实就是一个写入SQL数据库的过程，不足之处请大家指正!谢谢 
 
if request("submit") ="提交" then 
userid=request("userid") 
pass=request("pass") 
pass1=request("pass1") 
if pass <> pass1 then %> 
<script> alert("对不起，两次密码不相同!"); history.go(-1); 
</script> 
<%response.end 
end if 
 
 
person=request("person") 
FLAGS=128 
a=-1 
b=0 
c=4 
dir="d:\imail\DOMAIN_com\users\"&userid 
ddr=userid&"@DOMAIN.com" 
rq=date() 
MAXSIZE=31457280 
MAXMSGS=2000 
 
set rs=conm.execute("select userid from DOMAIN_com where userid='" & userid & "'") 
if rs.eof then 
 
set rs=conm.execute("select userid from DOMAIN_com where login='" & user & "'") 
if rs.eof then 
sqlcmd="insert intoDOMAIN_com(userid,PASSWORD,FULLNAME,USERDIR,MAILADDR,MAXSIZE,MAXMSGS,FLAGS,TYPE,NUMTRIES,ATTEMPTTIME,NUMTIMESSUSP,LASTLOGIN,SPNDUSRACCT,ICALENBL,SPELLENBL,NUMSGSTNS,IWDEPTH,IWOPTIONS,SPELLCHKG,PRVWSIZE,STRTDAY,ENTRYGRNL,STARTTIME,ENDTIME,MAXEVNTDISP,MAXTSKDISP,MAXNOTEDISP,MAXDLYRCURCNT,MAXWKLYRCURCNT,MAXMONRCURCNT,MAXYRLYRCURCNT,DISPCMPLTDTSKS,HOURSCLOCK,MAXSRCHRESPPG,MAXEVENTTITLELEN,MAXTASKTITLELEN,CONFIRMONDELETE,NUMNOTIFY,LASTNOTIFY,login,rq)values('"&userid&"','"&pass&"','"&person&"','"&dir&"','"&ddr&"','"&MAXSIZE&"','"&MAXMSGS&"','"&FLAGS&"','"&b&"','"&b&"','"&b&"','"&b&"','"&b&"','"&b&"','"&a&"','"&a&"','"&c&"','"&a&"','"&b&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&a&"','"&b&"','"&b&"','"&user&"','"&rq&"')" 
conm.execute sqlcmd 
 
if session("kahao")<>"" then 
 
kahao=session("kahao") 
 
sqlcmd="update kahao set cao=0 where nub='"&kahao&"'" 
conn.execute sqlcmd 
 
session("kahao")="" 
end if 
 
response.redirect"mail_ok.asp?bs=7" 
 
 
 
else%> 
<script> 
alert("对不起，您已申请了..！"); 
history.go(-1); 
</script> 
<% 
response.end 
end if 
 
else%> 
<script> 
alert("对不起，此用户名已经被注册！"); 
history.go(-1); 
</script> 
<% 
response.end 
end if 
 
 
 
 
end if 
%>

作者: 钉子 时间: 2004-8-14 00:27
标题: Re:请问如何实现让用户在线注册IMAIL.能有原代码吗?
如果能提供直接的文件就好了。

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