非常不错的页面搜索器,还可以移动 -- [表单特效]─ 深山工作室提供网络投票系统|微信公众号投票|微信公众号小程序|抖音小程序|百度小程序|微信公众号开发|企业网站建设

非常不错的页面搜索器,还可以移动

网络 2008/6/6 21:02:00 深山行者字体:大中小浏览 7374

以下为详细代码

脚本说明:
把如下代码加入<body>区域中
<style type=text/css>
BODY {
	FONT-FAMILY: "宋体","Arial","Times New Roman"; FONT-SIZE: 12px; LETTER-SPACING: 1pt; LINE-HEIGHT: 22px; MARGIN-LEFT: 5pt; MARGIN-TOP: 5pt
}
#scontentmain {
	HEIGHT: 30px; POSITION: absolute; TOP: 28px; WIDTH: 228px
}
#scontentbar {
	BORDER-BOTTOM: black 1px solid; BORDER-LEFT: black 1px solid; BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; CURSOR: hand; HEIGHT: 15px; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px; POSITION: absolute; TOP: 5px; WIDTH: 100%
}
#scontentsub {
	POSITION: absolute; TOP: 28px; WIDTH: 100%
}
A.a1:hover {
	BORDER-BOTTOM: #4a8ff2 1px solid; BORDER-LEFT: #4a8ff2 1px solid; BORDER-RIGHT: #4a8ff2 1px solid; BORDER-TOP: #4a8ff2 1px solid; LINE-HEIGHT: 13pt; WIDTH: 83px; 12px;: 1869FE; align: center
}
A.a1:link {
	COLOR: #ffffff; TEXT-DECORATION: none; 12px;align: center
}
TD {
	FONT-SIZE: 12px
}
.pos {
	POSITION: relative
}
</style>
<SCRIPT language=JavaScript>
/*** DownLoad.PcHome.net Online Search Engine ***/
/*** Author:Yoo Lee ***/
/*** Version:1.0 2001/06/04 ***/
var dragapproved=false
var zcor,xcor,ycor
function drag_onclick() {
	if  (search1.drag.checked == true ) dragapproved=false
	else dragapproved=true
	}
function movescontentmain(){
if (event.button==1&&dragapproved&&search1.drag.checked == true){
zcor.style.pixelLeft=tempvar1+event.clientX-xcor
zcor.style.pixelTop=tempvar2+event.clientY-ycor
leftpos=document.all.scontentmain.style.pixelLeft-document.body.scrollLeft
toppos=document.all.scontentmain.style.pixelTop-document.body.scrollTop
return false
}
}
function dragscontentmain(){
if (!document.all)
return
if (event.srcElement.id=="scontentbar"){
dragapproved=true
zcor=scontentmain
tempvar1=zcor.style.pixelLeft
tempvar2=zcor.style.pixelTop
xcor=event.clientX
ycor=event.clientY
document.onmousemove=movescontentmain
}
}
document.onmousedown=dragscontentmain
document.onmouseup=new Function("dragapproved=false")
function aa(e)
{
if (e==0) alert("\n-　　=  页面字符搜索引擎 1.0 测试版    =      \n\n-　　             电脑之家 版权所有\n\n-         重写了部分代码\n-         修正鼠标拖动跳跃的bug，\n-         保留选择可否拖动……\n\n-             其他功能正在测试中！\n\n");
return;	
}
function  cose()
{
if(confirm("即将关闭此窗口，如确认请按确定！\n\n如要重开此窗口请刷新页面。"))
scontentmain.style.display='none'
else 
scontentmain.style.display=''
}
//screen.width,screen.height
document.write('<div id="scontentmain"><form name="search1" onSubmit="return findInPage(this.Word.value);"><div id="scontentbar">                      <img src="images/alt0415.gif" alt="帮助" border="0" onClick="aa(0)"><img src="images/usr0415.gif" usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="20,0,40,20" alt="最大化" onclick="offdisplay()"><area shape="rect" coords="0,0,20,20" alt="最小化" onclick="ondisplay()"><area shape="rect" shape="rect"  coords="34,0,60,19" alt="关闭" onclick="cose()"></map></div><div id="scontentsub"" style="visibility: show"><table width="228" border="1" cellpadding="2" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#0099CC" class=font1><tr bgcolor="#2D96FF"><td height="2" colspan="2" align="center"><input type="text"  name="Word" size="30" onChange="n = 0;" onFocus=window.document.search1.Word.value=""  ></td></tr><tr bgcolor="#CCCCCC"><td width="222">   <input type="checkbox" name="drag" value="搜索" LANGUAGE=javascript onclick="return drag_onclick()">可用鼠标拖动窗口 <a href="#top">↑</a></td><td width="61" align="center"><input type="submit" name="Submit" value="搜索"></td></tr></form></table></div></DIV>');

/******************** do Floating Window's Mouse Action ********************/

var w=document.body.clientWidth-450
var h=190
w+=document.body.scrollLeft
h+=document.body.scrollTop

var leftpos=w
var toppos=h
scontentmain.style.left=w
scontentmain.style.top=h

