ASP Hazır kodlar

[yehhucom]

<%
deneme1=Request.QueryString("deneme1")
%>

yukardaki kodla deneme.asp?deneme1=isim şeklinde yazdığınızda

<%=Request.QueryString("deneme1")%>

yukardaki kodu sayfanızın neresine koyarsanız ordana deneme.asp?deneme1=isim gönderdiğimiz komuttaki isim kısmı sayfanızda yazar.

deneme1=Request.QueryString("deneme1")
Set AYDIN = server. CreateObject("ADODB.Recordset")
kayit = "Select * from arama where '%"& deneme1 &"%'"
AYDIN.Open kayit,Sur2,1,3

access db için kullanmak isterseniz yukardaki gibi deneme1 i isteğinize göre editleyerek yolladığınız isim kısmını where in önüne yazar ve dbdeki arama tablosunkida isim geçen kayıtları alır.

-------------

<%
deneme2=request.form("deneme2")
%>

yukardaki kodlada form olarak gönderdiğiniz

<form method=post>

post methoduyla yukardaki gibi deneme.asp nin sonuna eklemeden ve adres çubuğunda göstermeden action=http://www.adres.com yerine

<input name="deneme2" type="text" size="40" />

yoluyla gönderilen istemleri

<%=Request.form("deneme2")%>

yukardaki kodu sayfanızın neresine koyarsanız gene yukarda belirttiğim formda ne gönderirseniz onu sayfanızda gösterir.

deneme2=request.form("deneme2")
Set AYDIN = server. CreateObject("ADODB.Recordset")
kayit = "Select * from arama where '%"& deneme2 &"%'"
AYDIN.Open kayit,Sur2,1,3

access db için kullanmak isterseniz yukardaki gibi (deneme2 yi isteğinize göre editleyebilirsiniz) yolladığınız yazıyı where in önüne yazar ve dbdeki arama tablosunkida isim geçen kayıtları alır.

elimden geldiğince anlatmaya çalıştım. bunu birçok yerde kullanıyorum. anlaşılmayan bişi varsa özelden yardımcı olmaya çalışırım.Ayrıca istediğiniz sormak istediğiniz kod vs sorun olursa sorabilirsiniz.

[yehhucom]

youtube bir videoyu örneğin http://www.youtube.com/v/pLIWJn2RJQw&autoplay=1 video urlsini url tablosunda ve id 1 olarak bulunduğunu varsayalım.

aşağıdaki kodu ytb.asp olarak kaydedin.

ytb.asp?id=1

yazdığınızda yukardaki youtube video linkini direkt kullanmak ve göstermek yerine sitenizde http://www.adres.com/ytb.asp?id=1 diyerekde video yu
kendi sitenizdeymiş gibi gösterebilirsiniz.

<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("klasor/db.mdb")
%>
<%deisken=cint(request.querystring("id"))
set id = Request.QueryString("id")
Set conn=server.createobject("adodb.connection")
dsnpath="DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)}; "
dsnpath=dsnpath & "DBQ=" & Server.MapPath("klasor/db.mdb")
conn.open dsnpath
SQL = "select * from youtube where id="
SQL = SQL & id
Set AYDIN=conn.execute(sql)
Session.CodePage = 1254
%>
<%

set rs=server.createobject("adodb.recordset")
sql="select youtube.* from youtube where id="
sql=sql & deisken
rs.open sql,Sur,1,3

 %>
<% Response.Redirect rs("url") %>

[yehhucom]

Arkadaşlar asptear ı biliyorsunuz rahat veri çekmek için kullanılıyor..Ama benimde çok yaşadığım olay 3-4 tane aynı anda çalıştırılınca bekletiyor ve hızlı açılmıyor..

bunun için size hızlı bir alternatifi olan ve kodlaması nerdeyse aynı olan ServerXMLHTTP bileşeni sayesinde veri çekmek için bilgiler vericem :

Önce bir örnek olarak herhangi bi siteyi xmlhttp.asp dosyasından açarak nası çekildiğini gösterelim..

<%
vericekilecekadres = "http://www.domain.com/sayfa.asp"
Dim objXmlHttp 
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , vericekilecekadres , false

objXmlHttp.sEnd 

alinanveri = objXmlHttp.ResponseText 
Set objXmlHttp = Nothing
response.write alinanveri
%>

üstteki kodu xmlhttp.asp ye yapıştırıp açtığımızda veri çekilecek adresin tüm kaynak kodunu(bi sayfaya sağ tıklayın kaynak kodunu yani html kodlarını gösterdiğimizdeki) alır ve yayınlar..

üstte gösterdiğim bi sayfayı tamamen çekmek için kullanılıyor.. isteğe göre veri çekmek için yardımcı nesneler var onları tanıtalım.. :

left
right
mid
instr
trim
lcase
ucase
len
split

Bu nesneleri örnek ile açıklayalım.

Left kullanımı :

<%
isim = "forum.iyinet.com"
yazdir = left(isim,6)
response.write yazdir
%>

