Webshell Akmal archtte id

System: Microsoft Windows NT 10.0.20348.0

Server: Microsoft-IIS/10.0

User: buyyou

Directory: C:\MyData\WWW\asc365\

Name	Size	Type	Actions
ASC365_CANADA	-	Directory	Rename Delete
ASC365_Store01	-	Directory	Rename Delete
aspnet_client	-	Directory	Rename Delete
CompanyImage	-	Directory	Rename Delete
TJGS_USA	-	Directory	Rename Delete
zhijian	-	Directory	Rename Delete
Memo.inc	0 bytes	.inc	Edit Rename Delete
web.config	213 bytes	.config	Edit Rename Delete

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<style type="text/css">

</style>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link rel="stylesheet" href="css/style.css" type="text/css" media="screen" />

<title></title>
<script type="text/javascript">
function check()
{
	if(document.payment.terms.checked==false)
	{
		alert("You have to agree with the terms before pay for it");
		document.payment.terms.focus();
		return false;
	}
	else
	{
	   return true;
	}
}
</script>
</head>
<body style="width:1000px; text-align:left; margin:0 auto;background-color:#F1F1F1;">
<table style="width:1000px; background-color:#FFFFFF">
<tr>
<td>
<div style="width:1000px">
<%
server.Execute("head.asp")
%>
</div>
<%

'����һЩ��������
Dim site_url			'��Ŀ¼
Dim pp_test				'�Ƿ����
Dim key_salt			'�����õ���Կ
Dim pp_url				'���post�ύ��paypal�ĵ�ַ��������� ���ò��Ե�ַ��������ʵ��ַ
Dim pp_business			'��ҵ�paypal�˻�
Dim pp_cmd				'�ύ��paypal����ʲô����
Dim pp_order_status
Dim pp_notify_url		'���֧���ɹ���paypal�ص�������վ�����ӵ�ַ
Dim pp_return_url		'֧���ɹ��ķ������ӵ�ַ
Dim pp_lc
Dim pp_paymentaction
Dim pp_currency_code
Dim pp_cancel_return
Dim pp_cert_id
Dim pp_email			'���email��paypal�˻����Ǳ���
Dim pp_order			'������
Dim pp_invoice
'Dim pp_Weight			'Total weight
'Dim pp_Subtotal			'Subtotal
Dim pp_ship				'��װ�Ѽ��˷�
Dim pp_tax				'˰��
Dim Ship_to_country
Dim SS(1000,7)
dim CC(6)
dim BB(8)
Dim yunfei

Check_flag_B1=1
Check_flag_B2=1
pp_test=false				'�Ƿ����
if pp_test=true then		'���post�ύ��paypal�ĵ�ַ��������� ���ò��Ե�ַ��������ʵ��ַ
	pp_url="https://www.sandbox.paypal.com/cgi-bin/webscr"
	pp_business="damao7_1343717884_biz@163.com"					'��ҵ�paypal�˻�
else
	pp_url="https://www.paypal.com/cgi-bin/webscr"
	pp_business="atpp20230612@buyyou.net"					'"wh717@hotmail.com"							'��ҵ�paypal�˻�
end if

'if left(Session("IFlogin"),2)<>"##" then  Response.Redirect  "?ID=LO"
Set fs=Server.CreateObject("Scripting.FileSystemObject") 
Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")  '��������URL
if len(Request.QueryString)<>0 then 
	thispage1=thispage& "?"&"ID=MyAsc365"   '������URL
else
	Thispage1=thispage
	
end if
'------------------------------------------
ASC365_Cart_001=request.Cookies("ASC365_Cart_001")			'���������
'response.Write(ASC365_Cart_001)

yunfei=0
Cart_js=0
if len(ASC365_Cart_001)<>0 then
	temp=split(ASC365_Cart_001,"|")
	N_js=ubound(temp)
	for ii=1 to N_js step 8
		SS(Cart_js,0)=temp(ii)		'��Ʒ����
		if  len(SS(Cart_js,0))>=6 then
		SS(Cart_js,1)=temp(ii+1)		'��Ʒ����
		SS(Cart_js,2)=temp(ii+2)		'��Ʒ����
		SS(Cart_js,3)=temp(ii+3)		'��Ʒ����
		SS(Cart_js,4)=temp(ii+4)		'����
		SS(Cart_js,5)=temp(ii+5)
		SS(Cart_js,6)=temp(ii+6)
		SS(Cart_js,7)=temp(ii+7)        'ƽ���˷�
		if(SS(Cart_js,6)<>"u") then
		set rs001=server.CreateObject("adodb.recordset")
		sql001="select * from newproductlist where productid='"&SS(Cart_js,0)&"'"
		rs001.open sql001,conn,1,1
		if not rs001.eof then
		   if rs001("tejia")=1 then
		      price001=rs001("price2")
		   else 
		      price001=rs001("price1")
		   end if
		    if rs001("usedstate")=1 then
			if SS(Cart_js,6)="u" then
		      price001=rs001("usedprice1")
			end if
		   end if
		   if price001=0 then
		      SS(Cart_js,0)=""
		   end if
		else
		    SS(Cart_js,0)=""
		end if
		SS(Cart_js,3)=price001
		SS(Cart_js,5)=rs001("baoyou")
		SS(Cart_js,7)=rs001("pjyunfei")
		rs001.close
		set rs001=nothing
		
		end if
		
		
		Cart_js=Cart_js+1
		
		
		end if
	next
