ASP Hazır kodlar

**NeFuSa** · #1 (**permalink**) 2007-03-04, 13:23

Sayfayı her yenilediğinizde farklı resim görüntülemek istiyorsanız :

Kod:

<% 
Randomize 
Resim = INT(Rnd * 5)+1 
Response.write "<img src=klasor/"&Resim&".jpg>" 
%>

qdin · #2 (**permalink**) 2007-03-04, 14:44

Merhaba,
bu bölüm ASP bölümü olsun o zaman buda Uzun kelimeleri ayırmak için

Alıntı:

Dim GELEN_KELIME, AYR_KELIME
GELEN_KELIME ="MerhaBA ÇOKKKKKKMMMMMMLLMMMMMMMLÝLEMUKEÝAMLY UÝEKAYUMLÝEAK"
AYR_KELIME = 15

Function METINBOL(GELEN)
MARRAY = SPLIT(GELEN, " ") : TOPKELIME = UBound(MARRAY,1)
For I = 0 To TOPKELIME
KUZUN = Len(MARRAY(I))
If KUZUN > AYR_KELIME Then
BAS = 1 : BIT = AYR_KELIME
For J = 1 To (KUZUN/AYR_KELIME)+1
RESPONSE.Write MID(MARRAY(I),BAS,BIT) & " "
BAS = BAS + AYR_KELIME : If BIT + AYR_KELIME < AYR_KELIME Then BIT = BIT + AYR_KELIME Else BIT = AYR_KELIME
Next
Else
RESPONSE.Write MARRAY(I) & " "
End If
Next
End Function

Kullanımı:

Code:

<% METINBOL(GELEN_KELIME) %>

**Gamend** · #3 (**permalink**) 2007-03-04, 15:07

Arkadaşlar, başlık sabitlenmiş ve "ASP Hazır kodlar" olarak değiştirilmiştir. Burada ASP kodlarını paylaşalım ve geniş bir kod arşivi oluşturalım. Hepimiz faydalanırız. Benim bildiğim kodu belki diğer üye bilmeyecek, onun bildiğini de ben bilmeyeceğim.

**NeFuSa** · #4 (**permalink**) 2007-03-04, 15:40

Evet iyi fikir. Ama ayrıca burada mümkün olduğu kadar sadece kod yazılsın. Gelipte "süper" "bravo rep veriyorum" "aa ne güzel, çok işime yarayacak" tarzından mesajlar yazıpta konuyu dağıtmasın. Kod arayan sadece kod bulsun burada geyik değil...

İyi Çalışmalar

qdin · #5 (**permalink**) 2007-03-04, 16:09

Kelimelerin baş harflerini büyüt

Kod:

<%
Function Proper(X)
'Return a String With the first letter of the word capitalised
If IsNull(X) Then
Exit Function
Else
lowercaseSTR = CStr(LCase(X))
OldC = " "
MyArray = Split(lowercaseSTR," ")
For IntI = LBound(MyArray) To UBound(MyArray)
For I = 1 To Len(MyArray(IntI))
If Len(MyArray(IntI)) = 1 Then
newString = newString & UCase(MyArray(IntI)) & " "
ElseIf I=1 Then
newString = newString & UCase(Mid(MyArray(IntI), I, 1))
ElseIf I = Len(MyArray(IntI)) Then
newString = newString & Mid(MyArray(IntI), I, 1) & " "
Else
newString = newString & Mid(MyArray(IntI), I, 1)
End If
Next
Next 'IntI
Proper = Trim(newString)
End If
End Function
%>

Caesar · #6 (**permalink**) 2007-03-04, 16:45

Lütfen kodları aldığınız yerden kaynak belirtin! Kaynak belirtmeden verecekseniz kendi kodlarınız olsun.
http://www.bilgisayarbolumu.com/?kon...=oku&sayfala=1
http://support.microsoft.com/kb/815282/ja

