Online Destek Scripti Sorun(Asp)

Arkadaşlar online destek ile ilgili bir script bulduma ve ücretsiz kendinize göre grafikleri düzenleyince harika bişey ortaya cıkıyor ama bir sorun var 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.Arkadaşlar 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

Sisteme giriş bilgileri
Kullanıcı adı: operator
Şifre: password

Benzer içerikler