<%@ Language=VBScript %> <% If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" end If if not ef Then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsregagn = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_AGENT where username='"&session("agentusername")&"'" dsregagn.Open Sql,conn,1,1 If IsNull(dsregagn("Mailfrom")) Then ef=True ec="用户管理中的发件人等信息没有设置，请先设置它。" Else session("Mail_from")=dsregagn("Mailfrom") session("Mail_fromName")=dsregagn("MailfromName") session("Mail_fromPass")=dsregagn("MailfromPass") session("Mail_fromServer")=dsregagn("MailfromServer") End If End If if not ef then%> <%session("FreeHostCom").FreeHost_WR("html5")%> 　群发邮件 <%session("FreeHostCom").FreeHost_WR("html6")%>
<%if request.QueryString("type")="user" then%>

<%elseif request.QueryString("type")="agent" then%> <%elseif request.QueryString("type")="server" then%> <%elseif request.QueryString("type")="icp" then%> <%else%> <%end if%> 标　　题： 虚拟主机即将到期通知<%end if%><% if Request.QueryString ("type")="email" then %>邮箱即将到期通知<%end if%><% if Request.QueryString ("type")="other" then %>即将到期通知<%end if%><% if Request.QueryString ("type")="Sql" then %>数据库即将到期通知<%end if%>" size="40">

邮件内容： <% if Request.QueryString ("type")="host" then %>您的虚拟主机即将到期，请您留意续期。有任何问题请与我们联系。<%end if%><% if Request.QueryString ("type")="email" then %>您的邮箱即将到期，请您留意续期。有任何问题请与我们联系。<%end if%><% if Request.QueryString ("type")="other" then %>您的产品即将到期，请您留意续期。有任何问题请与我们联系。<%end if%><% if Request.QueryString ("type")="Sql" then %>您的数据库即将到期，请您留意续期。有任何问题请与我们联系。<%end if%> 可以用html语法，换行请用<br>
<%if request.QueryString("type")="icp" then%>
请选择类型： 未录入数据 管理员录入数据 用户已录入数据 管理员已审核 用户需补充数据 已提交工信部 备案审核未通过 备案成功

<%end if%>

<%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>