Webshell Akmal archtte id

Directory: C:\MyData\WWW\asc365\ <script type="text/javascript" language="javascript"> function reset() { document.getElementById("T0").value="" } </script> <% 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 'ȡ���ͻ��ĵ�ַ 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 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 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") & request.form("S_state") 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") & request.form("S_state")&"' 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 rs3.close set rs3=nothing 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" name="useraddr" 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="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="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: %> <script type="text/javascript" language="javascript"> function changeCountry() { with(document.useraddr) { 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>