下面可以用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(用于验证用户名是否合法，如果合法就添加该用户到数据库中)
<!--#include file="./public/function.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="/Upload/2005-09/266915.bmpzasp.com:8383/">登录</a></font><a
href="/Upload/2005-09/266915.bmpzasp.com:8383/">邮箱</a>！</b></p>
<%
else%>
<div align="center">请先<a href="register.asp">进入注册页面</a>！
<%end if%>
</div>
</body>
</html>
这样用户在局域网的任何一个终端都可以进行邮箱的申请了。