Webshell Akmal archtte id

Directory: C:\MyData\WWW\asc365\ <% '���ļ��ڵ����к������������κ��޸ģ������Ӱ��ϵͳ�������С� function lleft(content,lef) for le=1 to len(content) if asc(mid(content,le,1))<0 then lef=lef-2 else lef=lef-1 end if if lef<=0 then exit for next lleft=left(content,le) end function function llen(content) truelen=0 for le=1 to len(content) if asc(mid(content,le,1))<0 then truelen=truelen+2 else truelen=truelen+1 end if next llen=truelen end function function FormatNum(num,n) if num<1 then num="0"&cstr(FormatNumber(num,n)) else num=cstr(FormatNumber(num,n)) end if FormatNum=replace(num,",","") end function function buyoktxtcheck(txt) buyoktxtcheck=txt chrtxt="33|34|35|36|37|38|39|40|41|42|43|44|47|58|59|60|61|62|63|91|92|93|94|96|123|124|125|126|128" chrtext=split(chrtxt,"|") for c=0 to ubound(chrtext) buyoktxtcheck=replace(buyoktxtcheck,chr(chrtext(c)),"") next end function function ii11ii1(ii1liil) ii11iil=split(ii1liil,".") ii11ii1=ii11iil(0)&"."&ii11iil(1)&"."&ii11iil(2)&".**" end function sub checklogin() set rscheck=conn.execute("select * from buser where UserId='"&request.cookies("buyok")("userid")&"'") if rscheck.eof and rscheck.bof then response.write "<meta http-equiv='refresh' content='0;URL=alogin.asp'>" response.end end if set rscheck=nothing end sub function checkuserkou() if request.cookies("buyok")("userid")="" then checkuserkou=10 else checkuserkou=request.cookies("buyok")("userkou") if request.cookies("buyok")("userkou")="" then checkuserkou=10 end if end function sub aspsql() end sub sub buyok_check_path() server_v1=lcase(Cstr(Request.ServerVariables("HTTP_REFERER"))) server_v2=lcase(Cstr(Request.ServerVariables("SERVER_NAME"))) if mid(server_v1,8,len(server_v2))<>server_v2 then response.write "<script language='javascript'>" response.write "alert('��վ��ȫ��ʾ��\n\n�벻Ҫ���ⲿ�������ύ���ݵ���վ��\n\n�벻Ҫ�ҸIJ����ύ���ݣ�');" response.write "location.href='javascript:history.go(-1)';" response.write "</script>" response.end end if end sub %>