Programalama > ASP

Etiketler: asp, sayac, süper

Ort. 0
Puan ver:
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<meta http-equiv="Content-Language" content="tr">
<title> www.trbyte.net </title>
<style type="text/css">
<!--
.style1 {
	font-size: 12px;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
body,td,th {
	font-weight: bold;
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<body"0">
<% 
'Set to 1440 if You want increment once a day each User
Response.Expires=1552


Response.write"                                               Sitemize şuana kadar "
 If Application("Sayaç")= "" THEN
 Application("Sayaç")= 1
 Else 
 Application("Sayaç") = Application("Sayaç")+1 'Her siteye girişte sayaç 1 artsın
 End If
 
 'DISPLAY ZEROS(JUST FOR A GOOD LOOK)
 If Application("Sayaç")<=9 THEN
 Response.Write"0"
 End If
 
 If Application("Sayaç")<=99 And Application("Sayaç")>9 THEN
 Response.Write"0"
 End If
 
 If Application("Sayaç")<=999 And Application("Sayaç")>99 THEN
 Response.Write"0"
 End If

 If Application("Sayaç")<=9999 And Application("Sayaç")>999 THEN
 Response.Write"0"
 End If
 
 If Application("Sayaç")>99999 THEN
 Application("Sayaç")=1
 End if
 
 Response.Write(Application("Sayaç"))
 
%><style type="text/css">
<!--
body {
	background-color: #FFFFFF;
}
-->
</style> 
<span class="style1">kişi ziyaret etmiştir
</span>

tunba
www.trbyte.net


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 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.