Eburhanın yazmış olduğu Google URL kısaltma servisini PHP ile kullanmak makalesini gördüğümde bunu ASP ile nasıl yaparızı düşündüm. İşte yanıtı :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<% 

Function slashduzelt(veri)

veri = replace(veri, "\/", "/")

slashduzelt = veri

End Function

	

Function toGoogl(link)

url="http://ggl-shortener.appspot.com/?url=" & trim(link)

Set baglan = CreateObject("Microsoft.XMLHTTP")

	baglan.Open "get", url, False

	baglan.Send

	toGoogl = slashduzelt(baglan.responseText)

    Set baglan = Nothing

    End Function

%>