<%@ 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%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>
　群发邮件
<%=htmlwrite("html6")%>
<br>
<%if request.QueryString("type")="user" then%>
<form name="form1" method="post" action="gemailsendtouser.asp?<%=request.QueryString%>">
<%elseif request.QueryString("type")="agent" then%>
<form name="form1" method="post" action="gemailsendtoagent.asp?<%=request.QueryString%>">
<%elseif request.QueryString("type")="server" then%>
<form name="form1" method="post" action="gemailsendtoserver.asp?<%=request.QueryString%>">
<%elseif request.QueryString("type")="icp" then%>
<form name="form1" method="post" action="gemailsendtoicp.asp?<%=request.QueryString%>">
<%else%>
<form name="form1" method="post" action="gemailsend.asp?<%=request.QueryString%>">
<%end if%>
  标　　题：
    <input name="suject" type="text" id="suject" value="<%
	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%>" size="40">
  <br>
  <br>
  邮件内容：
  <textarea name="body" cols="40" rows="20" id="body"><%
	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%></textarea>
  可以用html语法，换行请用&lt;br&gt;<br>
  <%if request.QueryString("type")="icp" then%>
  <br>请选择类型：
  <select name="op">
  <option value="0">未录入数据</option>
		  <option value="1">管理员录入数据</option>
            <option value="2">用户已录入数据</option>
			<option value="3">管理员已审核</option>
			<option value="4">用户需补充数据</option>
			<option value="5">已提交工信部</option>
			<option value="6">备案审核未通过</option>
			<option value="7">备案成功</option>
  </select>
<br><br>
  <%end if%>
  <input type="submit" name="Submit" value="马上发送">
</form>
<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
