Server.ScriptTimeout=999999
email=my_request("email",0)
zt=my_request("zt",0)
id=my_request("id",1)
if zt="已经发货" then
sql2="select server_name,login_name,login_pass,sender,sender_mail,content4,flag4 from email_system"
set rs2=conn.execute (sql2)
fwq=rs2(0)
passname=rs2(1)
password=rs2(2)
fa=rs2(3)
faemail=rs2(4)
txt=rs2(5)
flag4=rs2(6)
rs2.close
set rs2=nothing
if flag4=1 then
title="恭喜您，货物已经发出！"
hjf=3
Call SendAction (title,fwq,email,fa,txt,faemail,hjf,passname,password)
end if
end if
conn.execute("Update buyer set zt ='"&zt&"' where id="&id)
Response.Write("alert(""处理成功"");location.href=""new_order.asp"";")
%>
