Programalama > ASP

<%          'Idea: noLoveLusT
			'Mail: cgilust@gmx.net
			'Web : http://www.smslust.net
			'Copyright: Public (nonCommerical)
			'If you improve please contcat with me
			'
			'This sicript uses Msxml2

            aranan=request("webaranan")
			aranan=Replace(aranan,"_","")
            aranan=server.urlencode(aranan)
            sira=request("sira")
			post_to_url="http://www.google.com/wml?q="&aranan&"&start="&sira&"&hl=tr&num=5&ie=UTF-8"
			Set smslustARA = Server.CreateObject("Msxml2.XMLHTTP")
			smslustARA.open "GET",post_to_url, false
			smslustARA.send
			sonuc=smslustARA.responseText
			
		    if sira="" then
			sira="0"
			else
			sira=sira
						end if

            bas=":<br/>"
			son="Sonraki 5..."
		    yerbasi=instr(sonuc,bas)
			yersonu=instr(sonuc,son)
			sonuc=mid(sonuc,yerbasi,yersonu)
			sonuc=Replace(sonuc,"Google 1-5:","")
			sonuc=Replace(sonuc,"<br/>","<br><br><img src='files/buttonRight.gif' border='0' align='absmiddle' vspace='1' hspace='1'>")
			sonuc=Replace(sonuc,"Sonraki 5...","")
			sonuc=Replace(sonuc,"</card></wml>","")
			sonuc=Replace(sonuc,"http://wmlproxy.google.com/wmltrans/h=tr/g=/q="&aranan&"/s="&sira&"/u=","http://")
			sonuc=Replace(sonuc,"c=0","")
			sonuc=Replace(sonuc,"@2F","/")
			sonuc=Replace(sonuc,"<a","<a target=_blank class=menu")
			sonuc=Replace(sonuc,"//","/")
			sonuc=Replace(sonuc,"http:/","http://")
			sonuc=Replace(sonuc,"@7E","~")
			sonuc=Replace(sonuc,".htm/",".htm")
			sonuc=Replace(sonuc,".html/",".html")
			sonuc=Replace(sonuc,".asp/",".asp")
			sonuc=Replace(sonuc,".php/",".php")
			sonuc=Replace(sonuc,".pdf/",".pdf")
			sonuc=Replace(sonuc,".mp3/",".mp3")
			sonuc=Replace(sonuc,".exe/",".exe")
			sonuc=Replace(sonuc,".doc/",".doc")
			sonuc=Replace(sonuc,".xla/",".xla")
			sonuc=Replace(sonuc,".xml/",".xml")
			sonuc=Replace(sonuc,".cgi/",".cgi")
			sonuc=Replace(sonuc,".pl/",".pl")
			sonuc=Replace(sonuc,".chm/",".chm")
			sonuc=Replace(sonuc,".mov/",".mov")
			sonuc=Replace(sonuc,".avi/",".avi")
			sonuc=Replace(sonuc,".mpg/",".mpg")
			sonuc=Replace(sonuc,".mdb/",".mdb")
			sonuc=Replace(sonuc,".rar/",".rar")
			sonuc=Replace(sonuc,".arj/",".arj")
			sonuc=Replace(sonuc,".zip/",".zip")
			sonuc=Replace(sonuc,".xls/",".xls")
			sonuc=Replace(sonuc,".bmp/",".bmp")
			sonuc=Replace(sonuc,".gif/",".gif")
			sonuc=Replace(sonuc,".jpg/",".jpg")
			sonuc=Replace(sonuc,".vxd/",".vxd")
			sonuc=Replace(sonuc,".dll/",".dll")
			sonuc=Replace(sonuc,"@2D","-")
			sonuc=Replace(sonuc,"@5F","_")
			sonuc=Replace(sonuc,"@3F","?")
			sonuc=Replace(sonuc,"@3D","=")
			sonuc=Replace(sonuc,"@26","&")
			sonuc=Replace(sonuc,"@40","@")
			            
			For sayi=0 to 9
			    sonuc=Replace(sonuc,""&sayi&"/",""&sayi&"")
					next
			 
			set smslustARA=Nothing

			if sira="" Then
			nextsira=5
			presira=""
			else
			nextsira=sira+5
			presira=sira-5
			 if sira=0  Then
				presira=""
				else
				presira=presira
					if presira=0 Then
					presira=""
					end if
				end if
			end if


			if sonuc="" Then
			sonucYaz="<br>Aranan kelime bulunamadi<BR>"
			else
			sonuc=Replace(sonuc,"<a target=_blank class=menu href=""/wml?q="&aranan&"&num=5&hl=tr&ie=UTF-8&start="&nextsira&"""></a>","<br>")
			sonuc=Replace(sonuc,"<br><br><img src='files/buttonRight.gif' border='0' align='absmiddle' vspace='1' hspace='1'><br>","<br>")
			sonucYaz=sonuc
			end if

oncekibes="<a href="""& Request.ServerVariables("SCRIPT_NAME") &"?page=webara&show=ok&webaranan="&aranan&"&sira="&presira&""" class=""menu"" title=""Onceki bes"">Onceki 5</a>"
sonrakibes="<a href="""& Request.ServerVariables("SCRIPT_NAME") &"?page=webara&show=ok&webaranan="&aranan&"&sira="&nextsira&""" class=""menu"" title=""Sonraki bes"">Sonraki 5</a>"

%>

<center>
<table class="bgColorLight" width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
	<td><img src="files/miscCornerTopLeft.gif" height="8" width="8"></td>
	<td></td>
	<td><img src="files/miscCornerTopRight.gif" height="8" width="8"></td>
</tr>
<tr>
	<td></td>
	<td width="100%">
    <span style="position:relative; top:-4px;" class="homePageFeatures"><b><font color="#ff3300">::</font> 
    smsLusT Internette arama sonucu</b></span>
</td>
	<td></td>
</tr>
<tr>
	<td><img src="files/miscCornerBottomLeft.gif" height="8" width="8"></td>
	<td></td>
	<td><img src="files/miscCornerBottomRight.gif" height="8" width="8"></td>
</tr>
</table>
<img src="files/miscSpacer.gif" height="10">

<table class="bgColorLight" width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
	<td><img src="files/miscCornerTopLeft.gif" height="8" width="8"></td>
	<td></td>
	<td><img src="files/miscCornerTopRight.gif" height="8" width="8"></td>
</tr>
<tr>
	<td></td>
	<td width="100%">
    <span style="position:relative; top:-4px;" class="homePageFeatures"><b><font color="#ff3300">Bulunan linkler<%=sonucYaz%></span>
</td>
	<td></td>
</tr>
<tr>
	<td><img src="files/miscCornerBottomLeft.gif" height="8" width="8"></td>
	<td></td>
	<td><img src="files/miscCornerBottomRight.gif" height="8" width="8"></td>
</tr>
</table>

<img src="files/miscSpacer.gif" height="10">

<table class="bgColorLight" width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
	<td><img src="files/miscCornerTopLeft.gif" height="8" width="8"></td>
	<td colspan="2"></td>
	<td><img src="files/miscCornerTopRight.gif" height="8" width="8"></td>
</tr>
<tr>
	<td></td>
	<td width="50%">
    <span style="position:relative; top:-4px;" class="homePageFeatures"><b><p align="center"><%=oncekibes%></p></b></span>
</td>
	<td width="50%">
  <span style="position:relative; top:-4px;" class="homePageFeatures"><b><p align="center"><%=sonrakibes%></p></b></span>
</td>
	<td></td>
</tr>
<tr>
	<td><img src="files/miscCornerBottomLeft.gif" height="8" width="8"></td>
	<td colspan="2"></td>
	<td><img src="files/miscCornerBottomRight.gif" height="8" width="8"></td>
</tr>
</table>
<center><FONT SIZE="1">Bu arama kodu noLovLusT tarafindan yazilmistir ve temel olarak dunyanin en buyuk arama motoru google.com'u kullanir.Kaynak kodu icin <a href="http://www.smslust.net/download/webara.zip" target="_blank" class="menu">tiklayin</a></FONT></center>