<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' DiyalogTR.Com | ziyaretçi defteri ' W: http://www.DiyalogTR.Com ' @: Admin@DiyalogTR.Com ' ' Fonksiyon Sayfası Kodları ' Son Düzenleme: 16 Mayıs 2008 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// Yazıları HTML kodlarından arındırma fonksiyonu Function YaziTemizle(byVal strVeri) '// Değişken boşsa fonksiyondan çıkılıyor If strVeri = "" Then Exit Function '// < ve > karakterlri değiştiriliyor strVeri = Replace(strVeri, "&", "&", 1, -1, 1) strVeri = Replace(strVeri, "<", "<", 1, -1, 1) strVeri = Replace(strVeri, ">", ">", 1, -1, 1) YaziTemizle = strVeri End Function '// Ziyaretçi bilgilerini düzenleme fonksiyonu Function LinkFormatla(byVal strVeri, byVal strLinkTuru) '// Değişken boşsa fonksiyondan çıkılıyor If strLinkTuru = "" Then Exit Function '// Link türleri belirleniyor arrLinkTurleri = Array("Mail","Web","MSN","Yahoo","ICQ") '// Bağlantı adresleri düzenleniyor Dim arrLinkler(5) arrLinkler(0) = "mailto:"& strVeri arrLinkler(1) = "http://"& strVeri arrLinkler(2) = "mailto:"& strVeri arrLinkler(3) = "http://edit.yahoo.com/config/send_webmesg?.src=pg&.target="& strVeri arrLinkler(4) = "http://www.icq.com/people/about_me.php?uin="& strVeri '// Alanın dolu olup olmadığına göre resim düzenleniyor For i = 0 To UBound(arrLinkTurleri) If strLinkTuru = arrLinkTurleri(i) Then If IsNull(strVeri) OR Len(strVeri) < 3 Then '// Eğer alan boş bırakılmışsa pasif resim gösteriliyor LinkFormatla = "" Else '// Bilgi yazılmışsa aktif resim gösterilip link veriliyor LinkFormatla = "" LinkFormatla = LinkFormatla &"" End If End If Next End Function '// Tarih gösterimini düzenleme fonksiyonu Function TarihFormatla(ByVal strTarih) '// Değişken boşsa fonksiyondan çıkılıyor If strTarih = "" Or isDate(strTarih) = False Then Exit Function '// Gün ve Ay isimleri dizileri hazırlanıyor Gunler = Array("",Kelime7,Kelime1,Kelime2,Kelime3,Kelime4,Kelime5,Kelime6) Aylar = Array("",Kelime8,Kelime9,Kelime10,Kelime11,Kelime12,Kelime13,Kelime14,Kelime15,Kelime16,Kelime17,Kelime18,Kelime19) Gun = Day(strTarih) Gun_Adi = Weekday(strTarih) Ay = Month(strTarih) Yil = Year(strTarih) '// Biçimlendirmenin bozulmaması için değerler 2 karakterden kısaysa başlarına 0 ekleniyor If Len(Gun) < 2 Then Gun="0" & Gun '// Tarih görüntüsü biçimlendiriliyor TarihFormatla = Gun &" "& Aylar(Ay) &" "& Yil &", "& Gunler(Gun_Adi) End Function Function Copy() Copy = "DiyalogTR.Com "& Kelime20 &" " End Function '// Saat gösterimini düzenleme fonksiyonu Function SaatFormatla(byVal strTarih) '// Değişken boşsa fonksiyondan çıkılıyor If strTarih = "" Or isDate(strTarih) = False Then Exit Function '// Tarihten saat ve dakika bilgileri alınıyor saat = DatePart("h", strTarih) dakika = DatePart("n", strTarih) '// Biçimlendirmenin bozulmaması için değerler 2 karakterden kısaysa başlarına 0 ekleniyor If Len(saat) < 2 Then saat="0" & saat If Len(dakika) < 2 then dakika="0" & dakika '// Saat görüntüsü biçimlendiriliyor SaatFormatla = saat & ":" & dakika End Function '// Forum kodlarını düzenleme fonksiyonu Function MesajFormatla(byVal strMesaj) '// HTML kodları düzenleniyor strMesaj = Replace(strMesaj, "<", "<", 1, -1, 1) strMesaj = Replace(strMesaj, ">", ">", 1, -1, 1) strMesaj = Replace(strMesaj, " ", "       ", 1, -1, 1) strMesaj = Replace(strMesaj, " ", "      ", 1, -1, 1) strMesaj = Replace(strMesaj, " ", "     ", 1, -1, 1) strMesaj = Replace(strMesaj, " ", "    ", 1, -1, 1) strMesaj = Replace(strMesaj, " ", "   ", 1, -1, 1) strMesaj = Replace(strMesaj, vbTab, "     ", 1, -1, 1) strMesaj = Replace(strMesaj, Chr(10), "
", 1, -1, 1) strMesaj = Replace(strMesaj, "[B]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/B]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[STRONG]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/STRONG]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[U]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/U]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[I]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/I]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:)]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[;)]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:p]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:D]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:s]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:$]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[=D>]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[LOL]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:(]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:^(]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:O]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:|]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[:x]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[}:)]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[L]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[%(]", "", 1, -1, 1) '// Mesajda [URL= ile link hazırlanmışsa, ilgili adrese link veriliyor Do While InStr(strMesaj, "[URL=") > 0 AND InStr(strMesaj, "[/URL]") > 0 DeyimBaslangici = InStr(strMesaj, "[URL=") DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/URL]") + 6 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 strLink = Trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici))) strGeciciMesaj = strLink strGeciciMesaj = Replace(strGeciciMesaj, "[URL=", "", 1, -1, 1) strGeciciMesaj = Replace(strGeciciMesaj, "]", """ target=""_blank"">", 1, -1, 1) Else strGeciciMesaj = strGeciciMesaj & ">" End If strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1) Loop '// Mesajda [URL] ile link hazırlanmışsa, ilgili adrese link veriliyor Do While InStr(strMesaj, "[URL]") > 0 AND InStr(strMesaj, "[/URL]") > 0 DeyimBaslangici = InStr(strMesaj, "[URL]") DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/URL]") + 6 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 6 strLink = Trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici))) strGeciciMesaj = strLink strGeciciMesaj = Replace(strGeciciMesaj, "[URL]", "", 1, -1, 1) strGeciciMesaj = Replace(strGeciciMesaj, "[/URL]", "", 1, -1, 1) strGeciciMesaj = "" & strGeciciMesaj & "" strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1) Loop '// Mesajda [QUOTE= ile alıntı yapılmışsa, mesaj düzenleniyor Do While InStr(strMesaj, "[QUOTE=") > 0 AND InStr(strMesaj, "[/QUOTE]") > 0 DeyimBaslangici = InStr(1, strMesaj, "[QUOTE=", 1) + 7 DeyimSonu = InStr(DeyimBaslangici, strMesaj, "]", 1) If DeyimBaslangici > 6 AND DeyimSonu > 0 Then strYazan = Trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) End If DeyimBaslangici = DeyimBaslangici + Len(strYazan) + 1 DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) If DeyimSonu - DeyimBaslangici =< 0 Then DeyimSonu = DeyimBaslangici + Len(strYazan) If DeyimSonu > DeyimBaslangici Then strAlintiMesaji = Trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) strYazan = Replace(strYazan, """", "", 1, -1, 1) strAlinti = "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "

"& Kelime21 &": " & strYazan & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " & strAlintiMesaji & "

" End If DeyimBaslangici = InStr(strMesaj, "[QUOTE=") DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/QUOTE]") + 8 If DeyimSonu - DeyimBaslangici =< 7 Then DeyimSonu = DeyimBaslangici + Len(strYazan) + 8 strAsilMesaj = Trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) If strAlinti <> "" Then strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1) Else strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1) End If Loop '// Mesajda [QUOTE] ile alıntı yapılmışsa, mesaj düzenleniyor Do While InStr(strMesaj, "[QUOTE]") > 0 AND InStr(strMesaj, "[/QUOTE]") > 0 DeyimBaslangici = InStr(strMesaj, "[QUOTE]") + 7 DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 If DeyimSonu > DeyimBaslangici Then strAlintiMesaji = Trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) strAlinti = "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "

