العودة   شباب لك:: شباب كل العمر > ::: رقميات شباب لك::: > لغات البرمجة الخاصة بالحاسب .
التسجيل الأسئلة الشائعة قائمة الأعضاء التقويم بحث مشاركات اليوم اجعل المشاركات مقروءة


كود بحث داخل الصفحة

لغات البرمجة الخاصة بالحاسب .


رد
 
أدوات الموضوع طرق عرض الموضوع
  #1 (permalink)  
قديم 26-04-2004, 01:38
صورة رمزية The Giant
The Giant The Giant غير متواجد حالياً
جديد في شباب لك
 
تاريخ التسجيل: 02 04
الإقامة: Syria
المشاركات: 9
The Giant is on a distinguished road
Post كود بحث داخل الصفحة

السلام عليكم .....

أخواني هذا كود بحث داخل الصفحة سهل جداً و جميل

ضعه بعد <BODY>

رمز:
<script>
<!-- Hide from old browsers

/******************************************
* Find In Page Script -- Submitted/revised by Alan Koontz (alankoontz@REMOVETHISyahoo.com)
* Visit Dynamic Drive (http://www.dynamicdrive.com/) for full source code
* This notice must stay intact for use
******************************************/

var TRange = null;
var dupeRange = null;
var TestRange = null;
var win = null;

var nom = navigator.appName.toLowerCase();
var agt = navigator.userAgent.toLowerCase();
var is_major   = parseInt(navigator.appVersion);
var is_minor   = parseFloat(navigator.appVersion);
var is_ie      = (agt.indexOf("msie") != -1);
var is_ie4up   = (is_ie && (is_major >= 4));
var is_not_moz = (agt.indexOf('netscape')!=-1)
var is_nav     = (nom.indexOf('netscape')!=-1);
var is_nav4    = (is_nav && (is_major == 4));
var is_mac     = (agt.indexOf("mac")!=-1);
var is_gecko   = (agt.indexOf('gecko') != -1);
var is_opera   = (agt.indexOf("opera") != -1);

var is_rev=0
if (is_gecko) {
temp = agt.split("rv:")
is_rev = parseFloat(temp[1])
}

//var frametosearch = 'main';
var frametosearch = self;


function search(whichform, whichframe) {

if (is_ie4up && is_mac) return;

if (is_gecko && (is_rev <1)) return;

if (is_opera) return;

if(whichform.findthis.value!=null && whichform.findthis.value!='') {

       str = whichform.findthis.value;
       win = whichframe;
       var frameval=false;
       if(win!=self)
{

       frameval=true;  // this will enable Nav7 to search child frame
       win = parent.frames[whichframe];

}

    
}

else return;  //  i.e., no search string was entered

var strFound;

//  NAVIGATOR 4 SPECIFIC CODE

if(is_nav4 && (is_minor < 5)) {
   
  strFound=win.find(str); // case insensitive, forward search by default

 
        }

if (is_gecko && (is_rev >= 1)) {
   
    if(frameval!=false) win.focus(); // force search in specified child frame
    strFound=win.find(str, false, false, true, false, frameval, false);

    if (is_not_moz)  whichform.findthis.focus();


}

 if (is_ie4up) {

  if (TRange!=null) {
	  
   TestRange=win.document.body.createTextRange();
 
	  

   if (dupeRange.inRange(TestRange)) {

   TRange.collapse(false);
   strFound=TRange.findText(str);
    if (strFound) {
        win.document.body.scrollTop = win.document.body.scrollTop + TRange.offsetTop;
        TRange.select();
        }


   }
   
   else {

     TRange=win.document.body.createTextRange();
     TRange.collapse(false);
     strFound=TRange.findText(str);
     if (strFound) {
        win.document.body.scrollTop = TRange.offsetTop;
        TRange.select();
        }



   }
  }
  
   if (TRange==null || strFound==0) {
   TRange=win.document.body.createTextRange();
   dupeRange = TRange.duplicate();
   strFound=TRange.findText(str);
    if (strFound) {
        win.document.body.scrollTop = TRange.offsetTop;
        TRange.select();
        }

   
   }

 }

  if (!strFound) alert ("String '"+str+"' not found!") // string not found

        
}
// -->
</script>
<script>
if (!document.layers)
document.write('<div id="divStayTopLeft" style="position:absolute">')
</script>

