郁闷,哪为朋友帮帮我

coca · 发表于 2006-2-22 02:46:20

问题一:我现在用的是3705的,原本以前是用3626的,以前用了一个登入界面,后面是可以选择域名的,现在想把他弄成,如果别人输入什么域名为mail.xxx.com则下面的域名自动写成xxx.com,不知道能不能实现 
 
问题二:原本我用的里面帐号全部都是没有带域名的,那现在想改成有带域名的,不知道能不能改变 
 
希望各位大侠帮帮我,小弟再次谢过了!

coca · 发表于 2006-2-22 13:02:47

没有人在吗

only · 发表于 2006-2-22 13:36:21

我现在提供的模版都具有这个功能！请看至顶帖子下载！

coca · 发表于 2006-2-22 14:06:57

能不能教教如何修改?

byxjl · 发表于 2006-2-22 14:45:21

问题一:可以实现！ 
实现代码 
<% 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
%> 
 
<% 
hname=Request.ServerVariables ("http_host") 
 
 
if left(hname,4)="www." then 
hname=right(hname,len(hname)-4) 
end if 
 
if left(hname,5)="mail." then 
hname=right(hname,len(hname)-5) 
end if 
 
if instr(1,request("username"),"@")>0 and instr(1,request("username"),".")>0 then 
un = trim(request("username")) 
else 
un = trim(request("username")) & "@" & hname 
end if 
 
if request("username") = "admin" then 
un="admin" 
end if 
 
pw = trim(request("pwhidden")) 
saveUser = trim(request("saveUser")) 
cleancookies = trim(request("cleancookies")) 
 
if cleancookies = "true" then 
Response.Cookies("accounts") = "" 
end if 
 
showaccounts = trim(request.Cookies("accounts")) 
 
Response.Cookies("name") = "" 
dim ei 
dim errmsg 
errmsg = trim(request("errstr")) 
 
 
if IsEmpty(Application("em_MaxMPOP3")) and IsEmpty(Application("em_MaxSigns")) then 
dim mam 
set mam = server.createobject("easymail.AdminManager") 
 
tmp_num = 0 
do while tmp_num < 30 
mam.LoadExt 
 
if mam.IsLoadOK = true then 
Exit Do 
end if 
 
mam.Sleep 500 
tmp_num = tmp_num + 1 
loop 
 
if mam.IsLoadOK = true then 
Application("em_MaxMPOP3") = mam.MaxMPOP3 
Application("em_MaxSigns") = mam.MaxSigns 
Application("em_SystemAdmin") = LCase(mam.SystemAdmin) 
Application("em_EnableBBS") = mam.EnableBBS 
Application("em_Enable_SignHold") = mam.Enable_SignHold 
Application("em_Enable_FreeSign") = mam.Enable_FreeSign 
Application("em_Enable_SignWithDomainUser") = mam.Enable_SignWithDomainUser 
Application("em_Enable_SignNumberLimit") = mam.Enable_SignNumberLimit 
Application("em_SignNumberLimitDays") = mam.SignNumberLimitDays 
Application("em_Enable_ShareFolder") = mam.Enable_ShareFolder 
Application("em_Enable_SignEnglishName") = mam.Enable_SignEnglishName 
Application("em_LogPageKSize") = mam.LogPageKSize 
Application("em_TestAccounts") = LCase(mam.TestAccounts) 
Application("em_SignMode") = mam.SignMode 
Application("em_SignWaitDays") = mam.SignWaitDays 
Application("em_am_Name") = mam.am_Name 
Application("em_am_Accounts") = LCase(mam.am_Accounts) 
Application("em_AccountsAdmin") = LCase(mam.AccountsAdmin) 
 
Application("em_EnableTrap") = mam.EnableTrap 
if mam.EnableTrap = true then 
Application("em_TrapMail") = mam.TrapMail 
end if 
 
set mam = nothing 
else 
set mam = nothing 
response.redirect "outerr.asp?errstr=" & Server.URLEncode("超时, 请重试") & "&" & getGRSN() 
end if 
end if 
 
 
if un <> "" and pw <> "" and Request.ServerVariables("REQUEST_METHOD") = "POST" then 
un = LCase(un) 
pw = strDecode(pw, trim(request("picnum"))) 
 
 
if un <> Application("em_SystemAdmin") then 
dim webkill 
set webkill = server.createobject("easymail.WebKill") 
webkill.Load 
 
