整合 MDaemon 到OA系统中的代码

<!--#include file="conn.asp" -->
<%
'********************************************************************
'** 整合 MDaemon 到OA系统中的代码 **
'** 作者：enjoy 联系方式：[e-mail] QQ:15159174 **
'** 2004-7-29 **
'********************************************************************
if session("pcbh")<>"" then

dim user,password,domain
user=session("pcbh")
password=session("pcmm")
domain="sohu.com"
set rs1=server.createobject("AdODB.RecordSet")
sql1="select DomainId from Domains where DomainName='"&domain&"'"
rs1.open sql1,conn,1,1
domainId=rs1("DomainId")



set rs=server.createobject("AdODB.RecordSet")
sql="select * from userlist where MailBox='"&user&"'"

rs.open sql,conn,1,3


'********************************************************************
'如果没有该用户的邮箱那么就创建，这里需要创建一个邮箱文件夹和一个用户帐号
'********************************************************************
if rs.eof then

dim Road '物理路径
Road = "C:\MDaemon\Users\"&domain

Set fso = Server.CreateObject("Scripting.FileSystemObject")
if Not(fso.FolderExists(Road+"\"+user)) then
set f = fso.CreateFolder(Road+"\"+user)
end if
Set fso = nothing

sql="insert into UserList(Mailbox,FullName,MailDir,Password,AutoDecode,IsForwarding,AllowAccess,AllowChangeViaEmail,KeepForwardedMail,HideFromEveryone,EncryptMail,ApplyQuotas,EnableMultiPop,CanModifyGAB,CalendarOnly,MaxMessageCount,MaxDiskSpace,DomainID) values('"&user&"','"&session("pcxm")&"','"&Road&"','"&password&"',0,0,1,1,1,0,0,0,0,0,0,0,0,"&domainId&")"

conn.execute(sql)


end if

call closeconn()
rs.close
set rs=nothing
rs1.close
set rs1=nothing


'********************************************************************
'跳转到邮箱，无需登陆
'********************************************************************
response.redirect "http://192.168.0.216:3000/WorldClient.dll?View=Main&user=";&User&"&password="&Password

end if%>