Webshell Akmal archtte id

Directory: C:\MyData\WWW\asc365\ <% 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 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") if len(country)=0 then country="canada" end if 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" 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 '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" style="font-size: 9pt">*</font><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" style="font-size: 9pt">*</font><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>