end if

'-----------------------------------------------------------                                 '�ͻ����Recaculate
if Request("Action")="Change" then
	 productid=request("productid")
	 productnumber=request.Form("productnumber")
	 usedstate=request.Form("usedstate")
	 if isnumeric(productnumber)=false then
	    productnumber=0
	 end if
	 if usedstate="u" then
	    set rs21=server.CreateObject("adodb.recordset")
	      sql21="select * from usedproductlist where productid='"&productid&"'"
	      rs21.open sql21,conn,1,1
	    if not rs21.eof then
	       newnumber=rs21("store")
	       if newnumber*1 >= productnumber*1 and productnumber*1<>0 then
		     for ssd=0 to Cart_js-1
		       if SS(ssd,0)=productid  and SS(ssd,6)=usedstate then
		         SS(ssd,4)=productnumber
		       end if
		     next
	       elseif productnumber*1>newnumber*1 then
	         for ssd=0 to Cart_js-1
		       if SS(ssd,0)=productid  and SS(ssd,6)=usedstate then
		          SS(ssd,4)=newnumber
		       end if
		     next
	       else
		     for ssd=0 to Cart_js-1
		       if SS(ssd,0)=productid and  SS(ssd,6)=usedstate then
		          SS(ssd,0)="*"
		       end if
		     next
	       end if
	    end if
		rs21.close
		set rs21=nothing
	  else
	    if productnumber>0 then
	       for ssd=0 to Cart_js-1
		     if SS(ssd,0)=productid and SS(ssd,6)=usedstate then
		       SS(ssd,4)=productnumber 
		     end if
		   next
	    else
		   for ssd=0 to Cart_js-1
		      if SS(ssd,0)=productid and SS(ssd,6)=usedstate then
		         SS(ssd,0)="*"
		      end if
		   next
	    end if
	  end if
end if
'--------------------------------------------д�ز�����
ASC365_Cart_001=""

response.Cookies("ASC365_Cart_001")=ASC365_Cart_001
'------------------------------------------
ASC365_Cart_001=request.Cookies("ASC365_Cart_001")			'���������

Cart_js=0
if len(ASC365_Cart_001)<>0 then
	temp=split(ASC365_Cart_001,"|")
	N_js=ubound(temp)
	for i=1 to N_js step 8
	    if len(Temp(i))>=6 then
		SS(Cart_js,0)=temp(i)		'��Ʒ����
		SS(Cart_js,1)=temp(i+1)		'��Ʒ����
		SS(Cart_js,2)=temp(i+2)		'��Ʒ����
		SS(Cart_js,3)=temp(i+3)		'��Ʒ���
		SS(Cart_js,4)=temp(i+4)		'����
		SS(Cart_js,5)=temp(i+5)		'�Ƿ����
		SS(Cart_js,6)=temp(i+6)		'����
		SS(Cart_js,7)=temp(i+7)		'ƽ���˷�
		Cart_js=Cart_js+1
		end if
	next
end if

if request.form("B3")="Submit" then				'��ÿͻ���Ϣ

hasinfomation=0
 set rs=server.createobject("adodb.recordset")
 UserEmail=Session("UserEmail")
 if len(UserEmail)=0 then
	 UserEmail=Request.Cookies("UserEmail")
	 Session("UserEmail")=UserEmail
 end if
 sql="select * from useraddress where useremail='"&UserEmail&"'"
 rs.open sql,conn,1,1
 if not rs.eof then
 hasinfomation=1
 end if
 rs.close
 set rs=nothing
    set rs1=server.createobject("adodb.recordset")
	if lcase(trim(request.Form("T6")))<> "canada" and lcase(trim(request.Form("T6")))<>"united states" then
	paymenttype="OTHER"
	elseif request.Form("T2")="OTHER" then
	paymenttype="OTHER"
	else
	paymenttype="PAYPAL"
	end if
	if hasinfomation=0 then
	
	sql1="select * from useraddress"
	rs1.open sql1,conn,1,3
	rs1.addnew
	rs1("useremail")=session("UserEmail")
	rs1("username")=request.Form("T0")
	rs1("useraddress")=request.Form("T4")
	rs1("phonenumber")=request.Form("T1")
	rs1("city")=request.Form("T5")
	rs1("country")=request.Form("T6")
	rs1("zipcode")=request.Form("T3")
	rs1("newemail")=request.Form("T7")
	rs1("state")=request.Form("T8") & request.Form("S_state")
	rs1("payment")=paymenttype
	rs1("dingyue")=1
	rs1.update
	rs1.close
	set rs1=nothing
	
	else
	sql2="update useraddress set useremail='"&session("UserEmail")&"',username='"&request.Form("T0")&"',useraddress='"&request.Form("T4")&"',phonenumber='"&request.Form("T1")&"',city='"&request.Form("T5")&"',country='"&request.Form("T6")&"',zipcode='"&request.Form("T3")&"',newemail='"&request.Form("T7")&"',state='"&request.Form("T8") & request.Form("S_state")&"',dingyue=0,payment='"&paymenttype&"' where useremail='"&session("UserEmail")&"'"
	conn.execute sql2
	end if
	
	'�ٴ�ȡ����ַ
	
