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">

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<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>

<%
'����һЩ��������
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,6)
dim CC(6)
dim BB(8)

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="accounting@asc365.com"					'"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

'�������������뵽cookie��
if request.Cookies("ASC365_Cart_001")<>"" then 
response.Cookies("ASC365_Cart_001")=""
end if
set rs=server.CreateObject("ADODB.RecordSet")
myorderid=request.QueryString("orderid")
sql="select * from orderlist where orderid='"&myorderid&"'"
rs.open sql,conn,1,1
if not rs.eof then
ASC365_Cart_001=rs("productdetail")
end if
rs.close
set rs=nothing
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 ii=1 to N_js step 5
		SS(Cart_js,0)=temp(ii)		'��Ʒ����
		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)		'����
		Cart_js=Cart_js+1
	next
end if
'-----------------------------------------------------------
for i= 0 to 1000                                   '�ͻ����Recaculate
	if request.form ("BM"&i)="Recalculate" then
		for ii= 0 to 6            '���ر��
			CC(ii)=request.form ("TA"&(i*7)+ii)
			' response.write CC(ii) &"<br>"  
		next
		'---------------------------------------------�޸Ĳ���                 
		for ii= 0 to Cart_js-1
			if SS(ii,0)=CC(0) then
				if isnumeric(CC(4))=true then
					if CC(4)>0 then
						SS(ii,4)=CC(4)
						set rs3=server.createobject("adodb.recordset")
			            sql3="select price from productprice where productid='"&CC(0)&"' and productnumber1<="&CC(4)&" and productnumber2>="&CC(4)&" order by sort"
						rs3.open sql3,conn,1,1
						if not rs3.eof then
						SS(ii,3)=rs3("price")
						rs3.close
						set rs3=nothing
						end if
					else
						SS(ii,0)="*"
					end if
				end if
				SS(ii,6)=CC(6)
			end if
		next          
		'---------------------------------------------
	end if
next
'--------------------------------------------д�ز�����
ASC365_Cart_001=""
for ii=0 to Cart_js-1
	if SS(ii,0)<>"*" then
		ASC365_Cart_001=ASC365_Cart_001&"|"&SS(II,0)&"|"&SS(II,1)&"|"&SS(II,2)&"|"&SS(II,3)&"|"&SS(II,4)
	end if
next
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 5
		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)		'����
		Cart_js=Cart_js+1
	next
end if
'----------------------------------------------------------------
if Cart_js>0 then
	JJ=0
	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"
		mm=0
		JJ=0
%>

<table border="1" width="798" height="40" style="border-collapse: collapse" bordercolor="#CCCCCC">
	<tr>
	<td height="80" width="80"><img border="0" src="<%=pic%>" height="80" width="80"></td>
		
	<td height="80" width="713">
        <table border="0" width="713" height="20" style="border-collapse: collapse" bgcolor="#996633">
		<form method="POST" action="">
		<tr>
		<td height="20" width="369" align="center"><font face="Verdana"><span style="font-size: 9pt"><font color="#FFFFFF">Item#</font></td>
		<td height="20" width="369" align="center"><font face="Verdana" color="#FFFFFF"><span style="font-size: 9pt">Description </td>
		<td height="20" width="340" align="center"><font face="Verdana" color="#FFFFFF"><span style="font-size: 9pt">Weight</span></font></td>
		<td height="20" width="340" align="center"><font face="Verdana" color="#FFFFFF"><span style="font-size: 9pt">Unit Price</span></font></td>
		<td height="20" width="340" align="center"><font face="Verdana" color="#FFFFFF"><span style="font-size: 9pt">QTY</span></font></td>
		<td height="28" width="340" align="center"><font face="Verdana" style="font-size: 9pt" color="#FFFFFF">Subtotal</font></td>
		<td height="39" width="340" rowspan="2"><p align="center"></td>
		</tr>
		<tr>
		<td height="18" width="369" align="center" bgcolor="#FFFFFF"><font face="Verdana"><span style="font-size: 9pt; color:#000000"><b><%=SS(n,0)%></b></span></font>
		<input type="hidden" name="<%="TA"&JJ%>"value="<%=SS(n,0)%>"><%JJ=JJ+1%></td>
		
		<td height="18" width="369" align="center" bgcolor="#FFFFFF"><font face="Verdana"><span style="font-size: 9pt; color:#000000"><b><%=SS(n,1)%></b></span></font>
		<input type="hidden" name="<%="TA"&JJ%>"value="<%=SS(n,1)%>">
		<%JJ=JJ+1%></td>
		<td height="20" width="340" align="center" bgcolor="#FFFFFF"><font face="Verdana"><span style="font-size: 9pt; color:#000000"><b><%=SS(n,2)%></b></span></font>
		<input type="hidden" name="<%="TA"&JJ%>"value="<%=SS(n,2)%>"><%JJ=JJ+1%></td>

<td height="20" width="340" align="center" bgcolor="#FFFFFF"><font face="Verdana"><span style="font-size: 9pt; color:#000000"><b><%=SS(n,3)%></b></span></font>
		<input type="hidden" name="<%="TA"&JJ%>"value="<%=SS(n,3)%>"><%JJ=JJ+1%></td>
		
		<td height="20" width="340" bgcolor="#FFFFFF"><p align="center">
	    <%=SS(n,4)%></td>
		       
		<td height="18" width="340" bgcolor="#FFFFFF"><font face="Verdana"><span style="font-size: 9pt"><%=Round((SS(n,3)*SS(n,4)),2)%></span></font></td>
		</tr>
		</form>
		</table> 
	</td>
		<% 
		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
		TTW=(TTW*1)+(SS(n,2)*SS(n,4))						'Total weight
		TTQ=(TTQ*1)+(SS(n,4)*1)								'Total num
		%>
	</td>
	</tr>