"& Kelime22 &": " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " & strAlintiMesaji & "

" End If DeyimBaslangici = InStr(strMesaj, "[QUOTE]") DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) + 8 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 strAsilMesaj = Trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) If strAlinti <> "" Then strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1) Else strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1) End If Loop MesajFormatla = strMesaj End Function '// Güvenlik kodu üretme fonksiyonu '// www.webwizguide.info Private Function hexValue(ByVal intHexLength) Dim intLoopCounter Dim strHexValue Randomize Timer() For intLoopCounter = 1 to intHexLength intHexLength = CInt(Rnd * 1000) Mod 16 Select Case intHexLength Case 1 strHexValue = "1" Case 2 strHexValue = "2" Case 3 strHexValue = "3" Case 4 strHexValue = "4" Case 5 strHexValue = "5" Case 6 strHexValue = "6" Case 7 strHexValue = "7" Case 8 strHexValue = "8" Case 9 strHexValue = "9" Case 10 strHexValue = "A" Case 11 strHexValue = "B" Case 12 strHexValue = "C" Case 13 strHexValue = "D" Case 14 strHexValue = "E" Case 15 strHexValue = "F" Case Else strHexValue = "Z" End Select hexValue = hexValue & strHexValue Next End Function '// SQL Injection'dan Korunma Fonksiyonu Function SQLTemizle(byVal strVeri) '// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor If strVeri = "" Then Exit Function '// Zararlı Kodlar Burada Ayıklanıyor strVeri = Replace(strVeri, "<", "<") strVeri = Replace(strVeri, ">", ">") strVeri = Replace(strVeri, "[", "[") strVeri = Replace(strVeri, "]", "]") strVeri = Replace(strVeri, """", "", 1, -1, 1) strVeri = Replace(strVeri, "=", "=", 1, -1, 1) strVeri = Replace(strVeri, "'", "''", 1, -1, 1) strVeri = Replace(strVeri, "select", "select", 1, -1, 1) strVeri = Replace(strVeri, "join", "join", 1, -1, 1) strVeri = Replace(strVeri, "union", "union", 1, -1, 1) strVeri = Replace(strVeri, "where", "where", 1, -1, 1) strVeri = Replace(strVeri, "insert", "insert", 1, -1, 1) strVeri = Replace(strVeri, "delete", "delete", 1, -1, 1) strVeri = Replace(strVeri, "update", "update", 1, -1, 1) strVeri = Replace(strVeri, "like", "like", 1, -1, 1) strVeri = Replace(strVeri, "drop", "drop", 1, -1, 1) strVeri = Replace(strVeri, "create", "create", 1, -1, 1) strVeri = Replace(strVeri, "modify", "modify", 1, -1, 1) strVeri = Replace(strVeri, "rename", "rename", 1, -1, 1) strVeri = Replace(strVeri, "alter", "alter", 1, -1, 1) strVeri = Replace(strVeri, "cast", "cast", 1, -1, 1) SQLTemizle = strVeri End Function %>