set rs3=server.createobject("adodb.recordset")
 UserEmail=Session("UserEmail")
 sql3="select * from useraddress where useremail='"&UserEmail&"'"

rs3.open sql3,conn,1,1
 if not rs3.eof then
 username=rs3("username")
 useraddress=rs3("useraddress")
 phonenumber=rs3("phonenumber")
 city=rs3("city")
 country=rs3("country")
 zipcode=rs3("zipcode")
 stateinfo=rs3("state")
 dingyue=rs3("dingyue")
 newemail=rs3("newemail")
 payment=rs3("payment")
 Cart_Info=username & "|"& phonenumber & "|"& payment & "|"& zipcode & "|"& useraddress & "|"& city & "|"& country & "|"&stateinfo&"|"
 response.Cookies("Cart_Info")=Cart_Info
 end if
 rs3.close
 set rs3=nothing
end if
'----------------------------------------------------------------
if Cart_js>0 then
  allpjyunfei=0
  jisuanwet=0
	JJ=0
	for n= 0 to Cart_js-1 
		mm=0
		JJ=0
		if  len(SS(n,0))>=6 then
		if SS(n,6)<>"u" then
		set rs11=server.CreateObject("adodb.recordset")
		sql11="select * from newproductlist where productid='"&SS(n,0)&"'"
		rs11.open sql11,conn,1,1
		typeid=rs11("typeid")
%>

<table border="1" width="900" height="40" style="border-collapse: collapse" bordercolor="#CCCCCC" rules="rows" cellpadding="0" cellspacing="0">
	<tr>
	<td height="80" width="80"><img border="0" src="<%=rs11("Imgprev")%>" height="80" width="80"></td>
		
	<td height="80" width="900">
  <form method="post" action="?Action=Change&productid=<%=SS(n,0)%>">
		<table width="900" height="78" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <th height="46" scope="col" ><div align="left" style="margin-left:30px"><font face="Verdana"><span style="font-size: 9pt; color:#000000"><b></b></span></font>
        <input type="hidden" name="newproductid"value="<%=SS(n,0)%>" />
        <%JJ=JJ+1%>
		<%
		   if SS(n,6)<>"u" then
		%>
        <font face="Verdana"><span style="font-size: 9pt; color:#000000"><b><a href="newProductDetail.asp?productid=<%=SS(n,0)%>&typeid=<%=typeid%>">(<%=SS(n,0)%>)<%=SS(n,1)%></a></b></span></font>
		<%
		   else
		%>
		<font face="Verdana"><span style="font-size: 9pt; color:#000000"><b><a href="newProductDetailused.asp?productid=<%=SS(n,0)%>&typeid=<%=typeid%>">(<%=SS(n,0)%>)<%=SS(n,1)%></a></b></span></font>
		<%
		   end if
		%>
        <input type="hidden" name="productname"value="<%=Server.HtmlEncode(SS(n,1))%>" />
        <%JJ=JJ+1%>
    </div></th>
    <th width="131" scope="col" valign="top"><div style="margin-top:6px">Weight:<%=SS(n,2)%>KG</div>
      <input type="hidden" name="weight" value="<%=SS(n,2)%>">
      <%JJ=JJ+1%>
      <input type="hidden" name="unitprice"value="<%=SS(n,3)%>">
      <%JJ=JJ+1%>    
    </th>
    <th width="162" scope="col"  valign="middle" align="right">
         Quantity:
        <input type="text" value="<%=SS(n,4)%>" name="productnumber"  size="6" style="font-size: 10px; font-family: Verdana"/>
        </br> <input type="submit" name="update" value="update" />
		<input type="hidden" value="<%=SS(n,6)%>" name="usedstate"  size="6" style="font-size: 10px; font-family: Verdana"/>
    </th>
    <th width="132" scope="col"  valign="top"><div align="right" style="margin-top:6px"><font face="Verdana"><span style="font-size: 9pt">$<%=Round((SS(n,3)*SS(n,4)),2)%></span></font></div></th>
  </tr>
  <tr>
    <th height="32" scope="col" >&nbsp;</th>
    <th scope="col" valign="top">&nbsp;</th>
    <th scope="col"  valign="top"><div align="right">
    </div></th>
    <th scope="col" >&nbsp;</th>
  </tr>
</table>
</form>
	</td>
		<% 
		pjyunfei=rs11("pjyunfei")
		
		if pjyunfei=0 then
		   jisuanwet=jisuanwet+SS(n,2)*SS(n,4)
		   allpjyunfei=allpjyunfei+rs11("yunfei")*1*SS(n,4)
		else
		   allpjyunfei=allpjyunfei+(pjyunfei+rs11("yunfei")*1)*SS(n,4)
		end if
		
		if isnumeric(SS(n,2))<>true then SS(n,2)=0
		if isnumeric(SS(n,3))<>true then SS(n,3)=0
		if isnumeric(SS(n,4))<>true then SS(n,4)=0
		'yunfei=yunfei*1+rs11("yunfei")*SS(n,4)
		TTP1=(TTP1*1)+Round((SS(n,3)*SS(n,4)),2)			'Subtotal
		if  SS(n,5)=0 then
		   TTW1=(TTW1*1)+(SS(n,2)*SS(n,4))	
		end if
		TTW=(TTW*1)+(SS(n,2)*SS(n,4))						'Total weight
		TTQ=(TTQ*1)+(SS(n,4)*1)								'Total num
		%>
	</tr>
