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(Webpassed)<>"passed" then Response.End %> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body> <!--#include file="Login1.inc"--> <%set fs=Server.CreateObject("Scripting.FileSystemObject") %> <%Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")%> <table border="0" width="402" height="352" style="border-collapse: collapse"> <tr> <td height="199" width="400"> <b><font size="2" face="Verdana"> <a target="_blank" href="../help.asp">Help</a></font></b>�� <% '-----------------------------��Ʒ��Ϣ���� Dim KK(1100) If request.form ("B3")="Submit" then '---------�ύ��ƷĿ¼���� Productlist.inc �ļ� set f=fs.CreateTextFile(Server.MapPath("Productlist.inc"),true) DD=request.form("S20"): f.write(DD) f.close :set f=nothing : end if If (fs.FileExists(Server.MapPath("Productlist.inc")))=true then '---------------- ������ƷĿ¼�������� KK i=0 Set f=fs.OpenTextFile(Server.MapPath("Productlist.inc"), 1) do while f.AtEndOfStream = false WW=trim(f.ReadLine) if left(WW,1)="*" or left(WW,1)="@" then KK(i)=replace(ww,chr(34),"'"):i=i+1 '�滻������ end if WW20 =ww20& WW &chr(13)&chr(10) loop else set f=fs.CreateTextFile(Server.MapPath("Productlist.inc"),true) f.write("") end if f.Close:Set f=Nothing: %> <font size="2" face="Verdana">Products Information Input:</font> <font color="#FF0000"><span style="font-size: 9pt"><%=inf1%></span></font></b><br> <font color="#808080" face="Verdana" style="font-size: 8pt">Sample: <br> * 00 | heat press<br> @00 | 000000 |15"X 15" heat press</font><form method="post" action="<%=Thispage%>"> <textarea rows="19" name="S20" cols="59" style="font-size: 11px; font-family: Verdana"><%=ww20%></textarea><br> <input type="submit" value="Submit" name="B3"> </form> <%'----------------------------------------------%> </td> </tr> <tr> <td height="23" width="400"> <%'------------------------------------- prodct display area%> <% for i= 0 to 1100 %> <% if left(KK(i),1)="*" then %> <table border="0" width="400" height="20" style="border-collapse: collapse"> <tr> <td height="20" width="278"><font size="2" face="Verdana"><a href="<%= thispage & "?LL=" & KK(i) %>"><%= replace(KK(i),"'",chr(34))%></a></td> </tr> </table> <% end if %> <% if left(KK(i),1)="@" then %> <% temp=split(kk(i),"|") yy=trim(temp(1)): xx= left(yy,3) '-----------����DZ���IJ�Ʒ��������༭ if len(yy)=6 and isnumeric(yy)=true then if xx=Request.Cookies("ItemNo") then %> <table border="0" width="400" height="20" style="border-collapse: collapse"> <tr> <td height="20" width="278"><font size="2" face="Verdana"><a href="<%= thispage & "?LL=" & KK(i) %>"><%= replace(KK(i),"'",chr(34))%></a></td> </tr> </table> <% else %> <table border="0" width="400" height="20" style="border-collapse: collapse"> <tr> <td height="20" width="278"><font size="2" face="Verdana"><%= replace(KK(i),"'",chr(34))%></td> </tr> </table> <% end if %> <% else %> <%= "<font color='#FF0000'><b>Please check product code</font></b> " & KK(i) %> <% end if %> <% end if %> <% next %> <%'----------------------------------------------%> </td> </tr> </table> <%Set fs=Nothing%> </body> </html>