Açıklama(Left) : Kullanımdaki gibi verilen rakamı soldan başlayarak karakter sayısına kadar olan yazıyı alır.Bu örnekte ekrana forum.iyin olarak çıkar.


Right kullanımı :

<%
isim = "forum.iyinet.com"
yazdir = right(isim,6)
response.write yazdir
%>

Açıklama(right) : Sağ tarafdan başlayarak verilen rakam kadar olan yazıyı alır.Bu örnekte ekrana iyinet.com olarak bir yazı çıkar.


Mid kullanımı :

<%
isim = "forum.iyinet.com"
yazdir = mid(isim,2,5)
response.write yazdir
%>

Açıklama(mid) : Sol taraftan 2. ve 5. karakter arası olan yazıları alır.Çıktısı orum.iyine gibi olaraktır.Eğer 2. sayı olan(bu örnekte 5 rakamı) girilmezse o karakterden başlayarak değerin sonuna kadar olan yazıyı alır.


Instr kullanımı :

<%
isim = "forum.iyinet.com"
yazdir = Instr(isim,"com")
response.write yazdir
%>

Açıklama(Instr) : Baştan başlayarak "com" diye belirmiş olduğumuz yazıya kadar olanki verinin karakter sayısını alır.Bu örnek te çıktısı 13 şeklindedir.Bunun nedeni "forum.iyinet." değerinde 13 tane karakter vardır.


Trim kullanımı :

<%
isim = "  forum.iyinet.com    "
yazdir = Trim(isim)
response.write yazdir
%>

Açıklama(Trim) : Veri'deki sağdan ve soldan olan bütün boşlukları siler.Bu örneğimizde çıktısı "forum.iyinet.com" olarakdır.Sağdan ve soldan bütün boşluklar atılmış hali.


Ucase kullanımı :

<%
isim = "forum.iyinet.com"
yazdir = Ucase(isim)
response.write yazdir
%>

Açıklama(Ucase) : Veri'deki bütün karakterleri büyük harf olarak çıkartır.Örneğimizdeki değerin çıktısı FORUM.IYINET.COM olaraktır.


Lcase kullanımı :

<%
isim = "FORUM.iyinet.com"
yazdir = Lcase(isim)
response.write yazdir
%>

Açıklama(Lcase) : Veri'deki bütün harfleri küçük harfe dönüştürür.Ucase'in tam tersidir.Örnekteki çıktısı forum.iyinet.com şeklindedir.


Len Kullanımı :

<%
isim = "forum.iyinet.com"
yazdir = Len(isim)
response.write yazdir
%>

Açıklama(Len) : Değerin kaç karakterden oluştuğunu alır.Örnekdeki çıktısı 16 şeklindedir.Çünkü forum.iyinet.com yazısı 16 karakterden oluşmaktadır.

Split kullanımı :

Diyelimki Querystring alıyorsunuz.Sayfamız şöyle geliyor.

sayfa.asp?1234|1234

Burada 2 adet ID numarası geçiyor.Bunların ismi yok fakat biz bunları SPLıT aracılığı ile alıp işletebiliriz.

Kullanımı şöyledir.

<%

obje = split(obje,"|")

obje(0)
obje(1)

%>

Obje dediğimiz değişkenimizdir.Objenin içeriğindeki "|" lerin geçtiği yerlerden itibaren bölme işlemi yapıyor ve obje(0) yazarak bunu yazdırıyoruz.

"|" işareti yerine istediğinizi kullanabilirsiniz.Mesela "-" bile kullanırsınız.

Kısaca örneğimizi yazalım.Sayfamızın ismi sayfa.asp olsun ve şu şekilde açılsın "sayfa.asp?1234-1234"

Buradaki 2 adet ID numarası alıp değişkenler ile yazdıralım.

<%

obje = request.querystring

obje = split(obje,"-")

response.write obje(0) & "<br>"
response.write obje(1) & "<br>"

%>

"sayfa.asp?1234-1234" Böylece bu sayfa açıldığında çıktısı :

1234
1234

şeklinde olacaktır.Split ile böylece sayfalarınızda stringlere ad vermeden yada gizleyerek rahatça kullanabilirsiniz.

Örnek olarak birde size döviz kurlarını almak için kod vereyim :

<%
strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"

Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
With objVeriAl
  .Open "GET" , strGelen, FALSE
  .sEnd
VeriAl =  .Responsetext
End With
SET objVeriAl = Nothing
End Function

strVeri = VeriAL(strAdres)
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+50,10)
strDolarSatis=Mid(strVeri,iDolar+51,10)

iEuro=InStr(strVeri,"EUR" )