</table>
	<%

%>
	  <%
	  else
	    set rs12=server.CreateObject("adodb.recordset")
		sql12="select * from usedproductlist where productid='"&SS(n,0)&"'"
	
		rs12.open sql12,conn,1,1
		
		'dpages="http://www.buyyou.net/ASC365_CANADA//"&rs11("Imgprev")
	    %>
		<table border="1" width="900" height="40" style="border-collapse: collapse" bordercolor="#CCCCCC" rules="rows" cellpadding="0" cellspacing="0">
	<tr>
	<td height="80" width="80"><img border="0" src="<%=rs12("Imgprev")%>" height="80" width="80"></td>
		
	<td height="80" width="900">
  <form method="post" action="?Action=Change&productid=<%=SS(n,0)%>">
		<table width="900" height="78" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <th height="46" scope="col" ><div align="left" style="margin-left:30px"><font face="Verdana"><span style="font-size: 9pt; color:#000000"><b></b></span></font>
        <input type="hidden" name="newproductid"value="<%=SS(n,0)%>" />
        <%JJ=JJ+1%>
		<font face="Verdana"><span style="font-size: 9pt; color:#000000"><b><a href="newProductDetailused.asp?productid=<%=SS(n,0)%>">(<%=SS(n,0)%>)<%=SS(n,1)%></a></b></span></font>
        <input type="hidden" name="productname"value="<%=Server.HtmlEncode(SS(n,1))%>" />
        <%JJ=JJ+1%>
    </div></th>
    <th width="131" scope="col" valign="top"><div style="margin-top:6px">Weight:<%=SS(n,2)%>KG</div>
      <input type="hidden" name="weight" value="<%=SS(n,2)%>">
      <%JJ=JJ+1%>
      <input type="hidden" name="unitprice"value="<%=SS(n,3)%>">
      <%JJ=JJ+1%>    
    </th>
    <th width="162" scope="col"  valign="middle" align="right">
         Quantity:
        <input type="text" value="<%=SS(n,4)%>" name="productnumber"  size="6" style="font-size: 10px; font-family: Verdana"/>
        </br> <input type="submit" name="update" value="update" />
		<input type="hidden" value="<%=SS(n,6)%>" name="usedstate"  size="6" style="font-size: 10px; font-family: Verdana"/>
    </th>
    <th width="132" scope="col"  valign="top"><div align="right" style="margin-top:6px"><font face="Verdana"><span style="font-size: 9pt">$<%=Round((SS(n,3)*SS(n,4)),2)%></span></font></div></th>
  </tr>
  <tr>
    <th height="32" scope="col" >&nbsp;</th>
    <th scope="col" valign="top">&nbsp;</th>
    <th scope="col"  valign="top"><div align="right">
    </div></th>
    <th scope="col" >&nbsp;</th>
  </tr>
</table>
</form>
	</td>
		<% 
		if isnumeric(SS(n,5))=false then
		  SS(n,5)=0
		end if
		if  SS(n,5)=0 then
		  pjyunfei=rs11("pjyunfei")
		  if pjyunfei=0 then
		    jisuanwet=jisuanwet+SS(n,2)*SS(n,4)
		    allpjyunfei=allpjyunfei+rs11("yunfei")*SS(n,4)
		  else
		    allpjyunfei=allpjyunfei+(pjyunfei+rs11("yunfei"))*SS(n,4)
		  end if
		end if
		if isnumeric(SS(n,2))<>true then SS(n,2)=0
		if isnumeric(SS(n,3))<>true then SS(n,3)=0
		if isnumeric(SS(n,4))<>true then SS(n,4)=0
		
		TTP1=(TTP1*1)+Round((SS(n,3)*SS(n,4)),2)			'Subtotal
	
		if  SS(n,5)=0 then
		   TTW1=(TTW1*1)+(SS(n,2)*SS(n,4))	
		end if
		TTW=(TTW*1)+(SS(n,2)*SS(n,4))						'Total weight
		TTQ=(TTQ*1)+(SS(n,4)*1)								'Total num
		%>
	</tr>
</table>
	  <%
	  end if
	 end if