<layer id="divStayTopLeft">

<table border="1" width="130" cellspacing="0" cellpadding="0">
<tr>
    <td width="100%" align="center">
	<td align="center"><form name="form1" onSubmit="search(document.form1, frametosearch); return false"><input type="text" name="findthis" size="15" title="Press 'ALT s' after clicking submit to repeatedly search page"> <input type="submit" value="Find in this topic" ACCESSKEY="s"></form></td>
  </tr>
</table>
<!--END OF EDIT-->

</layer>


<script type="text/javascript">

/*
Floating Menu script-  Roy Whittle (http://www.javascript-fx.com/)
Script featured on/available at http://www.dynamicdrive.com/
This notice must stay intact for use
*/

//Enter "frombottom" or "fromtop"
var verticalpos="frombottom"

if (!document.layers)
document.write('</div>')

function JSFX_FloatTopDiv()
{
	var startX = 3,
	startY = 150;
	var ns = (navigator.appName.indexOf("Netscape") != -1);
	var d = document;
	function ml(id)
	{
		var el=d.getElementById?d.getElementById(id):d.all?d.all[id]:d.layers[id];
		if(d.layers)el.style=el;
		el.sP=function(x,y){this.style.left=x;this.style.top=y;};
		el.x = startX;
		if (verticalpos=="fromtop")
		el.y = startY;
		else{
		el.y = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
		el.y -= startY;
		}
		return el;
	}
	window.stayTopLeft=function()
	{
		if (verticalpos=="fromtop"){
		var pY = ns ? pageYOffset : document.body.scrollTop;
		ftlObj.y += (pY + startY - ftlObj.y)/8;
		}
		else{
		var pY = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
		ftlObj.y += (pY - startY - ftlObj.y)/8;
		}
		ftlObj.sP(ftlObj.x, ftlObj.y);
		setTimeout("stayTopLeft()", 10);
	}
	ftlObj = ml("divStayTopLeft");
	stayTopLeft();
}
JSFX_FloatTopDiv();
</script>
__________________
~~~~~~~~~~ مع SyriaGroup تحلى الأيام~~~~~~~~~~
أحلى الإستضافات مع الكثير من الميزات إدخل لترى



رد باقتباس
إعلانات - مواقع مفيدة
الراعي الرسمي
رقم العضوية : 2
محل السكن: المنتدى
آخر تواجد: اليوم

رد


عدد الأعضاء الحاليين الذين يشاهدون محتوى هذا الموضوع : 1 ( 0 عضو و 1 ضيوف )
 
أدوات الموضوع
طرق عرض الموضوع

تعليمات المشاركة
لا تستطيع كتابة مواضيع جديدة
لا تستطيع كتابة ردود جديدة
لا تستطيع إرفاق مرفقات في مشاركاتك
لا تستطيع تحرير مشاركاتك

رمز [IMG] متاحة
رمز HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are معطلة
الانتقال إلى

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
الصيانة الوقائية LEO قسم الكومبيوتر والبرامج وأنظمة التشغيل 1 25-05-2004 15:54
جرأة ومنطق والتزام بأدب الحوار : قارئ ينتقد الصفحة الاقتصادية في جريدة تشرين.... Greater الاستثمار في الشام 2 31-03-2004 06:41
تأليف صفحات ويب الجزء الثالث و الأخير LEO قسم الكومبيوتر والبرامج وأنظمة التشغيل 1 05-11-2001 19:20
تأليف صفحات ويب الجزء الثاني LEO قسم الكومبيوتر والبرامج وأنظمة التشغيل 1 05-11-2001 19:18
الدرس الأول في تعلم تأليف صفحات ويب LEO قسم الكومبيوتر والبرامج وأنظمة التشغيل 2 05-11-2001 19:16


حسب توقيت جرينتش +2 الساعة الآن : 21:34

 

Powered by: vBulletin Version 3.6.4
Copyright ©2000 - 2010, Jelsoft Enterprises Ltd.
Syria Nobles 1998-2009