分享
 
 
 

IMail Server 8.0用户可申请邮箱的实现

王朝other·作者佚名  2008-05-30
窄屏简体版  字體: |||超大  

首先是安装IMAIL软件,我们用的是IMAIL8.0中文版,用户可到各大网站去下载非商用版本。

执行安装程序后系统会提示你决定让Imail使用哪一种数据库。Imail支持三种数据库:可以引用WindowsNT数据库,可以创建自己的账户数据库,也可以引用其他第三方数据库,

我们假设一开始采用Imail自己的数据库,所以我们选择第二个,再按“Next”,又出现了一个对话框,问是否安装SSLKey(Security Socket Layer的缩写,意为套接字协议层),

由于我们目前的邮件服务器只限于内部使用,对于安全性没有很高的要求,所以没有必要去使用SSL,我们选择“否”,接着又出现了一个对话框,问你是否自动回复信件,

我们选择第二个,防止被黑客恶意利用,按“Next”,出现了一个对话框,要你选择Imail要启动哪些服务,

我们选择最基本的三项服务:Imail Web Server(用WEB方式收发EMail)、Imail POP3 Server和Imail SMTP Server,这样Imail就安装好了。

下面是如何配置IMAIL了。

首先进入IMAIL管理,如下图,

我们来看如何添加一个邮局,

选中“localhost”,单击鼠标右键,在快捷菜单中执行“Add Host”, 出现如下对话框,

输入邮局名swfzasp.com,使用Imail数据库,按“Next”,下面又出现一个对话框,要你选择ip地址,

我们输入本机IP10.161.248.3,按“Next”后再用“Next”跳过要你输入别名的对话框,当然如果你在一台上设置多个邮局的话,就要选择虚拟邮局了,如下图,

按下一步后又出现一个选择存放用户信息目录的对话框,

下面是如何来添加用户,选中邮局名,比如“swfzasp.com”,单击鼠标右键,在快捷菜单中执行“Add User”,

接着出现对话框,在对话框中输入用户名test1,建立好后该用户的邮箱名是test1@swfzasp.com,按“下一步”,又出现下面的对话框,要求输入用户的姓名,

输入好后按“下一步”,出现下面的对话框,要求设置初始密码,
然后按“下一步”,这样一个用户邮箱就建立好了。下面可以在内部使用test1@swfzasp.com来收发信件了。如果用Outlook收发,在设置帐号时必须把POP3和SMTP服务器都设置为mail.swfzasp.com,用户名设置为test1@swfzasp.com,如下图,

但是如果用WEB方式收发的话,还要在DNS服务器上建立虚拟域名mail.swfzasp.com,在Internet服务管理器中建立一个虚拟WEB站点,并捆绑到域名mail.swfzasp.com,主目录用IMail所在的目录C:\IMail\Web(详细方法在前二结已有阐述,我们不再着重讲)。

下面看看如何在客户端用WEB方式收发邮件,在客户端键入地址http://mail.swfzasp.com:8383/,出现下面的页面,

输入用户名和密码,注意用户名应该用test1@swfzasp.com而不是test1,按“登录”后,就进入如下的页面,就可以进行邮件收发了。

因为笔者想要做一个邮箱申请的界面来代替管理员单纯地来开邮箱,所以要使用第三方数据库。要设置第三方数据库,必须事先给IMAIL设置数据源:IMAILSECDB,这也是IMAIL默认的名字。

接下来为IMAIL设置ODBC数据源。在控制面板的管理工具中,双击“数据源(ODBC)”,在ODBC数据源管理器窗口中,点击“系统DSN卡”→“添加(D)…”按钮,从出现的列表中选择“Microsoft access Driver(*.mdb)”,然后点击“完成”按钮。在弹出的窗口中的“数据源名”填“IMAILSECDB”。然后按“选择”给这个数据源选择数据库文件,选择已建立好的数据库文件swfzasp.mdb,如下图。

下面可以用ASP编写了一段邮箱申请的网页程序,里面主要是对swfzasp.mdb库中数据的添加。

网页申请页面register.asp(因为该页面基本上没有ASP,所以只展示预览的页面)

function.asp(主要用于连接数据库等函数)

Function OpenOrGet_Database(sessionName)

Dim conn

If Not IsObject(Session(SessionName)) Then

dbpath=server.mappath("..\webmail\database\swfzasp.mdb")

'dbpath="c:\imail\slmasp_com\swfzasp.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" %26amp; dbpath

Set Session(SessionName) = conn

End If

Set OpenOrGet_Database = Session(SessionName)

End Function

%

usrinsert.asp(用于验证用户名是否合法,如果合法就添加该用户到数据库中)

注册邮箱

username = Request("username")

passWord1 = Request("password1")

name=Request("name")

reif=session("reif")

if reif="1" then '如果reif为1,则插入,如不是,则由于客户可能是刷新页面所致,不执行插入操作

Set conn = OpenOrGet_Database("myconn")

sql="select * from swfzchz_com where userid='" %26amp; request("username") %26amp; "'"

set rs1=conn.execute(sql)

if not (rs1.bof or rs1.eof) then

%

%26amp;nbsp;

%26amp;nbsp;

对不起,该用户名已存在,请返回后重新输入!

返回

end if

conn.execute "insert into swfzchz_com(userid,password,fullname,userdir,mailaddr,flags)" %26amp; " values(" %26amp; "'" %26amp; username %26amp; "'"

%26amp; "," %26amp; "'" %26amp; password1 %26amp; "'" %26amp; "," %26amp; "'" %26amp; name %26amp; "'" %26amp; "," %26amp; "'" %26amp; "c:\imail\swfzchz_com\users\" %26amp; username %26amp; "'" %26amp; "," %26amp;

"'" %26amp; username %26amp; "@swfzasp.com" %26amp; "'" %26amp; "," %26amp; "'" %26amp; "128" %26amp; "'" %26amp;")"

session("reif")="0"

%

%26amp;nbsp;

恭喜你,已注册成功!请http://mail.swfzasp.com:8383/"登录href="http://mail.swfzasp.com:8383/"邮箱!

else%

请先进入注册页面!

这样用户在局域网的任何一个终端都可以进行邮箱的申请了。

, ,

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有