<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%qx=3%>
<!--#include file="../leaguer/check.asp"-->
<!--#include file="../../include/conn.asp"-->
<!--#include file="../../include/jmail.asp"-->
<!--#include file="../../include/config.asp"-->
<%
userid=shopnet("userid")

If shopnet("yes")="2" then
conn.execute("update rz set yz=2 where huiyuanid="&userid)
conn.execute("update huiyuan set rz="&shopnet("rz")&" where id="&userid)
'发邮件通知会员
set tg = conn.execute("select huiyuan,mail from huiyuan where id="&userid)
If tg.eof Then
response.write("<script>alert(""该会员不存在或者已经被删除！"");window.history.go(-1);</script>")
response.End
else
html="<html><head><title>会员认证通过</title><meta http-equiv=Content-Type content=text/html; charset=gb2312></head><body bgcolor=#FFFFFF text=#000000>"
html=html&"亲爱的"&tg(0)&",您好！<br><br> <a href=""http://"&my_url&""" target=_blank>"&my_name&"</a>通过了您的身份认证！您现在可以<a href=""http://"&my_url&"/leaguer/login.asp"" target=_blank>登录"&my_name&"</a>开设自己的个人网店！"
html=html&"   如需了解共多，可查看<a href=""http://"&my_url&"/gwznindex.asp"" target=_blank>"&my_name&"购物指南.</a><br>"
html=html&" <a href=""http://"&my_url&""" target=_blank>"&my_name&"</a><br>"
nr=html&"<br><br>"&email_bd&"</body></html>"
email = tg(1)
bt = "会员认证通过" 
if mailserver="0" then
smtp email,bt,nr
elseif mailserver="1" then
Call jmail1(email,bt,nr)
end if 
End If
tg.close
Set tg=nothing
Else
conn.execute("update rz set yz=1,rzjb=0 where huiyuanid="&userid)
conn.execute("update huiyuan set rz=0 where id="&userid)
'发邮件通知会员
set tg = conn.execute("select huiyuan,mail from huiyuan where id="&userid)
If tg.eof Then
response.write("该会员不存在或者已经被删除！/n返回")
response.End
else
html="<html><head><title>会员认证未通过</title><meta http-equiv=Content-Type content=text/html; charset=gb2312></head><body bgcolor=#FFFFFF text=#000000>"
html=html&"亲爱的"&tg(0)&",您好！<br><br> 对不起！<a href=""http://"&my_url&""" target=_blank>"&my_name&"</a>没有通过您的身份认证！您可以登录<a href=""http://"&my_url&""" target=_blank>登录"&my_name&"</a>联系我们！"
html=html&"   如需了解共多，可查看<a href=""http://"&my_url&"/gwznindex.asp"" target=_blank>"&my_name&"购物指南.</a><br>"
html=html&" <a href=""http://"&my_url&""" target=_blank>"&my_name&"</a><br>"
nr=html&"<br><br>"&email_bd&"</body></html>"
email = tg(1)
bt = "会员认证未通过" 
if mailserver="0" then
smtp email,bt,nr
elseif mailserver="1" then
Call jmail1(email,bt,nr)
end if 
End If
tg.close
Set tg=nothing

End if
Response.redirect "sfrz.asp"
rs.close
set rs=nothing

%>
