<!--#include file="conn.asp" -->
<!--#include file="mail_inc.asp" -->
<% user=session("us") 
if not session("sel") then
Response.redirect "usdl.asp"
end if
application.lock
sql="select * from shop order by id desc"
rs.open  sql,conn,2,3
if not rs.eof then 
id1=rs("id")+1000
else
id1=1000
end if
rs.addnew
rs("bh")=id1
rs("userid")=session("us")
rs("ll")=Request.Form("ll")

hostje1=""
hostje2=""
if Request.Form("ll")="domain" then
s=instr(request("domain1"),"#")
hostje1=left(request("domain1"),s-1)
hostje2=mid(request("domain1"),s+1,len(request("domain1"))-s)

rs("jg")=hostje2
rs("je")=hostje2*Request.Form("sl")
u_je=hostje2*Request.Form("sl")
title2="域名/"& Request.Form("domain2")&"."&hostje1
else
rs("je")=Request.Form("hostje")*Request.Form("sl")
rs("jg")=Request.Form("hostje")
u_je=Request.Form("hostje")
title2=request("title")
end if
rs("sl")=Request.Form("sl")
rs("mc")=title2
rs.update
rs.close

if Request.Form("ll")="host" then
  sql="select * from host_shop "
  rs.open sql,conn,2,3
  rs.addnew
  rs("bh")=id1
  rs("mc")=Request.Form("title")
  rs("userid")=session("us")
  rs("ftp")=Trim(Request.Form("ftp"))
  rs("ftp_password")=Request.Form("ftp_password")
  rs("domain")=Trim(Request.Form("domain1"))&"."&Trim(Request.Form("domain2"))
  rs("nx")=Request.Form("sl")
  rs.update 
end if

if Request.Form("ll")="domain" then
sql="select * from domain_shop "
  rs.open sql,conn,2,3
  rs.addnew
  rs("bh")=id1

  rs("userid")=session("us")
   rs("sl")=Request("sl")
  rs("mc")=title2
  rs("domain")=Request.Form("domain2")&"."&hostje1
  rs("name")=Request.Form("name")
  rs("tel")=Request.Form("tel")
  rs("email")=Request.Form("email")
  rs("tel1")=Request.Form("tel1")
  rs("address")=Request.Form("address")
  rs("cs")=Request.Form("cs")
  rs("sf")=Request.Form("sf")
  rs("zzmc")=Request.Form("orgname")
  rs("zcr")=Request.Form("name")
  rs("zcrzz")=Request.Form("orgname2")
  rs("zcrmail")=Request.Form("email")
  
  rs.update
end if

if Request.Form("ll")="mail" then
sql="select * from mail_shop "
  rs.open sql,conn,2,3
  rs.addnew
  rs("bh")=id1
  rs("sl")=Request.Form("sl")
  rs("userid")=session("us")
  rs("mc")=Trim(Request.Form("title"))
  rs("domain")="www."&Request.Form("domain")
  rs.update
end if

if Request.Form("ll")="db" then
sql="select * from db_shop "
  rs.open sql,conn,2,3
  rs.addnew
  rs("bh")=id1
  rs("sl")=Request.Form("sl")
  rs("userid")=session("us")
  rs("mc")=Trim(Request.Form("title"))
  rs("uname")=Request.Form("uname")
    rs("upass")=Request.Form("upass")
  rs.update
end if

if Request.Form("ll")="promote" then
sql="select * from promote_shop "
  rs.open sql,conn,2,3
  rs.addnew
  rs("bh")=id1
  rs("sl")=Request.Form("sl")
  rs("userid")=session("us")
  rs("mc")=Trim(Request.Form("title"))
  rs("dlwz")=request("dlwz")
  rs("url")=request("url")
  rs("us")=request("us")
  rs("ps")=request("ps")
  rs("gjz")=request("gjz")
  rs("wzmc")=request("wzmc")
  rs("wzbak")=request("wzbak")
  rs("mail")=request("email")
  rs("name")=request("name")
  rs("tel")=request("tel")
  rs.update
end if

application.UnLock()


if page_jmail then

html="<p>"&session("us")&"你好：</p>"
html=html&"<ul><li> 　您在<a href='"&page_url&"' target='_blank'>"&page_name&"</a>訂購了以下產品：</li>"
html=html&"</ul><p>　<strong><font color='#006600'>"&request("title")&"　</font></strong></p>"
html=html&"<p> 一共金額 <font color='#FF0000'>￥ "&u_je&"</font></p><p>---------------------------------------------</p>"
html=html&page_shop_html
call SendMail(session("us_email"),"訂購成功",html) 
end if

Response.redirect "myshop.asp"
%>