Mesaj #1628743 - bontug - kök dizin hatası

merhaba. yapmış olduğum http://www.ontugfidancilik.com.tr sitesinde kaynağı belli olmayan url görmekteyim. örneğin olması gereken url http://www.ontugfidancilik.com.tr/ur...cesitleri.html bu iken http://www.ontugfidancilik.com.tr/mo...cesitleri.html google taramalarında bu şekilde karşıma çıkıyor. /mobile/ veya /m/ şeklinde karşılaşıyorum. hemen hemen bütün dosyaları inceledim ve buna kaynak bulamadım. acaba bunun sebebi ne olabilir. kök dizin olma ihitimalini düşünmekteyim. size kök dizin ve uzantılarını göndereceğim yardımcı olursanız çok sevineceğim. zira 1 aydır bunla uğraşıyorum.., yardımlarınızı bekliyorum

func.asp dosyası:

<%
Function cevir(data)
data = Replace (data ,"ı","i",1,-1,1)
data = Replace (data ,"ğ","g",1,-1,1)
data = Replace (data ,"ü","u",1,-1,1)
data = Replace (data ,"ş","s",1,-1,1)
data = Replace (data ,"ö","o",1,-1,1)
data = Replace (data ,"ç","c",1,-1,1)
data = Replace (data ,"I","i",1,-1,1)
data = Replace (data ,"Ğ","g",1,-1,1)
data = Replace (data ,"Ü","u",1,-1,1)
data = Replace (data ,"Ş","s",1,-1,1)
data = Replace (data ,"İ","i",1,-1,1)
data = Replace (data ,"Ç","c",1,-1,1)
data = Replace (data ,"Ö","o",1,-1,1)
data = Replace (data ," ","-",1,-1,1)
cevir=data
End Function

%>
<%

function ClearHTMLTags(strHTML, intWorkFlow)
'Variables used in the function

dim regEx, strTagLess

'---------------------------------------
strTagless = strHTML
'Move the string into a private variable
'within the function
'---------------------------------------

'regEx initialization
'---------------------------------------
set regEx = New RegExp
'Creates a regexp object
regEx.IgnoreCase = True
'Don't give frat about case sensitivity
regEx.Global = True
'Global applicability
'---------------------------------------

'Phase I
' "bye bye html tags"
if intWorkFlow <> 1 then
'---------------------------------------
regEx.Pattern = "<[^>]*>"
'this pattern mathces any html tag
strTagLess = regEx.Replace(strTagLess, "")
'all html tags are stripped
'---------------------------------------
end if

'Phase II
' "bye bye rouge leftovers"
' "or, I want to render the source"
' "as html."

'---------------------------------------
'We *might* still have rouge < and >
'let's be positive that those that remain
'are changed into html characters
'---------------------------------------

if intWorkFlow > 0 and intWorkFlow < 3 then
regEx.Pattern = "[<]"
'matches a single <
strTagLess = regEx.Replace(strTagLess, "<")

regEx.Pattern = "[>]"
'matches a single >
strTagLess = regEx.Replace(strTagLess, ">")
'---------------------------------------
end if

'Clean up
'---------------------------------------
set regEx = nothing
'Destroys the regExp object
'---------------------------------------

'---------------------------------------
ClearHTMLTags = strTagLess
'The results are passed back
'---------------------------------------
end function%>

<%

Function GetoppositeHexValue(color)
dim part1, part2, part3, part4, part5, part6
part1 = Mid(color, 1,1)
part2 = Mid(color, 2,1)
part3 = Mid(color, 3,1)
part4 = Mid(color, 4,1)
part5 = Mid(color, 5,1)
part6 = Mid(color, 6,1)