rip = Request.ServerVariables("REMOTE_ADDR") 
 
if webkill.IsKill(rip) = true then 
set webkill = nothing 
response.redirect "outerr.asp?errstr=" & Server.URLEncode("拒绝IP地址 " & rip & " 访问") & "&" & getGRSN() 
end if 
 
set webkill = nothing 
end if 
 
 
set ei = Application("em") 
Session("wem") = "" 
Session("mail") = "" 
Session("tid") = "" 
Session("SecEx") = "" 
Session("scpw") = "" 
Session("cert_ca") = "" 
 
 
dim pwwt 
pwwt = ei.PassWordWaitMinute 
 
dim checkret 
checkret = ei.CheckPassWordEx(un, pw, Request.ServerVariables("REMOTE_ADDR")) 
 
if checkret = 0 then 
if un = Application("em_SystemAdmin") and ei.CheckAdminIP(Request.ServerVariables("REMOTE_ADDR")) = false then 
set ei = nothing 
 
errmsg = "管理员登录IP地址错误。" 
else 
Session("tid") = ei.Login(un) 
Session("wem") = un 
Session("mail") = ei.GetUserMail(un) 
set ei = nothing 
 
dim mri 
set mri = server.createobject("easymail.MoreRegInfo") 
mri.LoadRegInfo un 
mri.CurrentlyIP = Request.ServerVariables("REMOTE_ADDR") 
mri.SaveRegInfo 
set mri = nothing 
 
 
if saveUser = "true" then 
Response.Cookies("accounts") = un 
Response.Cookies("accounts").Expires = DateAdd("y", 5, Now()) 
end if 
 
SecEx = trim(request("SecEx")) 
if SecEx = "true" then 
Session("SecEx") = "1" 
else 
Session("SecEx") = "0" 
end if 
 
 
dim userweb 
set userweb = server.createobject("easymail.UserWeb") 
userweb.Load Session("wem") 
 
ShowLanguage = userweb.ShowLanguage 
 
set userweb = nothing 
 
if ShowLanguage = 1 then 
Response.Redirect "en/welcome.asp" 
else 
Response.Redirect "welcome.asp" 
end if 
end if 
elseif checkret = 2 then 
set ei = nothing 
 
errmsg = "连续三次输入密码错误，请过" & pwwt & "分钟后再试。" 
else 
set ei = nothing 
 
errmsg = "错误的用户名或密码！请再次输入。" 
end if 
end if 
 
if trim(request("logout")) = "true" then 
if Session("wem") <> "" then 
Application("em").Logout Session("wem"), Session("tid") 
end if 
 
Session("wem") = "" 
Session("mail") = "" 
Session("tid") = "" 
Session("SecEx") = "" 
Session("scpw") = "" 
Session("cert_ca") = "" 
end if 
%> 
 
<html> 
<head> 
<META HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312"> 
<title><% = hname %> 电子邮局</title> 
<link href="image2006/2006.css" rel="stylesheet" type="text/css"> 
 
<SCRIPT LANGUAGE=javascript> 
 
</SCRIPT> 
</head> 
 
