Webmaster Forumu - Tekil Mesaj gösterimi

M.CoRLeOnE · #2 (**permalink**) 2004-12-02, 17:11

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, "USD", 90);
$vd = CropSt( $vd, "Alış ");

$alis = GetRoE($vd);
$vd = trim(CropSt($vd, "Satış " ));
$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, '',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">VillaDöviz</td>
</tr>
<tr>
<td width="110">$USD Alış</td>
<td align="right"><?php echo number_format($alis, 0, ",", ".");?>TL</td>
</tr>
<tr>
<td>$USD Satış</td>
<td align="right"><?php echo number_format($satis, 0, ",",".");?> TL</td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<?php
}
if ( $tcmb_today ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center">MerkezBankası</td>
</tr>
<tr>
<td width="110">Döviz Alış</td>
<td align="right"><?php echo number_format($doviz_alis, 0, ",",".");?> TL</td>
</tr>
<tr>
<td>Döviz Satış</td>
<td align="right"><?php echo number_format($doviz_satis, 0, ",",".");?> TL</td>
</tr>
<tr>
<td>Efektif Alış</td>
<td align="right"><?php echo number_format($efektif_alis, 0, ",",".");?> TL</td>
</tr>
<tr>
<td>Efektif Satış</td>
<td align="right"><?php echo number_format($efektif_satis, 0,",", ".");?> TL</td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<?php
}
if ( $yatirimci ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center">YatırımcıKöşesi - Superonline (<?php echo$y_saat; ?>)</td>
</tr>
<tr>
<td width="110">Döviz Alış</td>
<td align="right"><?php echo number_format($y_alis, 0, ",", ".");?> TL</td>
</tr>
<tr>
<td>Döviz Satış</td>
<td align="right"><?php echo number_format($y_satis, 0, ",", ".");?> TL</td>
</tr>
<tr>
<td>En Düşük</td>
<td align="right"><?php echo number_format($y_endusuk, 0, ",","."); ?> TL</td>
</tr>
<tr>
<td>En Yüksek</td>
<td align="right"><?php echo number_format($y_enyuksek, 0, ",","."); ?> TL</td>
</tr>
<?php
}
if ( $koc ) {
?>
<tr bgcolor="#FF8000">
<td colspan="2" align="center">KoçBankası</td>
</tr>
<tr>
<td width="110">Döviz Alış</td>
<td align="right"><?php echo number_format($koc_alis, 0, ",","."); ?> TL</td>
</tr>
<tr>
<td>Döviz Satış</td>
<td align="right"><?php echo number_format($koc_satis, 0, ",","."); ?> TL</td>
</tr>
<?php