İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

Hazir Kodlar

M

M.CoRLeOnE

0
İyinet Üyesi
Katılım
1 Aralık 2004
Mesajlar
550
Reaction score
0
Script Adı : CD-Rom Açma
<SCRIPT language="VBScript">
<!--

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

-->
</SCRIPT>



Script Adı : ASP ile basit Whois
<!-- Form.htm içeriği -->
<html>

<head>
<meta name="Telif" content="Thief (yani ben..)">

<body>

<form method="POST" action="goster.asp">
<p>
<input type="text" name="domain" size="20">
<input type="submit" value="Sorgula" name="B1"> (domain: <font color="#FF0000">
domain.com</font> seklinde olmalidir.. )</p>
</form>

</body>

</html>

<!-- Goster.asp İçeriği -->
<%
domain = Request.Form("domain")
%>
<img src="http://www.register.com/generate_gif.cgi?msg=<%=domain%>" border="0"></img>

Her ne kadar ayaküstü yazılmış, basit bir sistem olsada oldukça iyi sonuç veriyor.. İyi ASP 'ler :)


Adı : ASP ve Timer

<%
start = timer()
Response.Write("Scriptler.Com")
stop = timer()
%>
<font face="Verdana" size="2" color="blue"><center>Bu sayfa<b> <%=stop-start %> </b>saniyede oluşturuldu..

Yukarıdaki kod 'u kullandığınız takdirde, sayfa oluşumu 0 saniye çıkacaktır fakat timer kodlarını <%= start = timer() %> şeklinde, ASP taglarının dışında da kullanabilirsiniz.. Mesela <html> tagının altından başlayıp </html> tagının altına kadar devam eden bir timer kodu.. Böylece sayfanızın kaç saniyede oluştuğunu göreceksiniz.. :) İyi ASP 'ler..





Script Adı : ASP ile Güncel Haberler

%
alinacakadres = "http://www.ntvmsnbc.com/news/BCList2.txt"

Set Tear_ac = CreateObject("SOFTWING.ASPtear" )
dim bilgicek
bilgicek = Tear_ac.Retrieve(alinacakadres , 2, "" , "" , "" )

nereden="Güncel Ön Sayfa"
nereye="+UYUM YASASI"

baslanacakyer=InStr(bilgicek,nereden)+15
bitecekyer=InStr(bilgicek,nereye)
baslangic=0
son=0
alinacakbolum=Mid(bilgicek,baslanacakyer,bitecekyer-baslanacakyer)

For a= 1 To 100

t=Len(alinacakbolum)

If t<=0 Then
exit For
End If

c=InStr(alinacakbolum,Chr(10))

If c<=0 Then
exit For
End If

alinacakbolum=Right(alinacakbolum,t-c)

baslangic=InStr(alinacakbolum,"/news/./" )
son=InStr(alinacakbolum,Chr(10))

If baslangic<=0 or son<=0 or son<baslangic Then

Else
satir=Mid(alinacakbolum,baslangic,son-baslangic)
If InStr(satir,"/news/./" )=0 or Len(satir)<20 Then
Else
ekle=ekle & satir & "<br>"
End If
End If

Next

ekle=Replace(ekle,"/news/./" ,"<a href='http://www.ntvmsnbc.com/news/" ,1,-1,1)
ekle=Replace(ekle,"|" ,"'>" ,1,-1,1)
ekle=Replace(ekle,Chr(10),"</a>" ,1,-1,1)


Script Adı : ASP ile Deprem Bilgisi
html>
<head>
<style>
table { font: 9px verdana,tahoma,arial; }
</style>
</head>
<body bgcolor="#eeeeee">
<%
const Request_GET = 2
Dim haberURL, haberim, basliklar
haberURL = "http://iyi.net/"
Set alma = CreateObject("SOFTWING.ASPtear" )
On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "http://www.iyinet.com/images/deprem.gif"
bitis = "Deprem Arsiv Kayitlari"
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 "<table border='0' width='98%' cellspacing='0' cellpadding='0'>"
Response.Write "<tr>"
Response.Write "<td bgcolor='#F0F0F0' width='100%'>"
Response.Write "<"
Response.Write seklesok(lale)
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
%></body>
</html>
 
M

M.CoRLeOnE