next
	'**********************************************************
	UserEmail=session("UserEmail")
	if len(UserEmail)=0 then
	   UserEmail=Request.Cookies("UserEmail")
	end if
	if len(UserEmail)>0 then
	%>
	
	<%
	else
	Server.Execute("Register1.asp")
	end if
	'-----------------------------------------------------------
	Cart_Info=request.Cookies("Cart_Info")			'�����ͻ���Ϣ
	if len(Cart_Info)<>0 then
		str=Split(Cart_Info,"|")
		for i=0 to 7
			BB(i)=str(i)
		next
	end if
	'-------------------------------------------------------------
	Info_Flagg=1
	for i=0 to 7
		if len(BB(i))=0 then Info_Flagg=0
	next
	'**********************************************************
	if Info_Flagg=1  then
		Ship_to_country=lcase(BB(6))
		if TTW1=0 then
		   shipping=""
		   tax=""
		   TTP = TTP1*1	
		else
		  if Ship_to_country="canada" then
			pp_ship=Round((TTW1*1.5+18),2)+yunfei
			shipping=pp_ship
			pp_tax=Round(((TTP1+shipping)*0.13),2)
			tax=pp_tax
			TTP = TTP1*1 + shipping*1 + tax*1       ' Total price
		  elseif Ship_to_country="united states" then
		    if jisuanwet>0 then
			  pp_ship=Round((jisuanwet*1.7+8),2)+allpjyunfei
			else
			  pp_ship=allpjyunfei
			end if
			  
			pp_tax=0.00
			if Left(Trim(Lcase(BB(7))),2)="ca"  then
			   pp_tax=Round(((TTP1+pp_ship)*0.1075),2)
			end if
			shipping=pp_ship
			tax=pp_tax
			TTP = TTP1*1 + shipping*1 + tax*1       ' Total price
		  else
			shipping=""
			tax=""
			TTP = TTP1*1			' + shipping*1 + tax*1       ' Total price
		  end if
		end if
		'----------���û���Ϣ��������ϸ����ΪEmail����---------
		D_mess=""
		D_mess=D_mess & "<table border='1' width='800' height='113' bordercolor='#CCCCCC' style='border-collapse: collapse'>"  & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='85' width='400'>" & chr(13) & chr(10)
		D_mess=D_mess & "<table border='1' width='400' height='132'>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='150' align='right' bgcolor='#DDDDDD'>Name</td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='250' align='left'>" & BB(0) & "</td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='150' align='right' bgcolor='#DDDDDD'>Phone Number</td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='250' align='left'>" & BB(1) & "</td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='150' align='right' bgcolor='#DDDDDD'>Payment</td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='250' align='left'>" & BB(2) & "</td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='150' align='right' bgcolor='#DDDDDD'>Postal/zip code</td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='250' align='left'>" & BB(3) & "</td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr></table></td>" & chr(13) & chr(10)

D_mess=D_mess & "<td height='85' width='400'>" & chr(13) & chr(10)
		D_mess=D_mess & "<table border='1' width='400' height='132'>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='150' align='right' bgcolor='#DDDDDD'>Address</td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='250' align='left'>" & BB(4) & "</td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='150' align='right' bgcolor='#DDDDDD'>City</td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='250' align='left'>" & BB(5) & "</td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='150' align='right' bgcolor='#DDDDDD'>Country</td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='250' align='left'>" & BB(6) & "</td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='150' align='right' bgcolor='#DDDDDD'>State</td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='20' width='250' align='left'>" & BB(7) & "</td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr></table></td>" & chr(13) & chr(10)

D_mess=D_mess & "</tr>" & chr(13) & chr(10)
		D_mess=D_mess & "</table>" & chr(13) & chr(10)