</table>
	<%
	next
	'**********************************************************
	UserEmail=session("UserEmail")
	if len(UserEmail)>0 then
	Server.Execute("C22_MyShippingCart.asp")
	else
	Server.Execute("Register.asp")
	end if
	'-----------------------------------------------------------
	Cart_Info=request.Cookies("Cart_Info")			'�����ͻ���Ϣ
	if len(Cart_Info)<>0 then
		str=Split(Cart_Info,"|")
		for i=0 to 6
			BB(i)=str(i)
		next
	end if
	'-------------------------------------------------------------
	Info_Flagg=1
	for i=0 to 6
	  'tabname="T"&i
	 ' if len(request.Form("tabname"))=0 then Info_Flagg=0
		if len(BB(i))=0 then Info_Flagg=0
	next
	'**********************************************************
	if Info_Flagg=1 then
		Ship_to_country=lcase(BB(6))
		if Ship_to_country="canada" then
			'pp_tax=Round((TTP1*0.13),2)
			if TTW>5 then
				pp_ship=Round(((TTW-5)*1.5+18),2)
			else
				pp_ship=18.00
			end if
			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
			pp_tax=0.00
			if TTW>5 then
				pp_ship=Round(((TTW-5)*1.5+18),2)
			else
				pp_ship=18.00
			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
		'----------���û���Ϣ��������ϸ����Ϊ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/State/Pro.</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'>Email Add</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="798" height="47" style="border-collapse: collapse">
	<tr>
		<td height="22" width="133" bgcolor="#800000" align="center"><font face="Verdana" color="#FFFFFF" style="font-size: 8pt">Quantity (PCs)</font></td>
		<td height="22" width="133" bgcolor="#800000" align="center"><font color="#FFFFFF" face="Verdana" style="font-size: 8pt">Weight (LB)</font></td>
		<td height="22" width="133" bgcolor="#800000" align="center"><font face="Verdana" color="#FFFFFF" style="font-size: 8pt">Weight (Kg)</font></td>
		<td height="22" width="133" bgcolor="#800000" align="center"><font face="Verdana" color="#FFFFFF" style="font-size: 8pt">Shipping</font></td>
		<td height="22" width="133" bgcolor="#800000" align="center"><font face="Verdana" color="#FFFFFF" style="font-size: 8pt">Taxes</font></td>
		<td height="22" width="133" bgcolor="#800000" align="center"><font face="Verdana" color="#FFFFFF" 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"><%=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=myorderid
		set rs4=server.createobject("adodb.recordset")
		sql4="update orderlist set productdetail='"&ASC365_Cart_001&"',uptime='"&addtime&"',allprice="&TTP&" where orderid='"&dingdan&"' "
		'response.Write(sql4)
		conn.execute sql4
		response.Cookies("ASC365_Cart_001")=""
	    '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="http://usa.asc365.com/C2_notify.asp"		'���֧���ɹ���paypal�ص�������վ�����ӵ�
			pp_return_url="http://usa.asc365.com/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=pp_email
			'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="<%=Thispage&"?ID=Terms"%>" 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%>
				<input type="hidden" name="currency_code"  value="<%=pp_currency_code%>">		<%'���ұ���%>
			
			<% for i= 0 to Cart_js-1 %>	     
				<input type="hidden" name="item_name_<%=i+1%>" value="<%=SS(i,0)%><%=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="Telephone" value="<%=BB(1)%>">
				<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)%>">			<%'City%>
				<input type="hidden" name="country" value="<%=BB(6)%>">		<%'Country%>
				
				<input type="hidden" name="on0" value="OrderId"> 
                <input type="hidden" name="os0" value="<%=dingdan%>">

<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" >
			
			</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=myorderid
		set rs4=server.createobject("adodb.recordset")
		sql4="update orderlist set productdetail='"&ASC365_Cart_001&"',uptime='"&addtime&"',allprice="&TTP&" where orderid='"&dingdan&"' "
		conn.execute sql4
		response.Cookies("ASC365_Cart_001")=""
	    'conn.close
		'set conn=nothing
		'-----------------------------------------------------
			Check_flag_B2=0
			'yya= Server.MapPath("Customer/"& CID & "/orderflag.inc")          '-----------------------------------------������־
			'set f=fs.CreateTextFile(yya,true)
			'f.close
			'set f=nothing
			'++++++++++++++++++++++++++++++++++++++++++
			set newmail=server.CreateObject("cdonts.newmail")
            newmail.From= Session("UserEmail")     //����������ʽ���ͣ��˷�������ͨ������˱��������֤
            newmail.To ="sales@asc365.com"         //��ҵ�ʾ��ռ��˵�ַ
            newmail.Subject="Customer Order List(new)"
            newmail.Body = D_mess
            newmail.BodyFormat =0
            newmail.MailFormat =0
            newmail.Send
            set newmail=nothing
			
			set newmail=server.CreateObject("cdonts.newmail")
            newmail.From= Session("UserEmail")     //����������ʽ���ͣ��˷�������ͨ������˱��������֤
            newmail.To ="asc3652014@hotmail.com"         //��ҵ�ʾ��ռ��˵�ַ
            newmail.Subject="Customer Order List(new)"
            newmail.Body = D_mess
            newmail.BodyFormat =0
            newmail.MailFormat =0
            newmail.Send
            set newmail=nothing
			
			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:50px; margin-top:30px">
	<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
 %>