0
İyinet Üyesi
Katılım
1 Aralık 2004
Mesajlar
550
Reaction score
0
Script Adı : ASP ile Hava Durumu Bilgileri
<%
const Request_GET = 2
Dim haberURL, haberim, basliklar
haberURL = "http://www.tr.net"
Set alma = CreateObject("SOFTWING.ASPtear" )
On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "<table border=0 cellpadding=0 cellcpacing=0>"
bitis = "</table>"
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 "<"
Response.Write seklesok(lale)
Response.Write "</table>"
%>


Script Adı : ASP ile SQL Server Bağlantısı


Asp ile Sql server veri tabanina ulasmak için asagidaki kodu kullaniyorduk tabi vu webserver ile sql server ayni bilgisayarda çalisiyorsa


"Driver={SQL Server};" & _
"Server=MyServerName;" & _
"Database=myDatabaseName;" & _
"Uid=myUsername;" & _
"Pwd=myPassword;"

Sql Server baska bir bilgisayarda çalisiyorsa asagidaki kodu kullanacagiz.


"Driver={SQL Server};" & _
"Server=xxx.xxx.xxx.xxx;" & _
"Address=xxx.xxx.xxx.xxx,1433;" & _
"Network=DBMSSOCN;" & _
"Database=myDatabaseName;" & _
"Uid=myUsername;" & _
"Pwd=myPassword;"

Script Adı : Dil Seçimi

html>
<script>

/*
By Richard Morris (Email: [email protected])
Featured on Website Abstraction (http://wsabstract.com)
For this and over 400+ free scripts, visit http://wsabstract.com
*/

var type=navigator.appName
if (type=="Netscape")
var lang = navigator.language
else
var lang = navigator.userLanguage

//cut down to first 2 chars of country code
var lang = lang.substr(0,2)

// Ingilizce
if (lang == "en")
window.location.replace('ingilizce.html')

Script Adı : PHP ile Döviz Kuru Alma

<?php
function CropSt($st, $what, $len=100) {
$start = strpos( $st, $what );
$st = substr( $st, $start+strlen($what), $len );
return $st;
}
function GetRoE($st, $endsep = " TL") {
$end = strpos( $st, $endsep);
$st = substr( $st, 0, $end);
$st = ereg_replace( ",", "", $st );
return (int)$st;
}

function SaveStringToFile($filename, $text) {
$file = @fopen($filename, "w");
if ( $file ) {
fputs($file, $text);
fclose($file);
}
}

// VillaDöviz
$vd = @file( "http://www.villadoviz.com/" );
if ( $vd ) {
$vd = implode("", $vd);
$vd = CropSt( $vd, "<font color=\"#800000\">USD</font>", 90);
$vd = CropSt( $vd, "<b>Alış </b>");

$alis = GetRoE($vd);
$vd = trim(CropSt($vd, "<b>Satış </b>" ));
$satis = GetRoE($vd);
}

// T.C. Merkez Bankası
$tcmb_today = @file("http://www.tcmb.gov.tr/kurlar/today.html");
if ( $tcmb_today ) {
$tcmb_today = implode("", $tcmb_today);
$tcm_today = ereg_replace("\r", "", $tcmb_today);
$start = strpos($tcmb_today, "ABD DOLARI");
$tcmb_today = trim(substr($tcmb_today, $start+14, 70));
while ( ereg( "[ ]{2,}", $tcmb_today)>0 )
$tcmb_today = ereg_replace( "[ ]{2,}", " ", $tcmb_today );
/* while ( strpos($tcmb_today, " ")>0 )
$tcmb_today = ereg_replace(" ", " ", $tcmb_today); */
$tcmb_today = explode( " ", $tcmb_today );
$doviz_alis = (int)ereg_replace( ",", "", $tcmb_today[0] );
$doviz_satis = (int)ereg_replace( ",", "", $tcmb_today[1] );
$efektif_alis = (int)ereg_replace( ",", "", $tcmb_today[2] );
$efektif_satis = (int)ereg_replace( ",", "", $tcmb_today[3] );
}

// Yatırımcı Köşesi - Superonline
$yatirimci = @file("http://www.borsadan.com/doviz.asp");
if ( $yatirimci ) {
$yatirimci = implode("", $yatirimci);
$yatirimci = CropSt( $yatirimci, '<td class="data">ABD Doları</td>', 300);
SaveStringToFile("sol.txt", "SOL\n\n".$yatirimci);
$yatirimci = strip_tags($yatirimci);
$yatirimci = ereg_replace( ",", "", trim($yatirimci) );
$yatirimci = ereg_replace( "\t|\n|\r", " ", $yatirimci );
while ( ereg( "[ ]{2,}", $yatirimci)>0 )
$yatirimci = ereg_replace( "[ ]{2,}", " ", $yatirimci );
$yatirimci = explode( " ", $yatirimci );
$y_alis = (int)$yatirimci[0];
$y_satis = (int)$yatirimci[1];
$y_endusuk = (int)$yatirimci[2];
$y_enyuksek = (int)$yatirimci[3];
$y_saat = $yatirimci[4];
}

