<html>
<head>
<title>xmlhttp ile rapid dosya var mı</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Language" content="tr">
<head>
<%
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
rapidlinki = "http://rapidshare.com/files/209040321/ES-CEP___Keygen___MrIndia__.rar"
StrHTTP.Open "GET" , rapidlinki, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
site = GETHTTP(rapidlinki)
If Instr(site,"The file could not be found") Then
response.write "dosya yok"
Else
response.write "dosya var"
'response.redirect ""&rapidlinki
End If
%>rapidlinki değişkenini querystring veya form ile alcaksın, veya neyse alıyosan artık. "The file could not be found" uyarısı rapid de olmayan dosyalar için uyarı. bu kodu direkt denersen dosya var yazacak (istersen oraya gidecek). rapidlinkini değiştirip (misal sonunu rar değilde rr yapıp ) denersen dosya yok yazacak. sanırım istediğin de bu, işini görür diye düşünüyom, olmadı detaylı bişiler yaz başka şeyler deneyip geliştirmeye çalışırız.