part1 = Hex(BinToDec(FlipBits(DecToBin(HexToDec(part1)))))
part2 = Hex(BinToDec(FlipBits(DecToBin(HexToDec(part2)))))
part3 = Hex(BinToDec(FlipBits(DecToBin(HexToDec(part3)))))
part4 = Hex(BinToDec(FlipBits(DecToBin(HexToDec(part4)))))
part5 = Hex(BinToDec(FlipBits(DecToBin(HexToDec(part5)))))
part6 = Hex(BinToDec(FlipBits(DecToBin(HexToDec(part6)))))

GetoppositeHexValue = part1 & part2 & part3 & part4 & part5 & part6
End Function

Function FlipBits(num)
Dim out, x
out = ""
For x = 1 to Len(num)
If Mid(num, x, 1) = 0 Then
out = out & 1
Else
out = out & 0
End If
Next
FlipBits = out
End Function

Function DecToBin(ByVal d)
Dim st
st = ""
Do While d > 0
If d Mod 2 > 0 Then
st = "1" & st
Else
st = "0" & st
End If

d = Int(d / 2)
Loop
DecToBin = Right("0000" & st, 4)
End Function

Function HexToDec(strHex)
dim lngResult
dim intIndex
dim strDigit
dim intDigit
dim intValue

lngResult = 0
for intIndex = len(strHex) to 1 step -1
strDigit = mid(strHex, intIndex, 1)
intDigit = instr("0123456789ABCDEF", ucase(strDigit))-1
if intDigit >= 0 then
intValue = intDigit * (16 ^ (len(strHex)-intIndex))
lngResult = lngResult + intValue
else
lngResult = 0
intIndex = 0 ' stop the loop
end if
next

HexToDec = lngResult
End Function

Function BinToDec(strBin)
dim lngResult
dim intIndex
dim strDigit

lngResult = 0
for intIndex = len(strBin) to 1 step -1
strDigit = mid(strBin, intIndex, 1)
select case strDigit
case "0"
' do nothing
case "1"
lngResult = lngResult + (2 ^ (len(strBin)-intIndex))
case else
' invalid binary digit, so the whole thing is invalid
lngResult = 0
intIndex = 0 ' stop the loop
end select
next

BinToDec = lngResult
End Function

%>

<% Set Jpeg = Server.CreateObject("Persits.Jpeg") %>
<% Set Jpeg1 = Server.CreateObject("Persits.Jpeg") %>
<% Set FSO = CreateObject("Scripting.FileSystemObject") %>
<% function cjpeg(resimadi,r_yuk,resim,en,boy) %>

<% If FSO.FileExists(Server.MapPath(resim)) = True Then

Else
if resimadi <> "" and FSO.FileExists(Server.MapPath(r_yuk)) = True then

Jpeg.Open Server.MapPath(r_yuk)

L = boy
w = en

Jpeg1.New L, W , &HFFFFFF

' Resizing is optional. None in this code sample.

' Resize, preserve aspect ratio

if Jpeg.OriginalHeight > Jpeg.OriginalWidth then
Jpeg.height = w
Jpeg.width = Jpeg.OriginalWidth * (w) / Jpeg.OriginalHeight
else
Jpeg.width = L
Jpeg.Height = Jpeg.OriginalHeight * (L) / Jpeg.OriginalWidth
end if

' center image inside frame vert or horiz as needed
Jpeg1.Canvas.DrawImage 0 + (W- jpeg.Width)/2, 0 + (L - jpeg.Height)/2, jpeg
Jpeg1.Quality = 100
Jpeg1.Save Server.MapPath(resim)
jpeg.close
else
resim="img/bos.jpg"
end if

End If

cjpeg = resim
%>

<% end function %>

<% function thumb(resimadi,r_yuk,resim,en,boy) %>

<% If FSO.FileExists(Server.MapPath(resim)) = True Then

Else
if resimadi <> "" and FSO.FileExists(Server.MapPath(r_yuk)) = True then

Jpeg.Open Server.MapPath(r_yuk)

L = boy
w = en

' Resizing is optional. None in this code sample.

' Resize, preserve aspect ratio