<body LANGUAGE=javascript onLoad="return window_onload()"> 
<form name="f1" method="post" action="default.asp"> 
<input type="hidden" name="username"> 
<input type="hidden" name="pwhidden"> 
<input type="hidden" name="picnum" value="<%=createRnd() %>"> 
<input type="hidden" name="saveUser"> 
<input type="hidden" name="SecEx"> 
</form> 
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="150" colspan="2"></td> </tr> <tr> <td width="750" height="237" valign="middle" background="image2006/1024.gif"><table width="300" border="0" align="right" cellpadding="0" cellspacing="0"> 
<tr> 
<td align="center"> 
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td height="30"><img src="image2006/button_70.gif" width="71" height="25"></td> <td align="left"> 
<% if showaccounts = "" then %> 
<input type="text" id="usernameshow" name="usernameshow" maxlength="64" class="input01"> 
@<%= hname %><input name="hname" type="hidden" id="hname" value="@<%=hname%>"> 
<% else %> 
<%=showaccounts %> 
<% end if %></td> </tr> <tr> <td height="30"><img src="image2006/button_72.gif" width="71" height="25"></td> <td width="220"><input type="password" id="pwshow" name="pwshow" maxlength="32" class="input01"></td> </tr> </table> 
</td> 
</tr> 
<% if showaccounts = "" then %> 
<tr> <td width="300" height="25" align="center"> <input type="checkbox" id="showSecEx" name="showSecEx">增强安全性 
<input type="checkbox" id="showsaveUser" name="showsaveUser">记住用户名</td> </tr> 
<% 
else 
%> <tr> <td height="25" align="center"> <input type="checkbox" id="showSecEx" name="showSecEx">增强安全性 
<a href="default.asp?cleancookies=true">改用其他身份登录</a></td> </tr> 
<% 
end if 
%> <tr> <td height="25" align="center"><% 
if Application("em_Enable_FreeSign") = true then 
%>[<a href="create.asp?<%=getGRSN() %>">申请邮箱</a>]<% 
end if 
%>[<a href="forgetbf.asp?<%=getGRSN() %>">忘记密码</a>]</td> </tr> <tr> <td align="center"><input type=image onClick="javascript:gook()" value=" 确定 " src="image2006/button_74.gif"></td> </tr> </table></td> <td width="243" height="237" valign="top" background="image2006/10240.gif"></td> </tr> <tr> <td colspan="2" valign="top"> 
<table width="320" border="0" align="center" cellpadding="0" cellspacing="8"> <tr> <td>本系统支持WEB或者POP3收发邮件 如果要使用Foxmail等软件收发邮件 请注意 SMTP服务器和 POP3服务器都是mail.<%= hname %> 而用户名要填 user@<%= hname %> 帐户添加完毕后，还需进行smtp认证设置,以Foxmail为例 进入Foxmail帐户—属性，在弹出的帐户属性邮件服务器设置窗口中，在“SMTP服务器需要身份验证”前打勾</td> </tr> </table> 
</td> </tr> 
</table> 
 
<% 
if Application("em_EnableTrap") = true then 
%> 
<div style="position:absolute; top:0; left:0; z-index:0; visibility:hidden"> 
<a href="mailto:<%=Application("em_TrapMail") %>"><%=Application("em_TrapMail") %></a> 
</div> 
<% 
end if 
%> 
<% 
function getGRSN() 
dim theGRSN 
Randomize 
theGRSN = Int((9999999 * Rnd) + 1) 
 
getGRSN = "GRSN=" & CStr(theGRSN) 
end function 
 
function createRnd() 
dim retval 
retval = getGRSN() 
 
if Len(retval) > 4 then 
retval = Right(retval, 4) 
end if 
 
if Left(retval, 1) = "0" then 
retval = "5" & Right(retval, 3) 
end if 
 
createRnd = retval 
end function 
 
function strDecode(sd_Data, sd_bassnum) 
dim sd_vChar 
dim sd_NewData 
dim sd_TempChar 
sd_vChar = 1 
 
do 
if sd_vChar > Len(sd_Data) then 
exit do 
end if 
 
sd_TempChar = CLng(Mid(sd_Data, sd_vChar, 5)) 
sd_TempChar = ChrW(65535 + sd_bassnum - sd_TempChar) 
 sd_NewData = sd_NewData & sd_TempChar 
sd_vChar = sd_vChar + 5 
loop 
 
strDecode = sd_NewData 
end function 
%> 
</body> 
</html> 
也可以联系我，给你文件 
 
问题二:能改变。需登录服务器，进入winweb控制台菜单——工具——帐号类型转换，选择需要转换的帐号进行转换就可以了！

		自动登录	找回密码
密码			会员注册

郁闷,哪为朋友帮帮我

re:没有人在吗

re:我现在提供的模版都具有这个功能！请看至顶...

re:能不能教教如何修改?

re:问题一:可以实现！实现代码