for n= 0 to Cart_js-1 
			Temp_Pic=Split(Request.ServerVariables("PATH_INFO"),"/")
			Pic="http://buyyou.net/" &  "ASC365_CANADA" & "/Admin/" & left(SS(n,0),3) & "/"& right(SS(n,0),3) & "/0000.gif"
			D_mess=D_mess & "<table border='1' width='800' height='40' style='border-collapse: collapse' bordercolor='#CCCCCC'>" & chr(13) & chr(10)
			D_mess=D_mess & "<tr>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='80' width='80'><img border='0' src='" & pic & "' height='80' width='80'></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='80' width='720'>" & chr(13) & chr(10)
			D_mess=D_mess & "<table border='0' width='720' height='20' style='border-collapse: collapse' bgcolor='#996633'>" & chr(13) & chr(10)
			D_mess=D_mess & "<tr>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='20' width='80' align='center'><font color='#FFFFFF'>Item#</font></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='20' width='360' align='center'><font color='#FFFFFF'>Description</font></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='20' width='70' align='center'><font color='#FFFFFF'>Weight</span></font></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='20' width='70' align='center'><font color='#FFFFFF'>Unit Price</font></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='20' width='70' align='center'><font color='#FFFFFF'>QTY</font></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='28' width='70' align='center'><font color='#FFFFFF'>Subtotal</font></td>" & chr(13) & chr(10)
			D_mess=D_mess & "</tr>" & chr(13) & chr(10)
			D_mess=D_mess & "<tr>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='18' width='80' align='center' bgcolor='#FFFFFF'><b>"&SS(n,0)&"</b></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='18' width='360' align='center' bgcolor='#FFFFFF'><b>"&SS(n,1)&"</b></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='20' width='70' align='center' bgcolor='#FFFFFF'><b>"&SS(n,2)&"</b></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='20' width='70' align='center' bgcolor='#FFFFFF'><b>"&SS(n,3)&"</b></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='20' width='70' align='center' bgcolor='#FFFFFF'><b>"&SS(n,4)&"</b></td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='18' width='70' align='center' bgcolor='#FFFFFF'><b>"&Round((SS(n,3)*SS(n,4)),2)&"</b></td>"&chr(13)&chr(10)
			D_mess=D_mess & "</tr>" & chr(13) & chr(10)
			D_mess=D_mess & "<tr>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='18' width='440' align='left' colspan='2' bgcolor='#FFFFCC'>"&SS(n,5)&"</td>" & chr(13) & chr(10)
			D_mess=D_mess & "<td height='18' width='280' align='left' colspan='5' bgcolor='#FFFFFF'>Note:"&SS(n,6)&"</td>" & chr(13) & chr(10)
			D_mess=D_mess & "</tr>" & chr(13) & chr(10)
			D_mess=D_mess & "</table>" & chr(13) & chr(10)
			D_mess=D_mess & "</td>" & chr(13) & chr(10)
			D_mess=D_mess & "</td></tr></table>" & chr(13) & chr(10)
		next
		D_mess=D_mess & "<table border='0' width='800' height='47' style='border-collapse: collapse'>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='22' width='133' bgcolor='#800000' align='center'><font color='#FFFFFF'>Quantity (PCs)</font></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='22' width='133' bgcolor='#800000' align='center'><font color='#FFFFFF'>Weight (LB)</font></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='22' width='133' bgcolor='#800000' align='center'><font color='#FFFFFF'>Weight (Kg)</font></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='22' width='133' bgcolor='#800000' align='center'><font color='#FFFFFF'>Shipping</font></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='22' width='133' bgcolor='#800000' align='center'><font color='#FFFFFF'>Taxes</font></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='22' width='135' bgcolor='#800000' align='center'><font color='#FFFFFF'>Total </font></td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<tr>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='25' width='133' align='center' bgcolor='#FFFFCC'><b>"&TTQ&"</b></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='25' width='133' align='center' bgcolor='#FFFFCC'><b>"&Round((TTW*2.2046),2)&"</b></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='25' width='133' align='center' bgcolor='#FFFFCC'><b>"&TTW&"</b></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='25' width='133' align='center' bgcolor='#FFFFCC'><b>"&shipping&"</b></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='25' width='133' align='center' bgcolor='#FFFFCC'><b>"&tax&"</b></td>" & chr(13) & chr(10)
		D_mess=D_mess & "<td height='25' width='135' align='center' bgcolor='#FFFFCC'><b>"&TTP&"</b></td>" & chr(13) & chr(10)
		D_mess=D_mess & "</tr>" & chr(13) & chr(10)
		D_mess=D_mess & "</table>" & chr(13) & chr(10)
	%> 
		
	<table border="0" width="998" height="47"  style="border-collapse: collapse" bgcolor="#00a0e9">
	<tr>
		<td height="22" width="133"  align="center"><font face="Verdana"  style="font-size: 8pt">Quantity (PCs)</font></td>
		<td height="22" width="133"  align="center"><font  face="Verdana" style="font-size: 8pt">Weight (LB)</font></td>
		<td height="22" width="133"  align="center"><font face="Verdana"  style="font-size: 8pt">Weight (Kg)</font></td>
		<td height="22" width="133"  align="center"><font face="Verdana"  style="font-size: 8pt">Subtotal($)</font></td>
		<td height="22" width="133"  align="center"><font face="Verdana"  style="font-size: 8pt">Shipping($)</font></td>
		<td height="22" width="133"  align="center"><font face="Verdana"  style="font-size: 8pt">Taxes($)</font></td>
		<td height="22" width="133"  align="center"><font face="Verdana"  style="font-size: 8pt">Total </font></td>
	</tr>
	
	<tr>
		<td height="25" width="133" align="center" bgcolor="#FFFFCC"><b><font size="2" face="Verdana"><%=TTQ%></font></b></td>
		<td height="25" width="133" align="center" bgcolor="#FFFFCC"><b><font size="2" face="Verdana"><%=Round((TTW*2.2046),2)%></font></b></td>
		<td height="25" width="133" align="center" bgcolor="#FFFFCC"><b><font size="2" face="Verdana"><%=TTW%></font></b></td>
		<td height="25" width="133" align="center" bgcolor="#FFFFCC"><b><font size="2" face="Verdana"><%=TTP1%></font></b></td>
		<td height="25" width="133" align="center" bgcolor="#FFFFCC"><b><font size="2" face="Verdana"><%=shipping%></font></b></td>
		<td height="25" width="133" align="center" bgcolor="#FFFFCC"><b><font size="2" face="Verdana"><%=tax%></font></b></td>
		<td height="25" width="133" align="center" bgcolor="#FFFFCC"><b><font size="2" face="Verdana"><%=TTP%></font></b></td>
	</tr>
	</table>

<%
		if request.form("B1")="Check Out" then
		'���ɶ���---------------------------------------------
		addtime=now()
        dingdan=Year(addtime)& Right("00"&Month(addtime),2) & Right("00"&Day(addtime),2)
		set rs4=server.createobject("adodb.recordset")
		sql4="select count(*) as ordercount from orderlist"
		rs4.open sql4,conn,1,1
		newid="00000"&rs4("ordercount")
		rs4.close
		set rs4=nothing
		'----------���ɶ�����
		dingdan=dingdan&right(newid,6)
		session("dingdan")=dingdan
		allprice=TTP
		set rs15=server.createobject("adodb.recordset")
		sql15="select * from orderlist"
		rs15.open sql15,conn,1,3
		rs15.addnew
		rs15("orderid")=dingdan
		rs15("productdetail")=ASC365_Cart_001
		rs15("uptime")=addtime
		rs15("state")=0
		rs15("allprice")=allprice
		rs15("useremail")=session("UserEmail")
		rs15.update
	    rs15.close
	    set rs15=nothing
		response.Cookies("ASC365_Cart_001")=""
		'response.Cookies("ASC365_Cart_001").Domain="asc365.com"
        'response.Cookies("ASC365_Cart_001").Secure=False
	   ' conn.close
		'set conn=nothing
		
		'-----------------------------------------------------
			Check_flag_B1=0
			'============================================================	
