邮件服务器DB Mail Server中的账号密码及相关修改

邮件服务器DB Mail Server使用ms sql server来储存用户账号，对应的表是“ldap”。其中的密码是进行 base64 编码后保存在“ldap”表里。可以通过直接修改该字段进行用户密码修改。

 

把这个系统嵌入自己的系统中，可以做如下操作：

1、如果想去掉登入邮件后的头文件，需要修改：MAIL_ROOT/web/include/main_top.asp，把其内容全部删除即可

2、如果想去掉登录邮件后的左侧中的部分菜单列表，可以修改：MAIL_ROOT/web/include/main_left.asp，找到相应的部分注释或删除即可。比如，可以删除掉“退出登录”、“修改密码”等。

3、如果想通过发送链接来登录，可以修改：MAIL_ROOT/web/login.asp，把原来的代码：

	strAccPrefix = Lcase(Trim(Request.Form("fm_strAccPrefix")))
	strDomain = Lcase(Trim(Request.Form("fm_strDomain")))
	strAccount = strAccPrefix & "@" & strDomain

	strAccount = ReadParameter("fm_strAccount", strAccount, MethodPost)
	strAccPrefix = GetPrefix(strAccount)
	strDomain = GetDomain(strAccount)
	
	strPassword = Request.Form("fm_strPassword")
	strLanguage = Request.Form("fm_strLanguage")
	Session("ss_strAccount") = strAccount

 

改为：

	strAccPrefix = Lcase(Trim(Request.Form("fm_strAccPrefix")))
	strDomain = Lcase(Trim(Request.Form("fm_strDomain")))
	'----------------- add by tom begin -------------------
	strAccPrefix = Lcase(Trim(Request.QueryString("fm_strAccPrefix")))
	strDomain = Lcase(Trim(Request.QueryString("fm_strDomain")))
	'----------------- add by tom end ---------------------
	strAccount = strAccPrefix & "@" & strDomain

	strAccount = ReadParameter("fm_strAccount", strAccount, MethodPost)
	strAccPrefix = GetPrefix(strAccount)
	strDomain = GetDomain(strAccount)
	
	strPassword = Request.Form("fm_strPassword")
	strLanguage = Request.Form("fm_strLanguage")
	'----------------- add by tom begin -------------------
	strPassword = Lcase(Trim(Request.QueryString("fm_strPassword")))
	strLanguage = Lcase(Trim(Request.QueryString("fm_strLanguage")))
	'----------------- add by tom end ---------------------
	Session("ss_strAccount") = strAccount

 

这样就可以通过url来登录了。

4、要正确地登录，还要注意，要把密码用md5加密后发送，否则服务器端会提示密码错误。

5、为了防止其登录错误后返回到原来的登录页面，可以更改：login.asp，大约在80行左右的位置，有登录失败后的调整语句，把这个跳转语句注释掉，再加上错误提示即可，如：

		'----------------- modify by tom begin -------------------
		Response.write strErrMsg
		'Response.redirect gg_strDefaultPage
		Response.End
		'----------------- modify by tom end ---------------------