Webshell Akmal archtte id

Directory: C:\MyData\WWW\asc365\ <!--#include file="conn.asp" --> <% Dim Country_Region(225) Dim i_country i_country = 0 Dim StateUS(55) Dim StateCA(15) Dim i_stateus,i_stateca i_stateus = 0 i_stateca = 0 'Country_Region(0)="Andorra" ' ������ 'Country_Region(1)="United Arab Emirates" ' ������ 'Country_Region(2)="Afghanistan" ' ������ 'Country_Region(3)="Antigua and Barbuda" ' ����ϺͰͲ��� 'Country_Region(4)="Anguilla" ' ������ 'Country_Region(5)="Albania" ' ���������� 'Country_Region(6)="Armenia" ' �������� 'Country_Region(7)="Netherlands Antilles" ' ������� 'Country_Region(8)="Angola" ' ������ 'Country_Region(9)="Argentina" ' ����͢ 'Country_Region(10)="American Samoa" ' ����Ħ�� 'Country_Region(11)="Austria" ' �µ��� 'Country_Region(12)="Australia" ' �Ĵ����� 'Country_Region(13)="Aruba" ' ��³�� 'Country_Region(14)="Azerbaijan" ' �����ݽ� 'Country_Region(15)="Bosnia Hercegovina" ' ���� 'Country_Region(16)="Barbados" ' �ͰͶ�˹ 'Country_Region(17)="Bangladesh" ' �ϼ����� 'Country_Region(18)="Belgium" ' ����ʱ 'Country_Region(19)="Burkina Faso" ' �����ɷ��� 'Country_Region(20)="Bulgaria" ' �������� 'Country_Region(21)="Bahrain" ' ���� 'Country_Region(22)="Burundi" ' ��¡�� 'Country_Region(23)="Benin" ' ���� 'Country_Region(24)="Brunei Darussalam" ' ������³������ 'Country_Region(25)="Bolivia" ' ����ά�� 'Country_Region(26)="Brazil" ' ���� 'Country_Region(27)="Bahamas" ' �͹��� 'Country_Region(28)="Bhutan" ' ���� 'Country_Region(29)="Botswana" ' �������� 'Country_Region(30)="Belarus" ' �׶���˹ 'Country_Region(31)="Belize" ' ������ 'Country_Region(32)="Canada" ' ���ô� 'Country_Region(33)="Cocos Islands" ' �ƿ�˹Ⱥ�� 'Country_Region(34)="Central African Republic" ' �зǹ��͹� 'Country_Region(35)="Congo" ' �չ� 'Country_Region(36)="Switzerland" ' ��ʿ 'Country_Region(37)="Ivory Coast" ' �������� 'Country_Region(38)="Cook Islands" ' ���Ⱥ�� 'Country_Region(39)="Chile" ' ���� 'Country_Region(40)="Cameroon" ' ����¡ 'Country_Region(41)="China" ' �й� 'Country_Region(42)="Colombia" ' ���ױ��� 'Country_Region(43)="Equatorial Guinea" ' ��������� 'Country_Region(44)="Costa Rica" ' ��˹����� 'Country_Region(45)="Cuba" ' �Ű� 'Country_Region(46)="Christmas Island" ' ʥ������Ӣ��� 'Country_Region(47)="Cyprus" ' ����·˹ 'Country_Region(48)="Czech Republic" ' �ݿ˹��͹� 'Country_Region(49)="Germany" ' �¹� 'Country_Region(50)="Djibouti" ' ������ 'Country_Region(51)="Denmark" ' ���� 'Country_Region(52)="Dominica" ' ����������� 'Country_Region(53)="Dominican Republic" ' ������ӹ��͹� 'Country_Region(54)="Algeria" ' ���������� 'Country_Region(55)="Ecuador" ' ��϶�� 'Country_Region(56)="Estonia" ' ��ɳ���� 'Country_Region(57)="Egypt" ' ���� 'Country_Region(58)="Western Sahara" ' ����Ħ�� 'Country_Region(59)="Spain" ' ������ 'Country_Region(60)="Ethiopia" ' ��������� 'Country_Region(61)="El Salvador" ' �����߶� 'Country_Region(62)="Finland" ' ���� 'Country_Region(63)="Fiji" ' 쳼� 'Country_Region(64)="Falkland Islands" ' ������Ⱥ�� 'Country_Region(65)="Micronesia" ' �ܿ��������� 'Country_Region(66)="Faroe Islands" ' ����Ⱥ�� 'Country_Region(67)="France" ' ���� 'Country_Region(68)="Gobon" ' ���� 'Country_Region(69)="Great Britain (UK)" ' ���е��������� 'Country_Region(70)="Grenada" ' �����ɴ� 'Country_Region(71)="Georgia" ' ��³���� 'Country_Region(72)="French Guiana" ' ��������� 'Country_Region(73)="Ghana" ' ���� 'Country_Region(74)="Gibraltar" ' ֱ������ 'Country_Region(75)="Greenland" ' ������Ⱥ�� 'Country_Region(76)="Gambia" ' �Ա��� 'Country_Region(77)="Guynea" ' ������ 'Country_Region(78)="Guadeloupe" ' �ϵ����յ�������� 'Country_Region(79)="Greece" ' ϣ�� 'Country_Region(80)="Guatemala" ' Σ������ 'Country_Region(81)="Guam" ' �ص� 'Country_Region(82)="Guinea-Bissau" ' �����DZ��� 'Country_Region(83)="Guyana" ' ������ 'Country_Region(84)="Honduras" ' �鶼��˹ 'Country_Region(85)="Croatia" ' ���޵��� 'Country_Region(86)="Haiti" ' ���� 'Country_Region(87)="Hungary" ' ������ 'Country_Region(88)="Indonesia" ' ӡ�������� 'Country_Region(89)="Ireland" ' ���������͹� 'Country_Region(90)="Israel" ' ��ɫ�� 'Country_Region(91)="India" ' ӡ�� 'Country_Region(92)="British Indian Ocean Territory" ' Ӣ��ӡ������� 'Country_Region(93)="Iraq" ' ������ 'Country_Region(94)="Iran" ' ���� 'Country_Region(95)="Iceland" ' ���� 'Country_Region(96)="Italy" ' ����� 'Country_Region(97)="Jamaica" ' ����� 'Country_Region(98)="Jordan" ' Լ�� 'Country_Region(99)="Japan" ' �ձ� 'Country_Region(100)="Kenya" ' ������ 'Country_Region(101)="Kyrgyzstan" ' ������˹˹̹ 'Country_Region(102)="Cambodia" ' ������ 'Country_Region(103)="Kiribati" ' �����˹ 'Country_Region(104)="Comoros" ' ��Ħ�� 'Country_Region(105)="Korea-North" ' ������ 'Country_Region(106)="Korea-South" ' �ϳ��� 'Country_Region(107)="Kuwait" ' ������ 'Country_Region(108)="Cayman Islands" ' ����Ⱥ����Ӣ��� 'Country_Region(109)="Kazakhstan" ' ������˹̹ 'Country_Region(110)="Lao People's Republic" ' �������񹲺͹� 'Country_Region(111)="Lebanon" ' ����� 'Country_Region(112)="St. Lucia" ' ʥ¶���ǵ� 'Country_Region(113)="Liechtenstein" ' ��֧��ʿ�� 'Country_Region(114)="Sri Lanka" ' ˹������ 'Country_Region(115)="Liberia" ' �������� 'Country_Region(116)="Lesotho" ' ������ 'Country_Region(117)="Lithuania" ' ������ 'Country_Region(118)="Luxembourg" ' ¬ɭ�� 'Country_Region(119)="Latvia" ' ����ά�� 'Country_Region(120)="Libya" ' ������ 'Country_Region(121)="Morocco" ' Ħ��� 'Country_Region(122)="Monaco" ' Ħ�ɸ� 'Country_Region(123)="Moldova" ' Ħ������ 'Country_Region(124)="Madagascar" ' ����˹�� 'Country_Region(125)="Marshall Islands" ' ���ܶ�Ⱥ�� 'Country_Region(126)="Mali" ' ���� 'Country_Region(127)="Myanmar" ' ��� 'Country_Region(128)="Mongolia" ' �ɹ� 'Country_Region(129)="Northern Mariana Islands" ' ����������Ⱥ�� 'Country_Region(130)="Martinique" ' ������˵�������� 'Country_Region(131)="Mauritania" ' ë�������� 'Country_Region(132)="Montserrat" ' �������ص� 'Country_Region(133)="Malta" ' ����� 'Country_Region(134)="Maldives" ' ������� 'Country_Region(135)="Malawi" ' ����ά 'Country_Region(136)="Mexico" ' ī���� 'Country_Region(137)="Malaysia" ' �������� 'Country_Region(138)="Mozambique" ' Īɣ�ȿ� 'Country_Region(139)="Namibia" ' ���ױ��� 'Country_Region(140)="New Caledonia" ' �¿�������� 'Country_Region(141)="Niger" ' ���ն� 'Country_Region(142)="Norfolk Island" ' ŵ���˵� 'Country_Region(143)="Nigeria" ' �������� 'Country_Region(144)="Nicaragua" ' ������� 'Country_Region(145)="Netherlands" ' ���� 'Country_Region(146)="Norway" ' Ų�� 'Country_Region(147)="Nepal" ' �Ჴ�� 'Country_Region(148)="Nauru" ' �³ 'Country_Region(149)="Niue" ' Ŧ�� 'Country_Region(150)="New Zealand" ' ������ 'Country_Region(151)="Oman" ' ���� 'Country_Region(152)="Panama" ' ������ 'Country_Region(153)="Peru" ' ��³ 'Country_Region(154)="French Polynesia" ' ������������� 'Country_Region(155)="Papua New Guinea" ' �Ͳ����¼����� 'Country_Region(156)="Philippines" ' ���ɱ� 'Country_Region(157)="Pakistan" ' �ͻ�˹̹ 'Country_Region(158)="Poland" ' ���� 'Country_Region(159)="Pitcairn Island" ' Ƥ�ؿ˶��� 'Country_Region(160)="Puerto Rico" ' ������� 'Country_Region(161)="Portugal" ' ������ 'Country_Region(162)="Palau" ' ���� 'Country_Region(163)="Paraguay" ' ������ 'Country_Region(164)="Qatar" ' ������ 'Country_Region(165)="Reunion Island" ' �������������� 'Country_Region(166)="Romania" ' �������� 'Country_Region(167)="Russian Federation" ' ����˹���� 'Country_Region(168)="Rwanda" ' ¬���� 'Country_Region(169)="Saudi Arabia" ' ɳ�ذ����� 'Country_Region(170)="Solomon Islands" ' ������Ⱥ�� 'Country_Region(171)="Seychelles" ' ����� 'Country_Region(172)="Sudan" ' �յ� 'Country_Region(173)="Sweden" ' ��� 'Country_Region(174)="Singapore" ' �¼��� 'Country_Region(175)="St. Helena" ' ������ 'Country_Region(176)="Slovakia" ' ˹�工�� 'Country_Region(177)="Sierra Leone" ' �������� 'Country_Region(178)="San Marino" ' ʥ����ŵ 'Country_Region(179)="Senegal" ' ���ڼӶ� 'Country_Region(180)="Somalia" ' ������ 'Country_Region(181)="Suriname" ' ������ 'Country_Region(182)="Syrian Arab Republic" ' ������ 'Country_Region(183)="Swaziland" ' ˹��ʿ�� 'Country_Region(184)="Chad" ' է�� 'Country_Region(185)="French Southern Territories" ' �����ϰ������ 'Country_Region(186)="Togo" ' ��� 'Country_Region(187)="Thailand" ' ̩�� 'Country_Region(188)="Tajikistan" ' ������˹̹ 'Country_Region(189)="Tokelau" ' �п���Ⱥ�� 'Country_Region(190)="Turkmenistan" ' ������˹̹ 'Country_Region(191)="Tunisia" ' ͻ��˹ 'Country_Region(192)="Tonga" ' ���� 'Country_Region(193)="East Timor" ' ������ 'Country_Region(194)="Turkey" ' ������ 'Country_Region(195)="Tuvalu" ' ͼ��³ 'Country_Region(196)="Tanzania" ' ̹ɣ���� 'Country_Region(197)="Ukrainian SSR" ' �ڿ��� 'Country_Region(198)="Uganda" ' �ڸɴ� 'Country_Region(199)="United Kingdom" ' Ӣ�� 'Country_Region(200)="United States" ' ���� 'Country_Region(201)="Uruguay" ' ������ 'Country_Region(202)="Vatican City State" ' ��ظ� 'Country_Region(203)="Venezuela" ' ί������ 'Country_Region(204)="Virgin Islands" ' ά��Ⱥ�� 'Country_Region(205)="Vietnam" ' Խ�� 'Country_Region(206)="Vanuatu" ' ��Ŭ��ͼ 'Country_Region(207)="Samoa" ' ����Ħ�� 'Country_Region(208)="Yemen" ' Ҳ�� 'Country_Region(209)="Yugoslavia" ' ��˹���� 'Country_Region(210)="South Africa" ' �Ϸ� 'Country_Region(211)="Zambia" ' �ޱ��� 'Country_Region(212)="Zaire" ' ������ 'Country_Region(213)="Zimbabwe" ' ��Ͳ�Τ 'Country_Region(214)="Trinidad and Tobago" ' �������Ͷ�͸� 'Country_Region(215)="Others" ' ���� Dim FKFS(1) FKFS(0)="PAYPAL" FKFS(1)="OTHER" '********************************************************** 'ȡ���ͻ��ĵ�ַ Cart_Info="" response.Cookies("Cart_Info")=Cart_Info hasinfomation=0 set rs=server.createobject("adodb.recordset") UserEmail=Session("UserEmail") 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") zipcode=rs("zipcode") dingyue=rs("dingyue") stateinfo=rs("state") newemail=rs("newemail") payment=rs("payment") Cart_Info= username & "|"& phonenumber & "|"& payment & "|"& zipcode & "|"& useraddress & "|"& city & "|"& country & "|"&stateinfo& "|" response.Cookies("Cart_Info")=Cart_Info end if rs.close '��ȡ���� sqlcountry ="select country from Country order by Country" rs.open sqlcountry,conn,1,1 if not rs.eof then i_country = 0 do while not rs.eof Country_Region(i_country) = trim(rs("country")) i_country = i_country*1 + 1 rs.movenext loop end if rs.close '��ȡ�� sqlcountry ="select State from City where country = 'United States'" rs.open sqlcountry,conn,1,1 if not rs.eof then i_stateus = 0 do while not rs.eof StateUS(i_stateus) = trim(rs("State")) i_stateus = i_stateus*1 + 1 rs.movenext loop end if rs.close sqlcountry ="select State from City where country = 'Canada'" rs.open sqlcountry,conn,1,1 if not rs.eof then i_stateca = 0 do while not rs.eof StateCA(i_stateca) = trim(rs("State")) i_stateca = i_stateca*1 + 1 rs.movenext loop end if rs.close set rs=nothing 'conn.close 'set conn=nothing 'response.Write(Cart_Info) '------------------------------------------------------------- '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='red'>* Please fill in all the fields." Info_Flag=1 for i=0 to 6 tabname="T"&i if len(request.Form(tabname))=0 then Info_Flag=0 next if Info_Flag=1 then Infor="" end if %> <style type="text/css"> <!-- .STYLE1 {font-size: 9pt} --> </style> <table border="1" width="995" height="275" bordercolor="#CCCCCC" style="border-collapse: collapse" cellpadding="0" cellspacing="0"> <form method="POST" name="usermsg" action=""> <tr> <td height="20" colspan="3" align="center"> <font face="Verdana"><span style="font-size: 9pt; font-weight: 700">Please enter your details</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="363"> <table border="0" width="341" height="132"> <tr> <td height="16" width="103" align="right"> <font face="Verdana" style="font-size: 9pt">Name</font></td> <td height="16" width="228" 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="103" align="right"> <font face="Verdana" style="font-size: 9pt">Phone Number</font></td> <td height="23" width="228" 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="103" align="right"> <font face="Verdana"><span style="font-size: 9pt">Payment</span></font></td> <td height="23" width="228" 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="103" align="right"> <font face="Verdana" style="font-size: 9pt">Postal/zip code</font></td> <td height="20" width="228" 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="414"> <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="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" onChange="changeCountry()"><option value="<%=country%>"><%=country%></option> <% for C_II=0 to i_country*1-1 %> <option value="<%=Country_Region(C_II)%>"><%=Country_Region(C_II)%></option> <% next %> </Select> </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"> <% if country <> "United States" and country <> "Canada" then%> <input type="text" name="T8" size="31" style="font-size: 10pt; font-family: Verdana" value="<%=Stateinfo%>"> <select name="S_state" style="display:none" > </select> <% else%> <input type="text" name="T8" size="31" style="display:none;font-size: 10pt; font-family: Verdana"> <select name="S_state"> <option value="<%=Stateinfo%>"><%=Stateinfo%></option> <%if country="Canada" then%> <% for II=0 to i_stateca*1-1 %> <option value="<%=StateCA(II)%>"><%=StateCA(II)%></option> <% next %> <%else%> <% for II=0 to i_stateus*1-1 %> <option value="<%=StateUS(II)%>"><%=StateUS(II)%></option> <% next %> <%end if%> </select> <%end if%> </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> </table> </td> <td height="159" width="1" rowspan="2" valign=bottom>&nbsp;</td> </tr> <tr> <td height="20" colspan="2" align="center"><input type="submit" value="Submit" name="B3"/></td> </tr> <tr> <td height="20" colspan="3" align="left"> <font size="2" face="Verdana"> * 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.<br> * 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.<br> * 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.</font></td> </tr> <tr> <td height="20" colspan="3"><font size="2" face="Verdana"><%=Infor%></font></td> </tr> </form> </table> <script type="text/javascript" language="javascript"> function changeCountry() { with(document.usermsg) { var value = T6.value; var newstate = new Array(); newstate["US"] = ["AL-Alabama","AK-Alaska","AZ-Arizona","AR-Arkansas","CA-California","CO-Colorado","CT-Connecticut","DE-Delaware","FL-Florida","GA-Georgia","HI-Hawaii","ID-Idaho","IL-Illinois","IN-Indiana","IA-Iowa","KS-Kansas","KY-Kentucky","LA-Louisiana","ME-Maine","MD-Maryland","MA-Massachusetts","MI-Michigan","MN-Minnesota","MS-Mississippi","MO-Missouri","MT-Montana","NE-Nebraska","NV-Nevada","NH-New?hampshire","NJ-New?jersey","NM-New?mexico","NY-New?York","NC-North?Carolina","ND-North?Dakota","OH-Ohio","OK-Oklahoma","OR-Oregon","PA-Pennsylvania","RI-Rhode?island","SC-South?carolina","SD-South?dakota","TN-Tennessee","TX-Texas","UT-Utah","VT-Vermont","VA-Virginia","WA-Washington","WV-West?Virginia","WI-Wisconsin","WY-Wyoming"]; newstate["CA"] = ["British Columbia","Alberta","Saskatchewan","Manitoba","Ontario","Quebec","New Brunswick","Nova Scotia","Prince Edward Island","Newfoundland & Labrador","Yukon","Northwest Territories","Nunavut"]; if (value == "United States") { S_state.options.length = 0; T8.value = ""; var option; for (i = 0; i < newstate["US"].length; i++) { option = new Option(newstate["US"][i],newstate["US"][i]); S_state.options.add(option); } S_state.style.display = "inline"; T8.style.display = "none"; } else { if (value == "Canada") { // alert(S_state.value); S_state.options.length = 0; var option; T8.value = ""; for (i = 0; i < newstate["CA"].length; i++) { option = new Option(newstate["CA"][i],newstate["CA"][i]); S_state.options.add(option); } S_state.style.display = "inline"; T8.style.display = "none"; } else { S_state.options.length = 0; S_state.style.display = "none"; T8.style.display = "inline"; } } } } </script>