<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%qx=4%>
<!--#include file="top.asp"-->
<!--#include file="../leaguer/check.asp"-->
<!--#include file="../../include/conn.asp"-->
<!--#include file="../../include/jmail.asp"-->
<!--#include file="../../include/money.asp"-->
<!--#include file="../../include/config.asp"-->
<!--#include file="../../include/tishi.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../include/css.css" rel="stylesheet" type="text/css">
    <style type="text/css" media="screen">
	@import url("../home/css/sys/detail.php@t=20060522.css");
    body {
	margin-top: 0px;
}
</style>
</head>
<body><br>
<%
if shopnet("fee")<>"" and shopnet("id")<>"" then 
conn.execute("Update shop set fee=3 where id="&shopnet("id")&"")
Response.redirect "shopedit.asp?id="&shopnet("id")&""
Response.end 
end if
Select case request("x")
case "a"
conn.execute("Update shop set sl="&shopnet("sl")&",rq="&shopnet("rq")&",bz='"&shopnet("bz")&"',fw='"&shopnet("fw")&"',mail='"&shopnet("mail")&"' where id="&shopnet("id")&"")
Response.Write("<script>alert(""设置成功"");location.href=""shopedit.asp?xs="&request("xs")&"&txt="&request("txt")&"&page="&request("page")&"&id="&request("id")&""";</script>")
case "b"
id=shopnet("id")
set rs = conn.execute("select * from shop where id="&id&"")

'发信开始
email=rs("mail")
'存档
shijian=dateadd("d",365,now())

conn.execute("Update shop set zt=2,sj2='"&now()&"',sj3='"&shijian&"' where id="&id&"")
'发信
html="<html><head><title>感谢您的注册</title><meta http-equiv=Content-Type content=text/html; charset=gb2312></head><body bgcolor=#FFFFFF text=#000000>"
html=html&"亲爱的"&rs("name2")&",您好！<br><br>　 您提交的个人商店申请，已经审核通过，系统已经自动为您开通正式营业账号。<br>"
html=html&"　 欢迎您使用<a href=http://"&my_url&" target=""_blank"">"&my_name&"</a>提供的网上个人商店。<br>"
html=html&"	 您的商店网址为：<a href=http://"&my_url&"/store/1/myshop.asp?shopid="&rs(0)&" target=""_blank"">http://"&my_url&"/store/1/myshop.asp?shopid="&rs(0)&"</a>"
nr=html&"<br><br>"&email_bd&"</body></html>"
bt = "您已经开通"&my_name&"正式网站营业账号"
if mailserver="0" then
smtp email,bt,nr
elseif mailserver="1" then
Call jmail1(email,bt,nr)
end if 
rs.close
Response.Write("<script>alert(""设置成功"");location.href=""index1.asp?xs="&request("xs")&"&txt="&request("txt")&"&page="&request("page")&""";</script>")
case "c"
id=shopnet("id")
conn.execute("Update shop set zt=4 where id="&id&"")
conn.execute("Update chanpin set cang=1 where userid="&id&"")
Response.Write("<script>alert(""设置成功"");location.href=""index1.asp?xs="&request("xs")&"&txt="&request("txt")&"&page="&request("page")&""";</script>")
case "d"
id=shopnet("id")
s=now()
set rs = conn.execute("select * from shop where id="&id&"")
email=rs("mail")
conn.execute("Update shop set zt=1,sj2='"&s&"',rq=7 where id="&id&"")
html="<html><head><title>感谢您的注册</title><meta http-equiv=Content-Type content=text/html; charset=gb2312></head><body bgcolor=#FFFFFF text=#000000>"
html=html&"亲爱的"&rs("name2")&",您好！<br><br>　 您提交的<B>A型免费版（限50个产品内）</b>个人商店申请，已经审核通过，系统已经自动为您开通7天免费试营业账号。<br>"
html=html&"　 欢迎您使用<a href=http://"&my_url&" target=""_blank"">"&my_name&"</a>提供的网上个人商店。<br>"
html=html&"如果您对我们的服务感到满意，您可以申请收费型店铺，以便我们能更好的为您服务:<b>收费店铺为"&my_shop_c&"元/年（"&my_info_B&"）</b>。<br>"
html=html&"	 您的商店网址为：<a href=http://"&my_url&"/store/1/myshop.asp?shopid="&rs(0)&" target=""_blank"">http://"&my_url&"/store/1/myshop.asp?shopid="&rs(0)&"</a>"
nr=html&"<br><br>"&email_bd&"</body></html>"
bt="您已经开通试营业账号"
if mailserver="0" then
smtp email,bt,nr
elseif mailserver="1" then
Call jmail1(email,bt,nr)
end if 
rs.close
Response.Write("<script>alert(""设置成功"");location.href=""index1.asp?xs="&request("xs")&"&txt="&request("txt")&"&page="&request("page")&""";</script>")

case else
set rs = conn.execute("select * from shop where id="&shopnet("id")&"") %>
    <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#183789" >
  <tr bgcolor="#FFFFFF"> 
    <td height="25" colspan="2" align="center" valign="middle"  background="../images/admin_bg_4.gif" bgcolor="#FFFFFF" ><strong>&nbsp;<font color="#FF3333"><%=rs("name")%></font><span style="color: #FFFFFF">店铺详细信息</span></strong></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="150" height="25" align="right" valign="middle">名称&nbsp;</td>
    <td width="350" height="25" valign="middle">&nbsp; <%=rs("name")%></td>
  </tr>
  <form name="myform" method="post" action=?x=e&xs=<%=request("xs")%>&txt=<%=request("txt")%>&page=<%=request("page")%>&id=<%=request("id")%>>
    <tr bgcolor="#FFFFFF"> 
      <td height="25" align="right" valign="middle">会员&nbsp;</td>
      <td height="25" valign="middle">&nbsp; <input name="huiyuan" type="text" class="wenbenkuang" id="huiyuan" value="<%=rs("huiyuan")%>" size="20" maxlength="32"></td>
    </tr>
  </form>
  <tr bgcolor="#FFFFFF"> 
    <td width="150" height="25" align="right" valign="middle">负责人&nbsp;</td>
    <td height="25" valign="middle">&nbsp; <%=rs("name2")%>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="150" height="25" align="right" valign="middle">公司地址&nbsp;</td>
    <td height="25" valign="middle">&nbsp; <%=rs("dz")%></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="150" height="25" align="right" valign="middle">邮编&nbsp;</td>
    <td height="25" valign="middle">&nbsp; <%=rs("pc")%></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="150" height="25" align="right" valign="middle">电话&nbsp;</td>
    <td height="25" valign="middle">&nbsp; <%=rs("tel")%></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="150" height="25" align="right" valign="middle">传真&nbsp;</td>
    <td height="25" valign="middle">&nbsp; <%=rs("fax")%></td>
  </tr>
  <form name="myform" method="post" action=?x=a&xs=<%=request("xs")%>&txt=<%=request("txt")%>&page=<%=request("page")%>>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" height="25" align="right" valign="middle">E-mail信箱&nbsp;</td>
      <td height="25" valign="middle">&nbsp; <input name="mail" type="hidden" class="wenbenkuang" id="mail" value="<%=rs("mail")%>" size="15" maxlength="50"><%=rs("mail")%><a href="mailto:<%=rs("mail")%>"></a></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" height="25" align="right" valign="middle">销售商品数量&nbsp;</td>
      <td height="25" valign="middle">&nbsp; <input name="sl" type="text" class="wenbenkuang" id="sl" value="<%=rs("sl")%>" size="5">
        个</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" height="25" align="right" valign="middle">增加店铺使用时间&nbsp;</td>
      <td height="25" valign="middle">&nbsp; <input name="rq" type="text" class="wenbenkuang" id="rq" value="<%=rs("rq")%>" size="5">
        天&nbsp;&nbsp;&nbsp;</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" height="25" align="right" valign="middle">申请注册日期&nbsp;</td>
      <td height="25" valign="middle">&nbsp; <%=rs("sj")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" height="25" align="right" valign="middle">审核开通日期&nbsp;</td>
      <td height="25" valign="middle">&nbsp; <%Select case rs("zt")
   case "0"
Response.Write("<tont color=#ff6600>[尚未开通]</font>")
   case "1"
Response.Write("<tont color=#ff3300>"&rs("sj2")&"</font>[试营业]")
   case "2"
Response.Write("<tont color=#ff3300>"&rs("sj2")&"</font>[营业中]")
   case "3"
Response.Write("<tont color=#ff3300>"&rs("sj2")&"</font>[已过期]")
   case "4"
Response.Write("[已作废]")
End Select%> <input name="id" type="hidden" id="id" value="<%=request("id")%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="25" align="right" valign="middle">店铺到期时间&nbsp; </td>
      <td height="25" valign="middle">&nbsp; <%=rs("sj3")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="25" align="right" valign="middle">商家注册时IP&nbsp;</td>
      <td height="25" valign="middle">&nbsp; <%=rs("ip1")%> [网站流量<%=rs("jishu")%>人次]</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="25" align="right" valign="middle">收费类型&nbsp; </td>
      <td height="25" valign="middle"><%if rs("fee")=0 then response.write"免费" else response.write"收费" end if%>店铺
      <%if rs("fee")=1 then%>(<%if rs("fee")=3 then%>已经付款<%else%><a href="?fee=3&id=<%=shopnet("id")%>">如果已经收到费用,请点击这里!</a><%end if%>)<%end if%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="25" align="right" valign="middle">店铺介绍&nbsp;</td>
      <td height="25" valign="middle">&nbsp; <textarea name="fw" cols="60" rows="2" class="wenbenkuang" id="fw"><%=rs("fw")%></textarea></td>
    </tr>
    
    
    <tr align="center" bgcolor="#FFFFFF"> 
      <td height="25" colspan="2" valign="middle" bgcolor="#FFFFFF"> <input name="Submit" type="button" class="go-wenbenkuang" value="免费店铺开通" onClick="window.location='shopedit.asp?x=d&xs=<%=request("xs")%>&txt=<%=request("txt")%>&page=<%=request("page")%>&id=<%=request("id")%>'"> 
        <input name="Submit3" type="button" class="go-wenbenkuang" value="收费店铺开通" onClick="window.location='shopedit.asp?x=b&xs=<%=request("xs")%>&txt=<%=request("txt")%>&page=<%=request("page")%>&id=<%=request("id")%>'"> 
        <input name="Submit3" type="button" class="go-wenbenkuang" value="店铺锁定" onClick="window.location='shopedit.asp?x=c&xs=<%=request("xs")%>&txt=<%=request("txt")%>&page=<%=request("page")%>&id=<%=request("id")%>'"> 
        <input name="Submit" type="submit" class="go-wenbenkuang" value="修改确认"> 
      <input name="Submit3" type="button" class="go-wenbenkuang" value="返回上页" onClick="window.location='index1.asp?xs=<%=request("xs")%>&txt=<%=request("txt")%>&page=<%=request("page")%>'"></td>
    </tr>
  </form>
</table>
    <br>
</body>
</html><%rs.close
set rs=nothing
End Select
conn.close
set conn=nothing
%>