qdin · #7 (**permalink**) 2007-03-04, 17:50

Handling Spaces in URL

Kod:

.vbScript{color:black;background-color:white;font-size:10pt;font-family:Courier New;}.vbScript B{color:blue}Netscape sometimes has problems handling strings With a space In it when using the Response.Redirect method. To overcome this problem use the Server.URLEncode("variable name") With the String.

strField = Server.URLEncode(strField)
Response.Redirect("yourpage.asp?Field=strField")

**NeFuSa** · #8 (**permalink**) 2007-03-05, 10:22

Merkez Bankası'ndan sizi hiç zahmete sokmadan güncel döviz kurlarını çekmektedir. " http://www.tcmb.gov.tr/kurlar/today.html " adresinden parametreleri alarak döviz kurları tablosunu çoğaltmanız mümkündür. Bu scripti editleyerek http://www.garanti24.com adresinde bir uygulama yapmıştım. Her portalda kullanılabilir güzel bir döviz kuru scripti... Sorun yaşayan veya yapamayan arkadaşlara yardımcı olabilirim P.M'den

Kod:

<%
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ı</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>

**yehhucom** · #9 (**permalink**) 2007-03-22, 00:09

sitesine burç eklemek isteyenler için bir örnek kodları teraziburcu.asp nin içine yapıştırın deneyin. ASPtear destekli serverınızda haberURL deki adresden
baslangic = "><strong><big>"
bitis = "<br> </big></strong></font>"
gibi örnekteki başlangıç ve bitis html kodunu belirterek ortasınki kodları çekmesini sağlayabilirsiniz.Bu bir örnektir geliştirip kendinize görede uyarlayabilirsiniz.

Kod:

<%
const Request_GET = 2
Dim haberURL, haberim, basliklar
haberURL = "http://www.muneccim.com/gunluk_fal/bugun.asp?burc=7"
Set alma = CreateObject("SOFTWING.ASPtear" )
Session.CodePage = 1254

On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )
Session.CodePage = 1254
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "><strong><big>"
bitis = "<br> </big></strong></font>"
dim x , abc
x = 0
abc = 0
dim lale
lale = ""
Do Until abc = 2
x = x + 1
If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then
abc = abc + 1
End If
If Mid(haberim,x,Len(baslangic)) = baslangic Then
abc = abc + 1
Else
If abc = 1 Then
lale = lale + Mid(haberim,x,1)
End If
End If
Loop
Function seklesok(hammadde)
Dim gecicigeyik
gecicigeyik = hammadde
gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1)
gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1)
seklesok = gecicigeyik
End Function
Response.Write "<p align='justify'><font size=1 face=verdana color=000000>"
Response.Write seklesok(lale)
Response.Write "</b></font></p>"
%>

kaynak : genel bi siteden alınmış birçok asp sitesinde belirtilmiştir.Bilmeyenler için burdada yayınlamak istedim.

**CMYLMZ** · #10 (**permalink**) 2007-03-22, 00:23

ip adresi bulmak ve proxy den gelip gelmedigini anlamak için kullanılacak kod.

Kod:

<%
Response.Write "Ip Adresi = " & Request.ServerVariables("REMOTE_ADDR") & "<br>"
%>

<%
 If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then
  Response.Write "Istek Yapan Ip : " & Request.ServerVariables("HTTP_X_FORWARDED_FOR")
 End If
%>

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Gerekli Kodlar [PHP]	dejafu	PHP	11	2006-02-18 18:32
javada _L1: kodlar ve goto komutu	enosoft	Java JSP C#	1	2005-10-16 23:37
asp de sayfalama yaptırmak için gereken kodlar nelerdir?	sad_	ASP .NET	3	2005-04-08 01:33
kodlar mı, hosting mi?	pigeon	Webmaster Genel Konular	6	2005-03-29 23:03
Hazir Kodlar	M.CoRLeOnE	HTML Javascript CSS	3	2004-12-14 14:57

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)