strEuroAlis=Mid(strVeri,iEuro+38,11)
strEuroSatis=Mid(strVeri,iEuro+50,11)
%>
<html>
<title>TCMB Döviz Kurları - Kaynak : forum.iyinet.com</title>
<body>
<table width="20%" border="0" cellspacing="0" style="border: 1px solid #D7D7D7">
<tr>
<td nowrap width="99%" bgcolor="#E1E1E1" colspan="2"><strong>
<font face="Verdana"><b><font color="#FF0000" style="font-size: 7pt"> DOLAR</font></b></font></strong></td>
</tr>
<tr>
<td nowrap width="7%"><font face="Verdana" style="font-size: 7pt; ">ALIş</font></td>
<td width="92%">
<div align="left"><font face="verdana" size="1">
<p align="right"> <%=strdolaralis%> YTL 
</font></div></td>
</tr>
<tr>
<td nowrap width="7%"><font face="Verdana" style="font-size: 7pt; ">SATIş</font></td>
<td width="92%">
<div align="left"><font face="verdana" size="1">
<p align="right"> <%=strdolarsatis%> YTL 
</font></div></td>
</tr>
<tr>
<td colspan="2" style="border-top: 1px solid #C0C0C0"> </td>
</tr>
<tr>
<td colspan="2" bgcolor="#E1E1E1"><strong><font face="Verdana"><b>
<font color="#0099CC" style="font-size: 7pt"> </font><font color="#FF0000" style="font-size: 7pt">EURO</font></b></font></strong></td>
</tr>
<tr>
<td nowrap width="7%"><font face="Verdana" style="font-size: 7pt; ">ALIş</font></td>
<td width="92%">
<p align="right"><font face="verdana" size="1"> <%=streuroalis%> YTL </font></td>
</tr>
<tr>
<td nowrap width="7%"><font face="Verdana" style="font-size: 7pt; ">SATIş</font></td>
<td width="92%">
<p align="right"><font size="1" face="verdana"><%=streurosatis%> YTL</font><font size="1">
</font> </td>
</tr>
</table>
</body>
</html>

XmlHTTP Türkçe karakter problemini çözmek için :

XmlHTTP ile veri çektiğiniz zaman türkçe karakter ler düzgün çıkmamaktadır.Bunun nedeni veriyi alırken "text" yöntemi ile alınıyor olması.Bunun yerine "Body" biçiminde alıcaz.Fakat bu veriyi ekrana yazdırırken sadece ? çıktığını görürsünüz.Bunun nedeni aldığınız verinin Binary olmasıdır.Bu binary'yi bir fonksiyon ile Text e çevirebilirsiniz.Bu şekilde kullanılırsa XmlHTTP de Türkçe karakter problemi ortadan kalkmaktadır.

Normalde XmlHTTP ile veri alınırken :

<%
strURL = "http://www.iyinet.com/"
Dim objXmlHttp 
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , strURL , false

objXmlHttp.sEnd 

strHTML = objXmlHttp.ResponseText 
%>

gibi bir kod kullanırız.Bu kod ile veri alırsanız Türkçe karakterlerinizin ? şeklinde çıktığını görürsünüz.Bunun yerine BinaryToText isminde bir fonksiyon kullanacağız.

Fonksiyonumuz aşağıdadır.

<%
Private  Function BinaryToString(Binary)
Dim  cl1, cl2, cl3, pl1, pl2, pl3
Dim  L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do  While cl1<=L
pl3 = pl3 &  Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If  cl3>300  Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If  cl2>200  Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End  If
End  If
Loop
BinaryToString = pl1 & pl2 & pl3
End  Function
%>

Bu fonksiyonu kullanmanız yeterli olmuyacaktır.Veri alırken üstte aldığımız gibi "ResponseText" yerine "ResponseBody" şeklinde alınması gerekiyor.Hepsini tek bir kod ile birleştirmek gerekirse :

<%
strURL = "http://www.iyinet.com/"
Dim objXmlHttp 
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , strURL , false

objXmlHttp.sEnd 

strHTML = objXmlHttp.ResponseBody

Private  Function BinaryToString(Binary)
Dim  cl1, cl2, cl3, pl1, pl2, pl3
Dim  L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do  While cl1<=L
pl3 = pl3 &  Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If  cl3>300  Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If  cl2>200  Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End  If
End  If
Loop
BinaryToString = pl1 & pl2 & pl3
End  Function


Response.Write BinaryToString(strHTML)
%>

Bu şekilde Türkçe karakterlerin ? çıkmasını engelleriz.. Bu şekilde kullanılmazsa bazı sayfalardan veri çekerken Türkçe karakterleri göremezsiniz..

kolay gelsin..

not: yöneticiler başlığı sabitlerse sevinirim..

[ramazan]

Faydalı bilgiler bilmeyenler için.

[LuGeLaS]

Hızlı veri çekmek için tek çözüm mü ?

Emin misin buna.

Bence en kötüsü xmlhttp. Sunucuyu en çok kasan o

[yehhucom]

bencede asptear.. xmlhttp ye geçmeden önce asptear kullandığım sayfayı aynı anda açan 4 kişi 1-2 dakka bekliyordu.. şimdi sorun yok gayette hızlı çekiyor.. ayrıca birçok kişi birçok yerde xmlhttp yi kullanıyor.. sabitlenirken gerekirse XMLHTTP ile veri çekmek olarak başlığı değişebilir..

[TrDownload]

LuGeLaS daha iyisini biliyorsan sende yazda faydalanalım