'				pp_i=0
'				pp_yya= Server.MapPath("Customer/"& CID & "/ttemporder.inc")'���������,
'				If (fs.FileExists(pp_yya))=true then
'					Set f=fs.OpenTextFile(pp_yya, 1)
'					do while f.AtEndOfStream = false
'						xx=trim(f.ReadLine)
'						if len(xx)<>0 then SS(pp_i)=xx :pp_i=pp_i+1
'					loop
'					f.Close: Set f=Nothing
'				end if          
'				if pp_i>0 then
			site_url=thispage1			'��Ŀ¼
			key_salt="123456"			'�����õ���Կ
			pp_cmd="_cart"				'�ύ��paypal����ʲô����
			pp_order_status=""
			
			pp_notify_url="https://buyyou.net/asc365_canada/asc365jjs/C2_notify.asp"		'���֧���ɹ���paypal�ص�������վ�����ӵ�
			
			pp_return_url="https://buyyou.net/asc365_canada/asc365jjs/myaccount.asp"		'֧���ɹ��ķ������ӵ�ַ
			pp_lc="en"
			pp_paymentaction="sale"
			pp_currency_code="USD"
			pp_cancel_return=""
			pp_cert_id=""
			pp_email=session("dingdan")	'���email��paypal�˻����Ǳ���
			pp_order=date				'������
			pp_invoice=session("dingdan")
			'response.write  pp_invoice &"<br>"
	%>
			<form name="payment" action="<%=pp_url%>" target="_blank" method="post" onsubmit="return check()">
				<p align="center">
				<input type="checkbox" id="terms" name="terms" />
				Please click to agree our  
				<a href="terms.asp" target="_blank">shipping &amp;return terms</a>
			  <p align="center">
			    <input type="hidden" name="cmd" value="<%=pp_cmd%>">							
			    <%'�ύ��paypal�� ����%>
		        <input type="hidden" name="upload" value="1">
		        <input type="hidden" name="business"  value="<%=pp_business%>">					
			    <%'����˻��ţ�������ҵ�email%>
		        <%'���ұ���%>
				  
	            <% for i= 0 to Cart_js-1 %>	     
		        <input type="hidden" name="item_name_<%=i+1%>" value="<%=SS(i,0)%>-<%=Server.HtmlEncode(SS(i,1))%>">	
			    <%'���θ���� ��Ʒ����%>
		        <input type="hidden" name="amount_<%=i+1%>" value="<%=SS(i,3)%>">					
			    <%'֧���Ľ��%>
		        <input type="hidden" name="quantity_<%=i+1%>" value="<%=SS(i,4)%>">					
			    <%'֧��������%>
	            <% next
				'pp_ship=Round((pp_Weight*2.2046*1.20),2)
				'if pp_ship<18.00 then pp_ship=18.00    Telephone
				'if Ship_to_country="canada" then pp_tax=Round((pp_Subtotal*0.13),2)
			 %>
		        <input type="hidden" name="item_name_<%=i+1%>" value="Shipping">		
			    <%'���θ���� ��Ʒ����==Shipping�˷�%>
		        <input type="hidden" name="amount_<%=i+1%>" value="<%=pp_ship%>">		
			    <%'֧���Ľ��%>
		        <input type="hidden" name="quantity_<%=i+1%>" value="1">				
			    <%'֧��������%>
				  
		        <%'<input type="hidden" name="shipping_1" value="<%=pp_ship%>
			    <%'">%>
		        <INPUT TYPE="hidden" name="tax_cart" value="<%=pp_tax%>">
				  
		        <input type="hidden" name="first_name" value="<%=BB(0)%>">		
			    <%'Name%>
		        <input type="hidden" name="last_name" value="">
		        <input type="hidden" name="zip" value="<%=BB(3)%>">			
			    <%'Postal/zip code%>
		        <input type="hidden" name="address1" value="<%=BB(4)%>">		
			    <%'Address%>
		        <input type="hidden" name="address2" value="">
		        <%
				'<input type="hidden" name="address_override" value="0">		ltsljh_1281512132_per@126.com
				%>
		        <input type="hidden" name="city" value="<%=BB(5)&BB(7)%>">			
			    <%'City%>
		        <input type="hidden" name="country" value="<%=BB(6)%>">		
			    <%'Country%>
				  
		        <input type="hidden" name="email" value="<%=pp_email%>">						
			    <%'���email��paypal�˻����Ǳ���%>
				  
		        <input type="hidden" name="notify_url" value="<%=pp_notify_url%>">	
			    <%'���֧���ɹ���paypal�ص�������վ�����ӵ�ַ%>
		        <input type="hidden" name="invoice" value="<%=pp_invoice%>">
		        <input type="hidden" name="lc" value="en">
		        <input type="hidden" name="return" value="<%=pp_return_url%>">		
			    <%'���ص�ַ%>
		        <input type="hidden" name="rm" value="2">
		        <input type="hidden" name="no_note" value="1">
		        <input type="hidden" name="cancel_return" value="<%=site_url%>">		
			    <%'ȡ����ַ%>
		        <input type="hidden" name="paymentaction" value="sale">
		        <input type="submit" value="PAYPAL">
				  
	            <input type="hidden" name="currency_code"  value="<%=pp_currency_code%>" />
