Programalama > ASP

Etiketler: renkli, kodlar......

Ort. 0
Puan ver:
<% @ Language = "VbScript" %> 
<% Option Explicit %> 

<%  
Function strCode(myCode) 
myCode = Replace(myCode,myCode,"<font color='#000000' face='Verdana' size='1'>" & myCode & "</font>" ) 
myCode = Replace(myCode,"Response" ,"<font color='#999966' face='Verdana' size='1'>Response</font>" ) 
myCode = Replace(myCode,".Write" ,"<font color='#990033' face='Verdana' size='1'>.Write</font>" ) 
myCode = Replace(myCode,".End" ,"<font color='#FF0000' face='Verdana' size='1'>.End</font>" ) 
myCode = Replace(myCode,"Session" ,"<font color='#6600FF' face='Verdana' size='1'>Session</font>" ) 
myCode = Replace(myCode,"True" ,"<font color='#0033FF' face='Verdana' size='1'>True</font>" ) 
strCode = myCode 
End Function 
%> 

<% 
Dim text 
Dim text2 
Dim text3 

text = "Response.Write 'Test'" 
text2 = "Response.End" 
text3 = "Session(" "oturum" ") = True" 
%> 

<% 
Response.Write strCode(text) 
Response.Write "<br>" 
Response.Write strCode(text2) 
Response.Write "<br>" 
Response.Write strCode(text3) 
%>


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.