Forum
Aktif konular
Üyeler
Kurallar
Arama
"Private Function Rteenabled()" Sorunu "Private Function Rteenabled()" Sorunu
-
merhaba aradaslar webwiz RTE kurdum daha once hıc sorun wermedı sayfaya entegre ettım boyle bır sorunla karsılastım...
Sözdizimi hatası
/tr/functions/RTE_functions_common.asp, line 60, column 8
Private Function RTEenabled()----------------------------------------------------------------
Söz Konusu Kodlar
----------------------------------------------------------------
<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Guide - Web Wiz Rich Text Editor
'** http://www.richtexteditor.org
'**
'** Copyright 2002-2005 Bruce Corkhill All Rights Reserved.
'**
'** This program is free software; you can modify (at your own risk) any part of it
'** under the terms of the License that accompanies this software and use it both
'** privately and commercially.
'**
'** All copyright notices must remain in tacked in the scripts and the
'** outputted HTML.
'**
'** You may use parts of this program in your own private work, but you may NOT
'** redistribute, repackage, or sell the whole or any part of this program even
'** if it is modified or reverse engineered in whole or in part without express
'** permission from the author.
'**
'** You may not pass the whole or any part of this application off as your own work.
'**
'** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place
'** and must remain visible when the pages are viewed unless permission is first granted
'** by the copyright holder.
'**
'** This program is distributed in the hope that it will be useful,
'** but WITHOUT ANY WARRANTY; without even the implied warranty of
'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER
'** WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'** You should have received a copy of the License along with this program;
'** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom.
'**
'**
'** No official support is available for this program but you may post support questions at: -
'** http://www.webwizguide.info/forum
'**
'** Support questions are NOT answered by e-mail ever!
'**
'** For correspondence or non support questions contact: -
'** info@webwizguide.info
'**
'** or at: -
'**
'** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom
'**
'****************************************************************************************
'********************************************
'*** Rich Text Compatible Browser type *****
'********************************************
Private Function RTEenabled()
Dim strUserAgent 'Holds info on the users browser
'Get the users HTTP user agent (web browser)
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
'*************************************
'***** Windows Internet Explorer *****
'*************************************
'See if the user agent is IE on Winows and not Opera trying to look like IE
If InStr(1, strUserAgent, "MSIE", 1) > 0 AND InStr(1, strUserAgent, "Win", 1) > 0 AND InStr(1, strUserAgent, "Opera", 1) = 0 Then
'Now we know this is Windows IE we need to see if the version number is 5.5
If Trim(Mid(strUserAgent, inStr(1, strUserAgent, "MSIE", 1)+5, 3)) = "5.5" OR Trim(Mid(strUserAgent, inStr(1, strUserAgent, "MSIE", 1)+5, 3)) = "5,5" Then
RTEenabled = "winIE"
'Now we know this is Windows IE we need to see if the version number is 6 or above
ElseIf CInt(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "MSIE", 1)+5), 1))) >= 6 Then
RTEenabled = "winIE"
'Else the IE version is below 5 so return na
Else
RTEenabled = "false"
End If
'****************************
'***** Mozilla Firebird *****
'****************************
'See if this is a version of Mozilla Firebird that supports Rich Text Editing under it's Midas API
ElseIf inStr(1, strUserAgent, "Firebird", 1) Then
'Now we know this is Mozilla Firebird we need to see if the version 0.6.1 or above; relase date is above 2003/07/28
If CLng(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "Gecko/", 1)+6), 8))) >= 20030728 Then
RTEenabled = "Gecko"
'Else the Mozilla Firebird version is below 1.5 so return false
Else
RTEenabled = "false"
End If
'**********************************************
'***** Mozilla Firefox/Seamonkey/Netscape *****
'**********************************************
'See if this is a version of Mozilla/Netscape that supports Rich Text Editing under it's Midas API
ElseIf inStr(1, strUserAgent, "Gecko", 1) > 0 AND inStr(1, strUserAgent, "Firebird", 1) = 0 AND isNumeric(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "Gecko/", 1)+6), 8))) Then
'Now we know this is Mozilla/Netscape we need to see if the version number is above 1.3 or above; relase date is above 2003/03/12
If CLng(Trim(Mid(strUserAgent, CInt(inStr(1, strUserAgent, "Gecko/", 1)+6), 8))) => 20030312 Then
RTEenabled = "Gecko"
'Else the Mozilla version is below 1.3 or below 7.1 of Netscape so return false
Else
RTEenabled = "false"
End If
'***********************************
'***** Non RTE Enabled Browser *****
'***********************************
'Else this is a browser that does not support Rich Text Editing
Else
'RTEenabled - false
RTEenabled = "false"
End If
'RTEenabled = "false"
End Function
'******************************************
'*** Random Hex Generator ****
'******************************************
Private Function hexValue(ByVal intHexLength)
Dim intLoopCounter
Dim strHexValue
'Randomise the system timer
Randomize Timer()
'Generate a hex value
For intLoopCounter = 1 to intHexLength
'Genreate a radom decimal value form 0 to 15
intHexLength = CInt(Rnd * 1000) Mod 16
'Turn the number into a hex value
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
'Place the hex value into the return string
hexValue = hexValue & strHexValue
Next
End Function
'******************************************
'*** Unsafe character Strip ****
'******************************************
'Function to strip non alphanumeric characters email addresses
Private Function characterStrip(ByVal strTextInput)
'Dimension variable
Dim intLoopCounter 'Holds the loop counter
'Loop through the ASCII characters
For intLoopCounter = 0 to 31
strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)
Next
'Loop through the ASCII characters
For intLoopCounter = 33 to 37
strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)
Next
'Loop through the ASCII characters
For intLoopCounter = 39 to 44
strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)
Next
'Loop through the ASCII characters
For intLoopCounter = 58 to 65
strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)
Next
'Loop through the ASCII characters numeric characters
For intLoopCounter = 91 to 94
strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)
Next
'Loop through the extended ASCII characters
For intLoopCounter = 123 to 125
strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)
Next
'Loop through the extended ASCII characters
For intLoopCounter = 127 to 255
strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0)
Next
'Strip individul ASCII characters left out from above
strTextInput = Replace(strTextInput, CHR(59), "", 1, -1, 0)
strTextInput = Replace(strTextInput, CHR(60), "", 1, -1, 0)
strTextInput = Replace(strTextInput, CHR(62), "", 1, -1, 0)
strTextInput = Replace(strTextInput, CHR(96), "", 1, -1, 0)
'Return the string
characterStrip = strTextInput
End Function
%>----------------------------------------------------------------
hepınıze tesekkurler...
-
bide 60. satır hangisi onu gösterirsen tam süper olacak...
-
cok pardn :)
60.satır boş arada yanlıs satır gosterıyor tarayıcı 61 var sayarak 61-64 arası kodları yazıyorum.
--------------------------
Dim strUserAgent 'Holds info on the users browser
'Get the users HTTP user agent (web browser)
strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")--------------------------
-
merhaba aradaslar webwiz RTE kurdum daha once hıc sorun wermedı sayfaya entegre ettım boyle bır sorunla karsılastım...
Sözdizimi hatası
/tr/functions/RTE_functions_common.asp, line 60, column 8Private Function RTEenabled()
gösterdiğin kodlar galiba ASP kodları ve malesef zerre kadar anlamıcağım için bakmadım bile fakat oop mantığından sana şunu söyliyebilirimki
eğer ASP de class ve objeler varsa , RTEenabled() diye bir fonksiyon bir class ın üyesi ve bu fonksiyon private olarak belirlenmiş yani dışardan çağrılamaz
mesela objen olsun obje_1 obje_1->RTEenabled(); yapınca eğer bu fonksiyon private ise ki hatayı o yüzden veriyor bir obje üzreinden vs vs herhangi bi yerden
çağrılamaz ancak class ın içinden yada üyesi olduğu yerden çağrılabilir.Eğer sen bu kodlardan anlıyorsan ve böyle birşey yapılmışsa , bu fonksiyon nereye üyeyse , üye
üye olduğu sınırlar içinde başka bir public fonksiyon yazıp bu fonksiyonu çağırttır kardeşim :S umarım anlatabilmişimdir.
-
hocam şu dünyada içinde RTE bulunduran bitek hayırlı bişi var oda reno kangoo rte.RTE den uzak durD
-
ya hiç anlamadım çalısanın functıon dosyasını kopyaladım gene olmadı orada hata verıyor :/
SpArK : hocam eline saglık yazmıssın anlatmaya calısmıssın ancak ben okadar bılgılı degılım sanırım anlamadım =)
skyvalet: senn dedıgıne katılır gıbıyım hala cozemedım ya sende cok cektın herhalde RTE lerden...
-
LuCiFeR bunu yazdı:
-----------------------------ya hiç anlamadım çalısanın functıon dosyasını kopyaladım gene olmadı orada hata verıyor :/
SpArK : hocam eline saglık yazmıssın anlatmaya calısmıssın ancak ben okadar bılgılı degılım sanırım anlamadım =)
skyvalet: senn dedıgıne katılır gıbıyım hala cozemedım ya sende cok cektın herhalde RTE lerden...
-----------------------------Simdi lucifer kardesim sana sorununu anlatayim ben çözdüm galiba biraz.Sen RTE yi sayfaya koyarken bu do while döngüsünün yada bir döngünün içinde değilmi ?
fakat şöyle birşey var "The Web Wiz RTE " her sayfada 1 tane olabilir ve 1 kere çağrılabilir.Fakat muhtemelen senin kodlarında bu rte bir döngünün içinde ve
döngünün içinde olduğu için her döngü döndükçe yeni bir rte yaratmaya çalışır fakat webwiz bunu kabul etmez çünkü her sayfada 1 tane webwiz rte olabilir. Döngü
dışına çıkardığında rte yi sorunun çözülücek büyük ihtimal.
-
private function'ı public function olarak değiştirip denesene bi
-
Sen tüm RTE leri kaldır bak nasıl çalışacak
-
ne public yap nede rte leri kaldır lucifer :D sen dediğim gibi rte yi döngü içinden çıkar sayfadan çaışıcak :)
-
Alp : Çalışmadı hocam o sekıldede...
Spark : Abi nasıl ckara bılırım peki :)
bu arada yardımlarınız ıcın tesekkurler...
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla