
<%
response.buffer=false
%>
<!--#include virtual="/incs/config.asp"-->
<% Server.ScriptTimeOut=300 %>
<%
chk_log()
chk_newpwr 4,19,4
''''''''''''''''''''''''''''''''
conn.open constr
query="select * from pltcfg"
rs.open query,conn,1,1
if not rs.eof then
pl_emlbcc=trim(rs("pl_emladv"))
end if
rs.close
query="select * from emlsnd where m_tag='adv'"
rs.open query,conn,1,1
if rs.eof then
call errorpage(-2,"对不起，邮件发送参数有误！")
end if
m_day1=-cint(rs("m_day1"))
m_day2=-cint(rs("m_day2"))
m_day3=-cint(rs("m_day3"))
m_bcc=rs("m_bcc")
rs.close
if abs(m_day1)<9999 then
day11=dateadd("d",m_day1,date())
day12=dateadd("d",m_day1+1,date())
sndtag="or (v_exptme>='"&day11&"' and v_exptme<='"&day12&"') "
end if
if abs(m_day2)<9999 then
day21=dateadd("d",m_day2,date())
day22=dateadd("d",m_day2+1,date())
sndtag=sndtag&"or (v_exptme>='"&day21&"' and v_exptme<='"&day22&"') "
end if
if abs(m_day3)<9999 then
day31=dateadd("d",m_day3,date())
day32=dateadd("d",m_day3+1,date())
sndtag=sndtag&"or (v_exptme>='"&day31&"' and v_exptme<='"&day32&"') "
end if
if left(sndtag,2)="or" then
sndtag=right(sndtag,len(sndtag)-2)
end if
query="select * from v_adv where "&sndtag&"  and (v_regstt=1 or v_regstt=2) "
rs.open query,conn,1,1
if rs.recordcount<=0 then
call errorpage(-2,"当前没有满足条件的记录！")
end if
%>
<!--#include virtual="/incs/top.asp"-->
<table cellspacing=2 cellpadding=0 width="100%" border=0>
  <tbody> 
  <tr> 
    <td  colspan=2 valign="middle"> 
      <table class=line cellspacing=0 cellpadding=0 width="100%" 
                  border=0 align="center">
        <tbody> 
        <tr> 
          <td valign=bottom width="25%" height=20><b>续费邮件发送（网站推广）</b></td>
          <td valign=bottom noWrap align=right 
                        width="75%">&nbsp;</td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=5></td>
        </tr>
        <tr> 
          <td align=middle width="100%" colspan=2 height=2  class=menuline></td>
        </tr>
        </tbody> 
      </table>
      <br>
    </td>
  </tr>
  <tr> 
    <td  colspan=2 valign="middle" height="8" align="center"> 
    </td>
  </tr>
  </tbody> 
</table>
<table  cellspacing='0' cellpadding='0' align="center" id=rollbar>
  <tr> 
    <td align='center' valign='middle'> 
      <table cellspacing='0' cellpadding='2' style='font-size:9pt;'>
        <tr> 
          <td style='border-width:1px; border-style: groove;'><img id='subokk' src="/imgs/submitimg.gif" border='0' width='398' height='4'></td>
        </tr>
        <tr> 
          <td style='border-width:0px;' align='center' height='10'></td>
        </tr>
        <tr> 
          <td style='border-width:0px; font-family:宋体; font-size: 9pt;' align='center' height="10"> 
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="80%"  class=datalist>
  <tr> 
    <th  class=datalistheader   align='center' valign='middle' width="10%">序号</th>
    <th  class=datalistheader   align='center' valign='middle' width="22%">FTP名</th>
    <th  class=datalistheader   align='center' valign='middle' width="18%">到期日期</th>
    <th  class=datalistheader   align='center' valign='middle' width="18%">会员</th>
    <th  class=datalistheader   align='center' valign='middle' width="22%">邮箱</th>
    <th  class=datalistheader   align='center' valign='middle'>结果</th>
  </tr>
</table>
<%
rs.movefirst
countnum=1
while not rs.eof 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''发的过程
''''''''''''''''''''''
paras = paras & "u_nme:" & rs("u_nme") & Vend
paras = paras & "g_nme:" & rs("g_nme") & Vend
paras = paras & "g_prd:" & rs("g_prd") & Vend
paras = paras & "v_steurl:" & rs("v_steurl") & Vend
paras=paras&"v_exptme:"&year(rs("v_exptme"))&"-"&month(rs("v_exptme"))&"-"&day(rs("v_exptme"))&Vend
toemail=rs("u_eml")
If m_bcc = "1" Then
toemail = toemail & "," & pl_emlbcc
End If

mailtag="adv_rnw"
recs=jmail_feedback(toemail,mailtag,paras,true)
 if recs then
ifsendwrd="成功"
else
ifsendwrd="<font color=#ff0000>失败</font>"
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''发信完毕 
%>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="80%"  class=datalist>
  <tr> 
  <tr> 
    <td  class=datalistgrida   align='center' valign='middle' width="10%"><%=countnum%></td>
    <td  class=datalistgrida   align='center' valign='middle' width="22%"><a href="javascript:showurl('/master/pdtmng/adv_mng/adv_idx.asp?vid=<%=rs("v_id")%>');" class=commonface><%=rs("v_nme")%></a></td>
    <td  class=datalistgrida   align='center' valign='middle' width="18%"><%=rs("v_exptme")%></td>
    <td  class=datalistgrida   align='center' valign='middle' width="18%"><a href="javascript:showurl('/master/memmng/mem_dtl.asp?unme=<%=rs("u_nme")%>');" class=commonface><%=rs("u_nme")%></a></td>
    <td  class=datalistgrida   align='center' valign='middle' width="22%"><a  class=commonface href="mailto:<%=rs("u_eml")%>" %><%=rs("u_eml")%></a></td>
    <td  class=datalistgrida   align='center' valign='middle'><%=ifsendwrd%></td>
  </tr>
</table>

<%
countnum=countnum+1
rs.movenext	
wend	
query="update emlsnd set m_updtme=getdate() where m_tag='adv'"
conn.execute query,1,1

response.write "<script>"&vbcrlf
response.write "rollbar.style.display='none';"&vbcrlf
response.write "</script>"
			%>
<% Server.ScriptTimeOut=90 %>
<br>
<br>
<br>
<!--#include virtual="/incs/bottom.asp"-->


