局域网的WIN2K服务器中各种WEB服务的设置（下）

出处：天极网作者：徐辉时间：2005-7-8 2:13:00

　　首先是安装IMAIL软件，我们用的是IMAIL8.0中文版，用户可到各大网站去下载非商用版本。
执行安装程序后系统会提示你决定让Imail使用哪一种数据库。Imail支持三种数据库：可以引用WindowsNT数据库，可以创建自己的账户数据库，也可以引用其他第三方数据库，

　　　　　　

　　我们假设一开始采用Imail自己的数据库，所以我们选择第二个，再按“Next”，又出现了一个对话框，问是否安装SSL　Key（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=" & dbpath
      Set Session(SessionName) = conn
   End If
   Set OpenOrGet_Database = Session(SessionName)
End Function
%>
usrinsert.asp(用于验证用户名是否合法，如果合法就添加该用户到数据库中)

<html>
<head>
<title>注册邮箱</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
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='" & request("username") & "'"
set rs1=conn.execute(sql)
if not (rs1.bof or rs1.eof) then
%>
<div align="center">
    <p> </p>
    <p> </p>
    <p>对不起，该用户名已存在,请返回后重新输入!<p>
    <p><A href="javascript:history.back()">返回</a></p>
</div>
<%response.end
end if
conn.execute "insert into swfzchz_com(userid,password,fullname,userdir,mailaddr,flags)" & " values(" & "'" & username & "'"

& "," & "'" & password1 & "'" & "," & "'" & name & "'" & "," & "'" & "c:\imail\swfzchz_com\users\" & username & "'" & "," &

"'" & username & "@swfzasp.com" & "'" & "," & "'" & "128" & "'" &")"
session("reif")="0"
%>
<p> </p>
<p align="center"><b><font size="4">恭喜你，已注册成功！请<a href="http://mail.swfzasp.com:8383/">登录</a></font><a

href="http://mail.swfzasp.com:8383/">邮箱</a>！</b></p>
<%
else%>
<div align="center">请先<a href="register.asp">进入注册页面</a>！
<%end if%>
</div>
</body>
</html>
这样用户在局域网的任何一个终端都可以进行邮箱的申请了。

分享到：

操作系统

局域网的WIN2K服务器中各种WEB服务的设置（下）