程序实现
1.数据库连接程序
作用：ASP与数据库的连接，这样别的程序可以多次调用它，避免重复编写。如果以后需要修改数据库的连接方式也比较简单。这里使用ODBC的连接，安全性相对交高。
源码：
<% Set conn = Server.CreatObject("ADODB.Connection")conn.open "dbofmail" //dbofmail就是建立的ODBC数据源名称%>
2.用户邮箱申请界面
作用：用户在表单中填写申请信息，有用户名、密码、姓名，如果填写正确则转向邮箱处理程序。
3.拥护邮箱申请处理程序
作用：读取刚才表单中的值，到表中查找注册用户名的记录是否存在。如果已有记录，系统提示重填。否则添加记录到表中，申请成功，但是要等管理审核后方可使用。
源码：
<!--#include file="function.asp"-->
<html>
……
<body bgcolor="#FFFFFF" text="#000000">
<%
username=Request("username")//从表单中得到值，后面是密码和真实姓名
password1=Request("password1")
name=Request("name")
sql="select * from swfzasp_com where userid='"& request("username")&"'"//该查询语句用来查询对应用户名记录
set rs1=conn.execute(sql)//执行查询
if not (rs1.bof or rs1.eof) then//条件满足说明该用户名对应的记录已经存在了
respone.write "该用户名已存在，请<a href = 'jacascript:history.back()>' 返回</a>重添！"
else//下面语句在表中插入一条记录，userdir是在服务器上邮箱放置的路径，mailaddr是邮箱名，flags设置成129，代表“暂停使用”
conn.execute "insert into swfzasp_com (userid,password,fullname,userdir,mailaddr,flags) " & " values (" & " ' " & username & " ' " & "," & password1 & " ' " & "," & " ' " & "c:\imail\swfzasp_com\users\ " & username & " ' "& "," & "' " & username & "@swfzasp.com" & " ' " & "," & "' " & "129" & " ' " & ") "
response.write "恭喜你，已注册成功！不过要等管理审核后方可正式使用"
end if
%>
</body>
</html>
4.管理员审核用户程序
作用：管理员可以查看用户信息（密码除外），审核通过后，用户即可正常使用该邮箱（此处管理员可以不是imail管理员）。此处管理员进入时，应该需要键入用户名和密码。
源码：
<!--#include file="function.asp"-->
<%
//判断拥护是否按下了“验证通过”，如果是则把flags字段值修改成128
if request ("checkok")="1" then
sql1="update swfzasp_com set flags=128 where userid=' "+request("user") + " ' "
conn.execute (sql1)
end if
%>
<html>
……
<body>
<%
sql=" select * from swfzasp_com order by flags desc"//表中降序排列全部记录
set rs=conn.execute (sql)
%>
<table>
<tr>
<td>用户名</td>
<td>姓名</td>
<td>状态</td>
<td></td>
</tr>
<%
//下面的循环用来列出数据集rs中的所有记录
do while not rs.eof
%>
<tr>
<td><%=rs("userid") %></td>
<td><%=rs("fullname")%></td>
<td>
<%
if rs("flags") =129 then
response.write "暂停使用" else
response.write "正常使用"
end if
%>
</td>
<td>
<%if rs ("flags") =129 then
response.write "<a href='admincheck.asp?checkok=1&user="+rs("userid")+"' >审核通过</a>"
end if
%>
</td>
</tr>
<% rs.movenext loop%>
</table>
</body>
</html>
5.其他管理功能，删除用户，限制最大容量，都类似操作
一个简单的邮箱注册程序编好了，同样对于服务器端的FTP软件SERV-U，也不用每个用户手工添加，编写一个程序把用户注册接口提供给用户就可以了。
0 Comments