if Jpeg.OriginalHeight > Jpeg.OriginalWidth then
Jpeg.height = w
Jpeg.width = Jpeg.OriginalWidth * (w) / Jpeg.OriginalHeight
else
Jpeg.width = L
Jpeg.Height = Jpeg.OriginalHeight * (L) / Jpeg.OriginalWidth
end if

' center image inside frame vert or horiz as needed
Jpeg.Quality = 100
Jpeg.Save Server.MapPath(resim)
jpeg.close
else
resim="img/bos.jpg"
end if

End If

thumb = resim
%>

<% end function %>

<% function tcevir(metin) %>
<%
metin = replace(metin,"ç","ç")
metin = replace(metin,"ğ","ğ")
metin = replace(metin,"ı","ı")
metin = replace(metin,"ö","ö")
metin = replace(metin,"ş","ş")
metin = replace(metin,"ü","ü")
metin = replace(metin,"Ç","Ç")
metin = replace(metin,"Ğ","Ğ")
metin = replace(metin,"İ","İ")
metin = replace(metin,"Ö","Ö")
metin = replace(metin,"Ş","Ş")
metin = replace(metin,"Ü","Ü")
metin = replace(metin,"'","'")
tcevir=metin
%>
<% end function %>

<% function banner(id) %>
<% ars.open "select * from banners where id = " & id ,conn,1,1%>
<% if not ars.eof then %>
">

-<% =cevir(rs(2)) %>.html"><% =rs(2) %> - <% =rs(1) %>
" title="<% =rs(1) %>" rel="shadowbox">" /> <% =split(rs("aciklama"),"")(0) %> <%if ubound(split(rs("aciklama"),"")) > 0 then%> <%keywords=split(rs("aciklama"),"*")(1)%> <%tit=rs(1)%> <%desc=left(Clearhtmltags(rs("aciklama"),0),254)%> <%end if%>

<% rs.movenext %>
<% loop %>
<% rs.close %>
<% else %>

Ürünlerimiz

<% rs.open "select * from altkategoriler order by sira ",conn,1,1 %>
<% do until rs.eof %>
<% x=x+1 %>
<% if x mod 5 = 1 then %>

<% end if %>

<% rs.movenext %>
<% if x mod 5 = 0 or rs.eof then %>

<% end if %>
<%loop %>
<% rs.close %>

" />

<% =rs(1) %>

<% end if %>

urun_list.asp dosyası

<% if idx="" or isnumeric(idx)=False then %>
<% kat=0 %>
<% else %>
<% kat=idx %>
<% end if %>

ÜRÜNLERİMİZ - <% rs.open "select kategori_adi from altkategoriler where id = " & kat ,conn,1,1 %>
<% if not rs.eof then %>
<% =rs(0) %>
<% tit=rs(0) %>
<% end if %>
<% rs.close %>

<% rs.open "select * from urunler where kategori = " & kat ,conn,1,1 %>
<% do until rs.eof %>
<% aa=aa+1 %>
<% if aa mod 4 = 1 then %>

<% end if %>

<% rs.movenext %>
<% if aa mod 4 = 0 or rs.eof then %>

<% end if %>

<% loop %>

<% rs.close %>

" border="0" style="padding:5px;" />

<% =rs(2) %>

<% rs.open "select aciklama from altkategoriler where id = " & kat ,conn,1,1 %>
<% if not rs.eof then %>
<%=split(rs(0),"*")(0)%>

<%if ubound(split(rs(0),"*")) > 0 then%>
<% keywords=left(replace(trim(replace(clearhtmltags(split(rs(0),"*")(1),0)," ","")),vbcrlf,""),254) %>
<%else%>

<%end if%>
<%if ubound(split(rs("aciklama"),"*")) > 0 then%>
<%keywords=split(rs("aciklama"),"*")(1)%>
<%tit=rs(1)%>
<%desc=left(Clearhtmltags(rs("aciklama"),0),254)%>

<% end if %>
<% rs.close %>

Üye Girişi Yap