1<% Option Explicit %>
2<%
3'| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
4'| Kendi Kodlarını Gösteren Sayfa Örneği
5'| Kodların yanında satır numaralarını da gösterir
6'| doronty37 | doronty37 @ d0gma.org
7'| http://www.mydesign.gen.tr
8'| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
9%>
10<html>
11<head>
12<title>mydesign.gen.tr</title>
13<style type="text/css">
14body { margin:0px 0px 0px 0px; }
15td { font-family:Verdana, Arial, Helvetica, sans,serif; font-size:11px;}
16</style>
17</head>
18<body>
19<table width="100%" cellpadding="2">
20<%
21'// Değişkenler Tanımlanıyor
22Dim FSO
23Dim Dosya
24Dim Yazi
25
26'// Nesneler Açılıyor
27Set FSO = Server.CreateObject("Scripting.FileSystemObject")
28Set Dosya = FSO.OpenTextFile(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")))
29
30While Not Dosya.AtEndOfStream
31 Response.Write "<tr><td bgcolor=""#EEEEEE"">"
32 Response.Write Dosya.Line &"</td><td>"
33 Yazi = Dosya.ReadLine
34 Yazi = Replace(Yazi, "<", "<", 1, -1, 1)
35 Yazi = Replace(Yazi, ">", ">", 1, -1, 1)
36 Response.Write Yazi &"</td></tr>"
37Wend
38%>
39</table>
40</body>
41</html>