CSDN博客

img sugar88

整合 MDaemon 到OA系统中的代码

发表于2005/1/3 17:37:00  1459人阅读

分类: MDaemon

<!--#include file="conn.asp" -->
<%
'********************************************************************
'**           整合 MDaemon 到OA系统中的代码                           **
'**      作者:enjoy 联系方式:aenjoy@126.com 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%>
0 0

相关博文

我的热门文章

img
取 消
img即使是一小步
也想与你分享
打开
img