Programalama > ASP


Ort. 0
Puan ver:
<%@ Language=VBScript codepage="1254" %>  
<% Option Explicit %> 
<html> 
<head> 
<meta name="VI60_defaultClientScript" content="VBScript"> 
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 
<meta http-equiv="Content-Language" content="tr"> 
<style type=text/css> 
TD { 
     font-size: 10pt; font-family: Arial, Helvetica, sans-serif 
} 
BODY {font-family:Verdana,Arial;font-size="10"} 
A:link    {text-decoration: underline; color: #1D3074} 
A:visited {text-decoration: underline; color: #000000} 
A:hover   {text-decoration: none; color: #5B89DF} 
A:active  {text-decoration: none; color: #9B9BEE} 

</style> 


<title> || Tahir BAL || </title> 
</head> 
<body> 
<%  


dim gun_tarih, ay, yil, ayadi, gun_sayi, gun_adi  
gun_sayi=Weekday(date)  
gun_tarih= Day(date)  
ay=Month(date)  
yil=Year(date)  

Select Case(ay) 
Case 1 
     ayadi="Ocak" 
Case 2 
     Ayadi="Şubat" 
Case 3 
     Ayadi="Mart" 
Case 4 
     Ayadi="Nisan" 
Case 5 
     Ayadi="Mayıs" 
Case 6 
     Ayadi="Haziran" 
Case 7 
     Ayadi="Temmuz" 
Case 8 
     Ayadi="Ağustos" 
Case 9 
     Ayadi="Eylül" 
Case 10 
     Ayadi="Ekim" 
Case 11 
     Ayadi="Kasım" 
Case 12 
     Ayadi="Aralık"       
End Select 

Select Case(gun_sayi) 
Case 1 
     gun_adi="Pazar" 
Case 2 
     gun_adi="Pazartesi" 
Case 3 
     gun_adi="Salı" 
Case 4 
     gun_adi="Çarşamba" 
Case 5 
     gun_adi="Perşembe" 
Case 6 
     gun_adi="Cuma" 
Case 7 
     gun_adi="Cumartesi"                           
End Select 

Response.Write "<font style=" "font:14pt/16pt verdana; color:#4e4e4e" ">Bugün : " & gun_tarih &" " & ayadi &" " & yil &" " & gun_adi &"</font>"   
%> 
</body> 
</html>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.