disposal.asp

购物系统时尚版.强大的后台文章编辑器的功能

<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<!--#include file="../my_lib/email.asp"-->
<%
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("<script>alert(""处理成功"");location.href=""new_order.asp"";</script>")
%>