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
<!--#include file="conn.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>�༭���ⵥ����</title> <style type="text/css"> <!-- .STYLE1 { font-size: 18px; font-weight: bold; font-family: "������"; } .STYLE4 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; } --> </style> </head> <body style="width:1000px; text-align:center; font-family:Verdana; margin:0 auto;"> <% Dim ProductDetail(30) set fs=Server.CreateObject("Scripting.FileSystemObject") %> <% set rs3=server.CreateObject("ADODB.Recordset") sql3="select * from tkprolist" rs3.open sql3,conn,3,3 i=0 do while not rs3.eof productid=rs3("productid") num=rs3("productnum") LL=left(productid,3) RR=right(productid,3) XX=Server.MapPath("../../Admin/" & LL & "/" & RR & "/Tech.inc") If (fs.FileExists(XX))=true then Set f=fs.OpenTextFile(XX, 1) for j =0 to 30 ProductDetail(j)=trim(f.ReadLine) next f.Close Set f=Nothing end if '��Ʒë�� if len(ProductDetail(9))>0 and Isnumeric(ProductDetail(9)) = true then maozhong = ProductDetail(9)*num else maozhong= 0 end if rs3("maozhongheji")=maozhong rs3.update rs3.movenext loop rs3.close set rs3=nothing %> <div align="center" class="STYLE1"> <p>��ë���������</p> </div> </body> </html>