</form>
		<%'============================================================	
			inf="Thanks!Please click above 'PAYPAL' button,enter the page of PAYPAL payment.We will send out your products after receiving your payment."
			'---"лл�����������PAYPAL��ť������PAYPAL����ҳ�档����������ǽ�����������"

end if
		%>
		
		<%
		
		if request.form("B2")="Check Out" then
		'���ɶ���---------------------------------------------
		addtime=now()
        dingdan=Year(addtime)& Right("00"&Month(addtime),2) & Right("00"&Day(addtime),2) & Right("00"&Hour(addtime),2) & Right("00"&Minute(addtime),2) & Right("00"&Second(addtime), 2)
		set rs4=server.createobject("adodb.recordset")
		sql4="select count(*) as ordercount from orderlist"
		rs4.open sql4,conn,1,1
		newid="00000"&rs4("ordercount")
		rs4.close
		set rs4=nothing
		'----------���ɶ�����
		dingdan=dingdan&right(newid,6)
		session("dingdan")=dingdan
		allprice=TTP
		set rs5=server.createobject("adodb.recordset")
		sql5="select * from orderlist"
		rs5.open sql5,conn,1,3
		rs5.addnew
		rs5("orderid")=dingdan
		rs5("productdetail")=ASC365_Cart_001
		rs5("uptime")=addtime
		rs5("state")=0
		rs5("allprice")=allprice
		rs5("useremail")=session("UserEmail")
		rs5.update
	    rs5.close
	    set rs5=nothing
		response.Cookies("ASC365_Cart_001")=""
		'response.Cookies("ASC365_Cart_001").Domain="asc365.com"
        'response.Cookies("ASC365_Cart_001").Secure=False
	   ' conn.Close
		'set conn=nothing
		'-----------------------------------------------------
			Check_flag_B2=0
		
		  'set newmail=server.CreateObject("cdonts.newmail")
          '  newmail.From= Session("UserEmail")     //����������ʽ���ͣ��˷�������ͨ������˱��������֤
          '  newmail.To ="sales@eezglobal.com"         //��ҵ�ʾ��ռ��˵�ַ
          '  newmail.Subject="Customer Order List(new)"
          '  newmail.Body = D_mess
          '  newmail.BodyFormat =0
          '  newmail.MailFormat =0
          '  newmail.Send
          '  set newmail=nothing

MailFrom = Session("UserEmail")
        MailTo = "customerservice@eezglobal.com"
        MailSubject = "Customer Order List(new)"
        mailtext = "<html><body>" & D_mess & "</body></html>"
        MySendEmail MailFrom,MailTo,MailSubject,mailtext

finished=1
			'++++++++++++++++++++++++++++++++++++++++++
			inf="Thank you submit your order, We will contact you shortly."
			response.Cookies("ASC365_Cart_001")=""
			'response.Cookies("ASC365_Cart_001").Domain="asc365.com"
            'response.Cookies("ASC365_Cart_001").Secure=False
		end if
		if finished<>1 then
		%>
				
		<form method="POST" action="">
		<p align="center">
		<font size="2" face="Verdana" color="#800000"><%=inf%></font><br><br>
		<% if (lcase(trim(BB(6)))="canada" or lcase(trim(BB(6)))="united states") and lcase(BB(2))="paypal" then
				if Check_flag_B1=1 then
		%>
			<input type="submit" value="Check Out" name="B1"  >
			<br>
			<font size="2" face="Verdana" color="#000099">After check out, please click PAYPAL....</font></br>
		<%		end if
		 else
				if Check_flag_B2=1 then
		 %>
			<input type="submit" value="Check Out" name="B2"  >
			<br>
			<font size="2" face="Verdana" color="#000099">After check out, please go to your Email....We will send some information.</font><br>
		<%		end if
		 end if %>
		</form>
		
		<br>
		<p align="left">
		<font face="Verdana" size="2">* Currency us dollar (US$). Weight, Kg<br>
		<font face="Verdana"><span style="font-size: 10pt">* Input &quot;0&quot; on QTY<span lang="zh-cn">,then 
		click &quot;Recalculate&quot; button the item</span> will 
		be removed.<br>
		* Before making a final decision, Don't Click &quot;Check Out&quot; button.<br>
		* Click Check out, the order 
		will be sent to our company. We will view your order and contact you.<br>
		* You may leave message about shipping, payment....via click &quot;message&quot; button.<br>
		* We will calculate shipping cost, time.... will note you ,post on &quot;message&quot;<br>
		* You can change the order anytime till the order be sent out, the order will be 
		placed to &quot;Order history&quot;</span></font>
        <%
		else
		%>
		<div style="text-align:center; margin-top:50px">
		  <strong><font size="5" face="Verdana" color="#000099">Thank you submit your order, We will contact you shortly.</font><font size="5"><br>
	    </font></strong></div>
   <%
       end if
	end if
else
	'response.write "Your shopping cart is empty."
	%>
	<div style="margin-left:80px; margin-top:50px; height:500px; width:920px">
	<font style="color:#000000; font:Verdana, Arial, Helvetica, sans-serif; font-size:16px">Your shopping cart is empty.

</font>
	</div>
	<%
end if
%>
<%
Set fs=Nothing
conn.close
set conn=nothing
server.Execute("bottom.asp")
 %>
 </font>
 </p>

</td>
 </tr>
 </table>
</body>