function ondisplay(){
if (scontentsub.style.display=='')
scontentsub.style.display='none'
else
scontentsub.style.display==''
}

function offdisplay(){
if (scontentsub.style.display=='none')
scontentsub.style.display=''
else
scontentsub.style.display=='none'
}

function staticize(){
w2=document.body.scrollLeft+leftpos
h2=document.body.scrollTop+toppos
scontentmain.style.left=w2
scontentmain.style.top=h2
}
window.onscroll=staticize

function GetWord() 
{
	var tr
//	event.cancelBubble = true 
//	event.returnValue=false
}
function FindWord(w)
{
	for (var i=0;i<WordList.options.length;i++)
		if (WordList.options[i].text==w) 
		{
			WordList.options[i].selected=true
			Output.value=WordExpln[i]
			RESULT.style.visibility="visible"
			return true
		}
	return false
}
/******************** Main Part ********************/
var canDrag=0,canGetWord=0
var oldtop=0,oldscrolltop=0
var WordExpln=new Array()
var G_xmlHTTP
document.onmousemove = GetWord

var NS4 = (document.layers);
var IE4 = (document.all);

var win = this;
var n   = 0;

function findInPage(str)
{
	var txt, i, found;
	if (str == "")
		return false;
	if (NS4)
	{
		if (!win.find(str))
		while(win.find(str, false, true))
			n++;
		else
		n++;
	if (n == 0) alert(str + " ...             您要找的文字不存在。\n \n请试着输入页面中的关键字再次查找！\n \n 并且请注意，不要把“？”或“：”也输入查找！！！");
	}

if (IE4)
	{
		txt = win.document.body.createTextRange();
		for (i = 0; i <= n && (found = txt.findText(str)) != false; i++)
		{
			txt.moveStart("character", 1);
			txt.moveEnd("textedit");
		}
		if (found)
		{
		 txt.moveStart("character", -1);
		 txt.findText(str);
		 txt.select();
		 txt.scrollIntoView();
	 n++;		}
		else
		{
			if (n > 0)
			{
				n = 0;
				findInPage(str);
			}
			else
				alert(str + "...            您要找的文字不存在。\n \n请试着输入页面中的关键字再次查找！\n \n 并且请注意，不要把“？”或“：”也输入查找！！！");
		}
	}
	return false;
}

self.onError=null;
	currentX = currentY = 0;  
	whichIt = null;   
    lastScrollX = 0; lastScrollY = 0;
	NS = (document.layers) ? 1 : 0;
	IE = (document.all) ? 1: 0;
</SCRIPT>

前一页:非常漂亮的当前页面内容搜索代码

后一页:当鼠标经过表单,表单承现选择状效果

相关阅读: 详解VBScript里的对象正则表达式功能介绍; Div+CSS+JS树型菜单，可刷新; jquery设置或获取修改classname; ASP与ACCESS数据库链接代码; 旅行社网站模板12; 一个几个图片来回变幻的超炫的图片转换效果; 符合标准的正常工作的对联广告; ASP导出WORD或Excel文档(比较另类，而且超级强的。)

共有0条关于《非常不错的页面搜索器,还可以移动》的评论: 发表评论

正在加载评论......

返回顶部发表评论

呢称:
表情:
内容:	评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码:

网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择: 百度小程序开发; 微信小程序开发; 微信公众号开发; uni-app; asp函数库; ASP; DIV+CSS; HTML; python

更多>>同类信息: input文本输入框只能输入数字或字母或汉字等; 用于深山在线投票的一个javascript统计checkbox现在选中的个数一边点复选框一边验证并计算现在选了多少个复选框; 利用javascript简短功能就可以检查form表单中的元素是否已经填写; javascript日期验证比较; javascript 根据汉字拼音首字母快速定位下拉列表; javascript取汉字拼音首字母缩写程序

更多>>最新添加文章: dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT; Android移动端自动化测试：使用UIAutomatorViewer与Selenium定位元素; 抖音直播音挂载小雪花懂车帝小程序; javascript获取浏览器指纹可以用来做投票; 火狐Mozilla Firefox出现：无法载入您的Firefox配置文件它可能已经丢失或是无法访问问题解决集合处理办法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路径; python通过代码修改pip下载源让下载库飞起; python里面requests.post返回的res.text还有其它的吗

更多>>随机抽取信息: 深山旅行社网站管理系统 v1.4; 网页调用msn/qq/email记录，淘宝，skype挂在网页上; uni-app基础知识数组形式的数据绑定; 利用javascript鼠标经过表格，行与列变色; 2010滚动条样式大全最新收集; asp中利用split,instr组合去除二维数组中重复项

更多标签热门标签

height 展示文本导航 web 2.0 保护眼睛的电脑色参数 rnd 处理网易首页无限 exe 加密改变淘宝键盘缩放效果选择符限制日历锚点关闭 body dd 树型格式化凹陷访问量 ResponseXML 自适应高度舒服顶部 web 分页快捷站长爱国 pr 源码过滤货币数字时间 DIV CSS做的透明菜单兼容IE、FF等文字垂直 slectindext xhtml getElementById