Webmaster Forumu

Geri git   Webmaster Forumu > Webmaster Kaynak Eğitim Tanıtım Hizmet > Programlama Dilleri > HTML Javascript CSS
Hazir Kodlar Hazir Kodlar
Kayıt ol Blogs Yardım Üye Listesi Ajanda iTrader Forumları Okundu Kabul Et

HTML Javascript CSS HTML DHTML XML Javascript Ajax CSS

Cevapla
 
LinkBack Seçenekler Stil
  #1 (permalink)   iTrader 
Alt 2004-12-02, 17:09
Member
  
Üyelik tarihi: Dec 2004
Mesajlar: 323
Teşekkür: 0
Thanked 0 Times in 0 Posts
Tecrübe Puanı: 0
iTrader: %0/0
M.CoRLeOnE is an unknown quantity at this point
Standart Hazir Kodlar
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,bitecekye r-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>
Alıntı ile Cevapla

  #2 (permalink)   iTrader 
Alt 2004-12-02, 17:11
Member
  
Üyelik tarihi: Dec 2004
Mesajlar: 323
Teşekkür: 0
Thanked 0 Times in 0 Posts
Tecrübe Puanı: 0
iTrader: %0/0
M.CoRLeOnE is an unknown quantity at this point
Standart
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: ram@ramorris.co.uk)
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
Alıntı ile Cevapla

  #3 (permalink)   iTrader 
Alt 2004-12-02, 18:59
Gold Member
  
Üyelik tarihi: Oct 2002
Mesajlar: 1.136
Teşekkür: 0
Thanked 0 Times in 0 Posts
Tecrübe Puanı: 6
iTrader: %0/0
bedavaonline is an unknown quantity at this point
Standart
Kodları yazarken, "code /code" arasında kullanırsanız daha sağlıklı olur.
__________________
- Profesyonel web tasarım yapılır -
Alıntı ile Cevapla

  #4 (permalink)   iTrader 
Alt 2004-12-14, 14:57
Junior Member
  
Üyelik tarihi: Dec 2004
Mesajlar: 8
Teşekkür: 0
Thanked 0 Times in 0 Posts
Tecrübe Puanı: 0
iTrader: %0/0
apo911 is an unknown quantity at this point
Standart
çok sagolun arkadaslar gerçekten çok işime yaradı çok teşekkür ederim
Alıntı ile Cevapla

Cevapla

« önceki Konu | sonraki Konu »

Seçenekler
Stil
Normal Normal

Yetkileriniz
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Gerekli Kodlar [PHP] dejafu PHP 11 2006-02-18 18:32
kodlarını kendi yazarak site yapan Türk webmaster varmi? wwwxxxyyy Webmaster Genel Konular 32 2006-01-20 02:58
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


Bütün Zaman Ayarları WEZ +2 olarak düzenlenmiştir. Şu Anki Saat: 21:52 .

Webmaster Forumu - Arşiv - Yukarı git

Powered by vBulletin® Version 3.7.2
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.1.0

Firefox