邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 登录邮件后如何直接打开listmail.asp，象163一样，不用按“收件箱”才能打开 [打印本页]

作者: liujingzhang 时间: 2008-2-9 21:04
标题: 登录邮件后如何直接打开listmail.asp，象163一样，不用按“收件箱”才能打开
如题，如何修改welcome.asp代码？

作者: humbass 时间: 2008-2-11 01:05
将以下文件保存为 welcome.asp

'============ code start  ==========================



<%
dim ei
set ei = server.createobject("easymail.UserWeb")
'-----------------------------------------

ei.Load Session("wem")

if ei.ChooseColorIndex > 0 and ei.ChooseColorIndex < 10 then
      dim mam
      set mam = server.createobject("easymail.AdminManager")
      mam.Load

      mam.GetSysColor ei.ChooseColorIndex, sc_name, sc_color
      showcstr = sc_color

      sc_name = NULL
      sc_color = NULL

      set mam = nothing
else
      showcstr = ei.OwnColor
end if

if Len(showcstr) <> 66 then
      showcstr = csbi_color_str_default
end if

Session("my_Show_Color") = showcstr

Session("pl") = ei.pageLines
Session("addomail") = ei.orMailForReply
Session("delProc") = ei.delProc

if ei.addInSubjectForReply = 0 then
      Session("addsubject") = "> "
elseif ei.addInSubjectForReply = 1 then
      Session("addsubject") = "Re: "
elseif ei.addInSubjectForReply = 2 then
      Session("addsubject") = "回复: "
end if

set ei = nothing
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" c>
<TITLE>WinWebMail - <%=Session("mail") %></TITLE>
</HEAD>

<frameset cols="150,*" frameborder="NO" border="0" framespacing="0" rows="*">
  <frame id=f1 name="f1" scrolling="AUTO" noresize src="left.asp?<%=getGRSN() %>" marginWidth=5 marginHeight=20>
  <frame id=f2 name="f2" src="listmail.asp?mode=in&<%=getGRSN() %>">
</frameset>
</HTML>

'===============  code end =========================================

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.cn/)