Forum
Aktif konular
Üyeler
Kurallar
Arama
Online Destek Scripti Sorun(Asp) Online Destek Scripti Sorun(Asp)
-
Müridler siteme online yardım koymak için bir scripti buldum ama bu scriptin sayfaya cekerken hata veriyor sorun nedir anlmadım bir bakarsanız.
Sorunu blnOperator=false olarak gösteriyor
<%
sub livechatStatus
blnOperator = false
if IsArray(Application("lhuser")) then
arrUser = Application("lhuser")
for intCount = 1 to UBound(arrUser, 2)
if arrUser(2, intCount) = true and arrUser(4, intCount) >= DateAdd("s", -20, Now()) then
blnOperator = true
end if
next
end if
if blnOperator then
response.write "<a href=""#"" onClick=""openChat('/livechat/request.asp');""><img border=""0"" height=""60"" src=""/livechat/images/online.jpg"" width=""120""></a>" & vbCrLf
else
response.write "<a href=""#"" onClick=""openChat('/irtibat.html');""><img border=""0"" height=""60"" src=""/livechat/images/offline.jpg"" width=""120""></a>" & vbCrLf
end if
end sub
response.write "<html>" & vbCrLf
response.write "<head>" & vbCrLf
response.write "<title>Canli Destek</title>" & vbCrLf
response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & vbCrLf
response.write "<script>" & vbCrLf
response.write "function openChat(varUrl) {" & vbCrLf
response.write "var winleft=(screen.width-525)/2;" & vbCrLf
response.write "var wintop=(screen.height-338)/2;" & vbCrLf
response.write "window.open(varUrl,'chat','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=0,width=525,height=338,top='+wintop+',left='+winleft);" & vbCrLf
response.write "}" & vbCrLf
response.write "function getCookie(name) {" & vbCrLf
response.write "var dc = document.cookie;" & vbCrLf
response.write "var prefix = name + ""="";" & vbCrLf
response.write "var begin = dc.indexOf("";"" + prefix);" & vbCrLf
response.write "if (begin == -1) {" & vbCrLf
response.write "begin = dc.indexOf(prefix);" & vbCrLf
response.write "if (begin != 0) return null;" & vbCrLf
response.write "} else" & vbCrLf
response.write "begin += 2;" & vbCrLf
response.write "var end = document.cookie.indexOf("";"", begin);" & vbCrLf
response.write "if (end == -1)" & vbCrLf
response.write "end = dc.length;" & vbCrLf
response.write "return unescape(dc.substring(begin + prefix.length, end));" & vbCrLf
response.write "}" & vbCrLf
response.write "function openMessenger() {" & vbCrLf
response.write "lt = getCookie('lhtop')-30;" & vbCrLf
response.write "ll = getCookie('lhleft')-4;" & vbCrLf
response.write "lh = getCookie('lhheight')/2;" & vbCrLf
response.write "window.open('../livechat/messenger.asp','messenger','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=0,width=525,height=338,top='+lt+',left='+ll);" & vbCrLf
response.write "}" & vbCrLf
response.write "</script>" & vbCrLf
response.write "</head>" & vbCrLf
response.write "<body>" & vbCrLf
response.write "<p>" & vbCrLf
livechatStatus
response.write "</body>" & vbCrLf
response.write "</html>"
%>
-
Müridler gerek kalmadı sorunu cözdüm.Sorun değişkenlerdeymiş.
-
Mürideler bu konuyu daha önce acmıştım.Ama o zamanki sorunıu cözdüma ama başımda daha büyük bir dert var.Bu scripte yazışırken sayfa aşağı doğru kaymıyor yani adminle yazışıyorum bir süreden sonra yazışmalar cogalınca sağ tarafta sayfayı aşağı kaydırma cubugu cıkıyor ama ben otomatik olarak kaymasını istiyorum javascript kodu buldum her 5 saniyede bir sayfayı aşağı indirsindiye kod çalışıyor ama bu sisteme gömdüğümde çalışmıyor.
ben sayfayı aşağı indirme kodunu chat.asp ye yerleştiriyorum.Ama gecen kodların arasında gözüme şöyle bir kod çarptı"function toBottom(scrollValue)" sanıyorum kendi özelliginde sayfayı aşağı indirme var ama çalışmıyor.Müridler bir yardım etseniz.
Chat.asp
<!--#include file="functions.asp"-->
<%
Application.Lock
response.expires = 0
if IsNumeric(request("user")) then
lngUser = CLng(request("user"))
else
lngUser = 0
end if
response.write "<html>" & vbCrLf
response.write "<head>" & vbCrLf
response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & vbCrLf
response.write "<script>" & vbCrLf
if request("decline") = "on" then
getUser()
ReDim arrTempUser(5, 0)
for intCnt = 1 to UBound(arrUser, 2)
if arrUser(0, intCnt) <> lngUser then
ReDim Preserve arrTempUser(5, UBound(arrTempUser, 2) + 1)
arrTempUser(0, UBound(arrTempUser, 2)) = arrUser(0, intCnt)
arrTempUser(1, UBound(arrTempUser, 2)) = arrUser(1, intCnt)
arrTempUser(2, UBound(arrTempUser, 2)) = arrUser(2, intCnt)
arrTempUser(3, UBound(arrTempUser, 2)) = arrUser(3, intCnt)
arrTempUser(4, UBound(arrTempUser, 2)) = arrUser(4, intCnt)
arrTempUser(5, UBound(arrTempUser, 2)) = arrUser(5, intCnt)
end if
next
arrUser = arrTempUser
Application("lhuser") = arrUser
response.write "window.close();" & vbCrLf
response.write "</script>" & vbCrLf
response.write "</head>" & vbCrLf
response.write "</html>" & vbCrLf
end if
if lngUser > 0 then
getRoom()
blnTaken = false
for intCount = 1 to UBound(arrRoom, 2)
if lngUser = arrRoom(1, intCount) then
blnTaken = true
exit for
end if
next
if blnTaken then
response.write "window.close();" & vbCrLf
response.write "</script>" & vbCrLf
response.write "</head>" & vbCrLf
response.write "</html>" & vbCrLf
response.end
end if
newRoom lngUser, session("lhadmin")
strName = findName(lngUser)
else
lngAdmin = findAdmin(session("lhuser"))
strName = findName(lngAdmin)
end if
response.write "var varLoaded=false;" & vbCrLf
response.write "var varDate='';" & vbCrLf
response.write "var varLast='';" & vbCrLf
response.write "function callServer() {" & vbCrLf
response.write " if (varLoaded) {" & vbCrLf
response.write "var head=document.getElementsByTagName('head').item(0);" & vbCrLf
response.write "var scriptTag=document.getElementById('loadScript');" & vbCrLf
response.write "if (scriptTag) head.removeChild(scriptTag);" & vbCrLf
response.write "script=document.createElement('script');" & vbCrLf
response.write "var pc=navigator.userAgent.toLowerCase();" & vbCrLf
response.write "var ie4_win=(pc.indexOf(""win"")!=-1)&&(pc.indexOf(""msie"")!=-1)&&(parseInt(navigator.appVersion)>=4);" & vbCrLf
response.write "if (ie4_win==true){" & vbCrLf
response.write "if (frames['postmessage'].frmMessage.msg.value=='') {" & vbCrLf
response.write "blnTyping=false;" & vbCrLf
response.write "} else {" & vbCrLf
response.write "blnTyping=true;" & vbCrLf
response.write "}" & vbCrLf
response.write "}else{" & vbCrLf
response.write "blnTyping=false;" & vbCrLf
response.write "}" & vbCrLf
response.write "script.src='server.asp?task=rx&user=" & lngUser & "&typing='+blnTyping+'&last='+varLast+'&rnd='+Math.random();" & vbCrLf
response.write "script.type='text/javascript';" & vbCrLf
response.write "script.id='loadScript';" & vbCrLf
response.write "head.appendChild(script);" & vbCrLf
response.write "}" & vbCrLf
response.write "}" & vbCrLf
response.write "function toBottom(scrollValue) {" & vbCrLf
response.write "var chatBoxHTML=document.getElementById('chatBox');" & vbCrLf
response.write "var sDummy=document.getElementById('chatBox').scrollHeight+document.getElementById('chatBox').scrolltop;" & vbCrLf
response.write "document.getElementById('chatBox').scrolltop=document.getElementById('chatBox').scrollHeight;" & vbCrLf
response.write "if (!blnOnline) {;" & vbCrLf
response.write "frames['postmessage'].formon();" & vbCrLf
response.write "}" & vbCrLf
response.write "blnOnline=true;" & vbCrLf
response.write "}" & vbCrLf
response.write "function offline() {" & vbCrLf
response.write "if (blnOnline) {;" & vbCrLf
response.write "frames['postmessage'].formoff();" & vbCrLf
response.write "}" & vbCrLf
response.write "blnOnline=false;" & vbCrLf
response.write "}" & vbCrLf
response.write "blnOnline=true;" & vbCrLf
response.write "focal=false;" & vbCrLf
response.write "function FocusTrigger() {" & vbCrLf
response.write "focal=true;" & vbCrLf
response.write "}" & vbCrLf
response.write "function BlurTrigger() {" & vbCrLf
response.write "focal=false;" & vbCrLf
response.write "}" & vbCrLf
response.write "window.onfocus = FocusTrigger;" & vbCrLf
response.write "window.onblur = BlurTrigger;" & vbCrLf
response.write "function playAlert() {" & vbCrLf
response.write "if (!focal&&!frames['postmessage'].focal) {" & vbCrLf
response.write "var sound=eval('document.soundalert');" & vbCrLf
response.write "try {" & vbCrLf
response.write "sound.Stop();" & vbCrLf
response.write "sound.Rewind();" & vbCrLf
response.write "} catch (e) {" & vbCrLf
response.write "}" & vbCrLf
response.write "try {" & vbCrLf
response.write "sound.DoPlay();" & vbCrLf
response.write "} catch (e) {" & vbCrLf
response.write "sound.Play();" & vbCrLf
response.write "}" & vbCrLf
response.write "}" & vbCrLf
response.write "}" & vbCrLf
response.write "setInterval('callServer()',1500);" & vbCrLf
response.write "</script>" & vbCrLf
response.write "<title>" & strName & " - Online</title>" & vbCrLf
response.write "</head>" & vbCrLf
response.write "<body background=""images/bg_chat_board.jpg"" alink=""#000000"" text=""#000000"" link=""#000000"" vlink=""#000000"" leftmargin=""0"" marginheight=""0"" marginwidth=""0"" topmargin=""0"">" & vbCrLf
response.write "<table height=""100%"" width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "<td>" & vbCrLf
response.write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "<td><embed height=""0"" width=""0"" src=""images/alert.wav"" hidden=""true"" autostart=""false"" name=""soundalert"" enablejavascript=""true""></td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf
response.write "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "<tr height=""100%"">" & vbCrLf
response.write "<td valign=""top"">" & vbCrLf
response.write "<table height=""100%"" width=""100%"" border=""0"" cellpadding=""30"" cellspacing=""0"">" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "<td>"
response.write "<p id=""chatBox"" style=""width:100%; height:100%; overflow:auto; overflow-x:hidden; scrollbar-base-color:#82CDF7; scrollbar-arrow-color:#3B7695; scrollbar-3dlight-color:#9ED8F9; scrollbar-darkshadow-color:#446C82; scrollbar-face-color:#82CDF7; scrollbar-highlight-color:#BBE4FB; scrollbar-shadow-color:#2C4654;""></p>" & vbCrLf
response.write "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>"
response.write "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "<td>" & vbCrLf
response.write "<table height=""42"" width=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & vbCrLf
response.write "<tr><td>"
response.write "<iframe height=""42"" width=""100%"" border=""0"" frameborder=""0"" name=""postmessage"" id=""postmessage"" scrolling=""no"" src=""server.asp?task=tx&user=" & lngUser & """></iframe>"
response.write "</td></tr>" & vbCrLf
response.write "</table></td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf
response.write "</body>" & vbCrLf
response.write "</html>" & vbCrLf
Application.UnLock
%>
Benim Buldugum sayfayı aşağı indirmesi için buldugum script kodu
<script type="text/javascript">
function pageScroll() {
window.scrollBy(0,50); // horizontal and vertical scroll increments
scrolldelay = setTimeout('pageScroll()',100); // scrolls every 100 milliseconds
}
</script>
</head>
<body onLoad="pageScroll()">
</body>
Buda script indirebileceginiz adres
http://moonlightchest.com/freestuff/livechat.zip
-
Up
Yardım edecek mürid yok mu ya haftalardır bu sistem üzerine ugraşıyorum. :( Javascript iyi bilen bir mürit eminin 2 dk çözecektir. :)
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla