| 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"> |
| 14 | body { margin:0px 0px 0px 0px; } |
| 15 | td { 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 |
| 22 | Dim FSO |
| 23 | Dim Dosya |
| 24 | Dim Yazi |
| 25 | |
| 26 | '// Nesneler Açılıyor |
| 27 | Set FSO = Server.CreateObject("Scripting.FileSystemObject") |
| 28 | Set Dosya = FSO.OpenTextFile(Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))) |
| 29 | |
| 30 | While 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>" |
| 37 | Wend |
| 38 | %> |
| 39 | </table> |
| 40 | </body> |
| 41 | </html> |