// KOÇ Bank
$koc = @file("http://www.kocbank.com.tr/_index/index_main.asp");
if ( $koc ) {
$koc = implode("", $koc);
$koc = CropSt( $koc, ' USD:', 265);
$koc = CropSt( $koc, '<font face="Arial, Helvetica, sans-serif" size="1">',151);
$koc = strip_tags($koc);
$koc = ereg_replace( "\.", "", trim($koc) );
$koc = ereg_replace( "\t|\n|\r", " ", $koc );
while ( ereg( "[ ]{2,}", $koc)>0 )
$koc = ereg_replace( "[ ]{2,}", " ", $koc );
$koc = explode( " ", $koc );
$koc_alis = (int)$koc[0];
$koc_satis = (int)$koc[1];
} else
echo "HATA";
?>

<?php
/*
******************* ÖRNEK SAYFA *************************
*/
?>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso8859-9">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title></title>
</head>
<body bgcolor="#FEECDD">
<center>
<table border="0" width="300" cellspacing="1" cellpadding="1">
<?php
if ( $vd ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center"><font face="Verdana"color="#FFFFFF"><b>VillaDöviz</b></font></td>
</tr>
<tr>
<td width="110"><font face="Verdana">$USD Alış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($alis, 0, ",", ".");?>TL</font></td>
</tr>
<tr>
<td><font face="Verdana">$USD Satış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($satis, 0, ",",".");?> TL</font></td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<?php
}
if ( $tcmb_today ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center"><font face="Verdana" color="#FFFFFF"><b>MerkezBankası</b></font></td>
</tr>
<tr>
<td width="110"><font face="Verdana">Döviz Alış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($doviz_alis, 0, ",",".");?> TL</font></td>
</tr>
<tr>
<td><font face="Verdana">Döviz Satış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($doviz_satis, 0, ",",".");?> TL</font></td>
</tr>
<tr>
<td><font face="Verdana">Efektif Alış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($efektif_alis, 0, ",",".");?> TL</font></td>
</tr>
<tr>
<td><font face="Verdana">Efektif Satış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($efektif_satis, 0,",", ".");?> TL</font></td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<?php
}
if ( $yatirimci ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center"><font face="Verdana" color="#FFFFFF"><b>YatırımcıKöşesi - Superonline</b></font> <font face="Verdana" color="#FFFFFF" size="1">(<?php echo$y_saat; ?>)</font></td>
</tr>
<tr>
<td width="110"><font face="Verdana">Döviz Alış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($y_alis, 0, ",", ".");?> TL</font></td>
</tr>
<tr>
<td><font face="Verdana">Döviz Satış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($y_satis, 0, ",", ".");?> TL</font></td>
</tr>
<tr>
<td><font face="Verdana">En Düşük</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($y_endusuk, 0, ",","."); ?> TL</font></td>
</tr>
<tr>
<td><font face="Verdana">En Yüksek</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($y_enyuksek, 0, ",","."); ?> TL</font></td>
</tr>
<?php
}
if ( $koc ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center"><font face="Verdana" color="#FFFFFF"><b>KoçBankası</b></font></td>
</tr>
<tr>
<td width="110"><font face="Verdana">Döviz Alış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($koc_alis, 0, ",","."); ?> TL</font></td>
</tr>
<tr>
<td><font face="Verdana">Döviz Satış</font></td>
<td align="right"><font face="Verdana"><?php echo number_format($koc_satis, 0, ",","."); ?> TL</font></td>
</tr>
<?php
 
B

bedavaonline

0
İyinet Üyesi
Katılım
10 Ekim 2002
Mesajlar
602
Reaction score
0
Kodları yazarken, "code /code" arasında kullanırsanız daha sağlıklı olur.
 
A

apo911

Misafir
çok sagolun arkadaslar gerçekten çok işime yaradı çok teşekkür ederim
 
Cevap yazmak için giriş yap yada kayıt ol.

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Üst