谢谢，我还是把被我替换的页面发上来，不过看起来好像没什么问题：
<!--#include file="passinc.asp" -->
<%
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" content="text/html; charset=gb2312">
<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="viewmailbox.asp?noticemsg=<%=trim(request("noticemsg")) %>&<%=getGRSN() %>">
</frameset>
</HTML>
