|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 |
<script type="text/javascript"> //谢谢你对我做的特效感兴趣，可以任意拷贝，不过要多多来我的网页呀！ var speed = 100; //Delay Between Every word var pause = 1000; //Delay Between EveryLine var timerID = null; var bannerRunning = false; var ar = new Array(); ar[0] = "Welcome to http: //yinghua2001.126.com！！！"; ar[1] = " -= 〓≈化学世界·浪漫樱花≈〓 = -你的爱好，我的目标！！！"; ar[2] = "化学试题集化学图片趣味化学化学原理化学实验仪器分析化学工具谱图谱库化学教育生物化学…您想要的，天河网都有！"; ar[3] = "希望能得到您的支持，谢谢！！！ ^ - ^ "; var currentMessage = 0; var offset = 0; function stopBanner() { if (bannerRunning) { clearTimeout(timerID); } bannerRunning = false; } function startBanner() { stopBanner(); showBanner(); } function showBanner() { var text = ar[currentMessage]; if (offset < text.length) { if (text.charAt(offset) == "") offset++; var partialMessage = text.substring(0, offset + 1); window.status = partialMessage; offset++; timerID = setTimeout("showBanner()", speed); bannerRunning = true; } else { offset = 0; currentMessage++; if (currentMessage == ar.length) currentMessage = 0; timerID = setTimeout("showBanner()", pause); bannerRunning = true; } } startBanner(); //document.write('<meta http-equiv=refresh content=600; url=self>') title_tmp1 = document.title; if (title_tmp1.indexOf(" >> ") != -1) { title_tmp2 = title_tmp1.split(" >> "); title_last = "— > " + title_tmp2[1]; title_last = title_last + "— > " + title_tmp2[2]; } else { if (title_tmp1.indexOf("——") != -1) { title_tmp2 = title_tmp1.split("——"); title_last = "— > " + title_tmp2[1]; if (title_last == "— > ") { title_last = "— > "; } if (title_last == "— > ") { title_last = "— > "; } } else { title_last = "——∷∷化学世界·浪漫樱花…–欢迎你的光临"; } } title_new = "化学世界·浪漫樱花" + title_last + ""; step = 0; function flash_title() { step++; if (step == 9) { step = 1; } if (step == 1) { document.title = '◆◇◇◇◇' + title_new + '◇◇◇◇◆'; } if (step == 2) { document.title = '◇◆◇◇◇' + title_new + '◇◇◇◆◇'; } if (step == 3) { document.title = '◇◇◆◇◇' + title_new + '◇◇◆◇◇'; } if (step == 4) { document.title = '◇◇◇◆◇' + title_new + '◇◆◇◇◇'; } if (step == 5) { document.title = '◇◇◇◇◆' + title_new + '◆◇◇◇◇'; } if (step == 6) { document.title = '◇◇◇◆◇' + title_new + '◇◆◇◇◇'; } if (step == 7) { document.title = '◇◇◆◇◇' + title_new + '◇◇◆◇◇'; } if (step == 8) { document.title = '◇◆◇◇◇' + title_new + '◇◇◇◆◇'; } setTimeout("flash_title()", 200); } flash_title(); </script> |
框架自动增长
<script> window.onload = function() { parent.docu […]
marquee标记
<marquee aligh=left|center|right|top|bottom bgcolor= […]
Input高级限制级用法
1.取消按钮按下时的虚线框 在input里添加属性值 hideFocus 或者 HideFocus=tr […]
图片自动调整的模式
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
//图片自动调整的模式，1为按比例调整 ，2 按大小调整。 var resizemode = 1 function imgresize(o) { if (resizemode == 2 || o.onmousewheel) { if (o.width > 500) { o.style.width = '500px'; } if (o.height > 800) { o.style.height = '800px'; } } else { var parentNode = o.parentNode.parentNode if (parentNode) { if (o.offsetWidth >= parentNode.offsetWidth) o.style.width = '98%'; } else { var parentNode = o.parentNode if (parentNode) { if (o.offsetWidth >= parentNode.offsetWidth) o.style.width = '98%'; } } } } function bbimg(o) { var zoom = parseInt(o.style.zoom, 10) || 100; zoom += event.wheelDelta / 12; if (zoom > 0) o.style.zoom = zoom + '%'; return false; } function imgzoom(img, maxsize) { var a = new Image(); a.src = img.src if (a.width > maxsize * 4) { img.style.width = maxsize; } else if (a.width >= maxsize) { img.style.width = Math.round(a.width * Math.floor(4 * maxsize / a.width) / 4); } return false; } |
HTML过滤函数
[code] ?//HTML过滤函数 ?function HTML(text) ?{ ? text = tex […]
ASP怎么取得当前页面路径
ASP怎么取得当前页面路径 dim str,host,url,keyword,full str=” […]
Turkey Children's Day 土耳其国际儿童节
描述:Turkey Children's Day 土耳其国际儿童节 介绍:4月23日，是土耳其的“国家 […]
Turkey Children’s Day 土耳其国际儿童节
描述:Turkey Children’s Day 土耳其国际儿童节 介绍:4月23日，是土耳其的“ […]
Earth Day 世界地球日
描述:Earth Day 世界地球日 介绍:世界地球日没有国际统一的特定主题，中国参与世界地球日活动是从20世 […]
ASP禁止页面被缓存
1、在Asp页面首部加入 Response.Buffer = True Response.ExpiresAbs […]
ASP+Ajax中的中文参数问题解决方法
如何出现这种情况?当ajax通过GET或POST方法调用一带参数的URL时,如: <script typ […]
迅雷下载速度变慢原因及解决办法
由于本人的迅雷级别已经比较高了,今天下东西的时候搜索道了61+18的候选资源,但是1分钟后的下载速度不升反降& […]
Megaupload/Share.am/Rapidshare 下载工具
可從www.megaupload.com 得到鏈接的工具，免用代理 (去除所有下載槽正在使用中) 並且可從ww […]
国内无法登陆Megaupload.com的完美坚决方法
此方法简单的难以置信。既不需要代理，也不需要突破，就兩行文字，完完全全解決MU上傳和下載的全部問題。 方法 […]
如何用CSS定义表格与模拟表格
[1]表格应用 1表格的基本标签 2分析表格的基本标签 3基本演示 [2]层模拟表格 1模拟前的建议 2两列多 […]
设置文件上传个数的效果
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 |
<style type="text/css">td { font-size:9pt } a { color:#000000; text-decoration:none } a:hover { text-decoration:underline } .tx { height:16px; width:30px; border-color:black black #000000; border-top-width:0px; border-right-width:0px; border-bottom-width:1px; border-left-width:0px; font-size:9pt; background-color:#eeeeee; color:#0000FF } .bt { font-size:9pt; border-top-width:0px; border-right-width:0px; border-bottom-width:0px; border-left-width:0px; height:16px; width:80px; background-color:#eeeeee; cursor:hand } .tx1 { height:20px; width:30px; font-size:9pt; border:1px solid; border-color:black black #000000; color: #0000FF } </style> <form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data"> <input type="hidden" name="act" value="upload"> <table width="71%" border="1" cellspacing="0" cellpadding="5" align="center" bordercolordark="#CCCCCC" bordercolorlight="#000000"> <tr align="left" valign="middle" bgcolor="#eeeeee"> <td bgcolor="#eeeeee" height="92"> <script language="javascript"> function setid() { str = ''; if (!window.form1.upcount.value) window.form1.upcount.value = 1; for (i = 1; i <= window.form1.upcount.value; i++) str += '文件' + i + ': <input type = "file" name = "file' + i + '" style = "width: 400" class = "tx1" > '; window.upid.innerHTML = str + ''; } </script> <li> 需要上传的个数 <input type="text" name="upcount" class="tx" value="1"><input type="button" name="Button" class="bt" onclick="setid();" value="· 设定 ·"></li> <li>上传到: <input type="text" name="filepath" class="tx" style="width:350" value=""></li> </td> </tr> <tr align="center" valign="middle"> <td align="left" id="upid" height="122"> 文件1: <input type="file" name="file1" style="width:400" class="tx1" value=""> </td> </tr> <tr align="center" valign="middle" bgcolor="#eeeeee"> <td bgcolor="#eeeeee" height="24"> <input type="submit" name="Submit" value="·' 提交 ·" class="bt"><input type="reset" name="Submit2" value="·' 重执 ·" class="bt"> </td> </tr> </table> </form> |
CSS制作细线表格
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html;charset=gb2312" /> <title>css细线表格</title> <style type="text/css"> table{ border-collapse:collapse; } td{ border:1px solid #f00; } </style> </head> <body> <table> <tr> <td>细线表格</td> <td>细线表格</td> <td>细线表格</td> </tr> <tr> <td>细线表格</td> <td>细线表格</td> <td>细线表格</td> </tr> <tr> <td>细线表格</td> <td>细线表格</td> <td>细线表格</td> </tr> </table></body></html> |
页面选择radio单选选中的值
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
<script type="text/javascript"> function testFunc() { var obj = document.all.finish; for (i = 0; i < obj.length; i++) { if (obj[i].checked) { alert(obj[i].value); } } } </script> <input type=radio name=finish value=1> <input type=radio name=finish value=2> <input type=radio name=finish value=3> <input type=button name=bu value=click onclick="testFunc();"> |
在线生成各类好玩的东东+符号也疯狂
我要发泄 http://www.fuckshit.net/ http://logomaker.cn/ 粉丝身份 […]
跟随鼠标的文字
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
<style> .spanstyle{font-size: 9pt; position: absolute; top: -50px; visibility:visible} </style> <script type="text/javascript"> //IE浏览器专用 var message = "跟随鼠标的文字"; var x, y; var step = 12; var flag = 0; message = message.split(""); var xpos = new Array(); for (i = 0; i <= message.length - 1; i++) { xpos[i] = -50; } var ypos = new Array(); for (i = 0; i <= message.length - 1; i++) { ypos[i] = -50; } function handlerMM(e) { x = (document.layers) ? e.pageX : document.body.scrollLeft + event.clientX + 20; y = (document.layers) ? e.pageY : document.body.scrollTop + event.clientY; flag = 1; } function makesnake() { if (flag == 1 && document.all) { for (i = message.length - 1; i >= 1; i--) { xpos[i] = xpos[i - 1] + step; ypos[i] = ypos[i - 1]; } xpos[0] = x + step; ypos[0] = y; for (i = 0; i <= message.length - 1; i++) { var thisspan = eval("span" + (i) + ".style"); thisspan.posLeft = xpos[i]; thisspan.posTop = ypos[i]; thisspan.color = Math.random() * 255 * 255 * 255 + Math.random() * 255 * 255 + Math.random() * 255; } } else if (flag == 1 && document.layers) { for (i = message.length - 1; i >= 1; i--) { xpos[i] = xpos[i - 1] + step; ypos[i] = ypos[i - 1]; } xpos[0] = x + step; ypos[0] = y; for (i = 0; i < message.length - 1; i++) { var thisspan = eval("document.span" + i); thisspan.left = xpos[i]; thisspan.top = ypos[i]; thisspan.color = Math.random() * 255 * 255 * 255 + Math.random() * 255 * 255 + Math.random() * 255; } } } for (i = 0; i <= message.length - 1; i++) { document.write(" <span id = 'span" + i + "'class = 'spanstyle' > "); document.write(message[i]); document.write(" </span>"); } if (document.layers) { document.captureEvents(Event.MOUSEMOVE); } document.onmousemove = handlerMM; function pageonload() { makesnake(); window.setTimeout("pageonload();", 2); } </script> <body bgcolor="#FFFFFF" text="#000000" link=" #000000" vlink="#000000" alink="#000000" onload=" javascript:pageonload();"> |
ASP远程读取基本函数
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 |
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% 'codepage=936简体中文 'codepage=950繁体中文 'codepage=65001UTF-8 url="http://www.gkj.com.cn/article.asp?id=21" 'url=request.Form("weburl") 'num=request.Form("count") 'str=GetBody(url) 'start="<div id=""logPanel"" class=""Content-body"">" 'ends="</div>" 'response.Write body(str,start,ends) Hello("http://list.mp3.baidu.com/song/A.htm" , "<table width=""90%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""0"" bgcolor=""#f5f5f5"" >" , "<div align=center>" , ".*(<td width=""20%""><a href="".*\.htm"" target=_blank>)(.*)(</a></td>)[.\n]*", "<font style=""font-size:9pt;"" color=blue>$2</font>") %> <form action="" method="post"> 采集网址 <input type="text" size="100" name="weburl"> 采集数量 <input type="text" size="5" name="count"> <input type="submit" value="submit"> </form> <% '1、取得网站的分页列表页的每页地址 '2、获取被采集网站的分页列表页内容 '3、从分页列表代码中提取被采集的内容页面的URL连接地址 '4、取得被采集的内容页面内容 '用以下代码就可以获得一个URL连接集合 '以下内容为程序代码: 'Set xiaoqi = New Regexp 'xiaoqi.IgnoreCase = True 'xiaoqi.Global = True 'xiaoqi.Pattern = """.+?""" 'Set Matches =xiaoqi.Execute(页面列表内容) 'set xiaoqi=nothing 'url="" 'For Each Match in Matches 'url=url&Match.Value 'Next '用serverXMLHTTP组件获取数据 '调用方法:GetBodyServer(文件的URLf地址) Function GetBodyServer(weburl) '创建对象 Dim ObjXMLHTTP Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") '请求文件,以异步形式 ObjXMLHTTP.Open "GET",weburl,False ObjXMLHTTP.send While ObjXMLHTTP.readyState <> 4 ObjXMLHTTP.waitForResponse 1000 Wend '得到结果 GetBodyServer=ObjXMLHTTP.responseBody '释放对象 Set ObjXMLHTTP=Nothing End Function 'XMLHTTP组件获取数据 '调用方法:GetBody(文件的URLf地址) Function GetBody(weburl) '创建对象 Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", weburl, False, "", "" .Send GetBody =BytesToBstr( .ResponseBody , "GB2312") End With '释放对象 Set Retrieval = Nothing End Function 'BytesToBstr(要转换的数据,编码) '编码常用为GB2312和UTF-8 Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function '后期处理 Function Hello(strUrl, strStart, strEnd, patrn, replStr) Str = GetBody(strUrl) Str = MyMid(Str, strStart, strEnd) Str = ReplaceTest(patrn, replStr, Str) Hello = Str End Function Function MyMid(Str, strstart, strend) If strstart = "" Then i = 0 Else i = InStr(Str, strstart) End If If strend = "" Then j = Len(Str) Else j = InStr(i, Str, strend) End If MyMid = Mid(Str, i, j - i + 1) End Function Function ReplaceTest(patrn, replStr, str1) Dim regEx, match, matches Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True Set matches = regEx.Execute(str1) For Each match in matches ReplaceTest = ReplaceTest@Ex.Replace(Match.Value, replStr) Next End Function '用ASP内置的MID函数截取需要的数据 '调用方法：body(被采集的页面的内容,开始标记,结束标记) Function bodyb(wstr,start,over) start=Newstring(wstr,start) '设置需要处理的数据的唯一的开始标记 over=Newstring(wstr,over) '和start相对应的就是需要处理的数据的唯一的结束标记 body=mid(wstr,start,over-start) '设置显示页面的范围 End Function '用正则获取需要的数据 '调用方法：body(被采集的页面的内容,开始标记,结束标记) Function body(wstr,start,over) Set xiaoqi = New Regexp '设置配置对象 xiaoqi.IgnoreCase = True '忽略大小写 xiaoqi.Global = True '设置为全文搜索 xiaoqi.Pattern = ""&start&".*?"&over&"" '正则表达式 Set Matches =xiaoqi.Execute(wstr) '开始执行配置 set xiaoqi=nothing body="" For Each Match in Matches body=body&Match.Value '循环匹配 Next End Function %> |
AJAX远程读取基本函数
[code] ?<%@LANGUAGE=”VBSCRIPT” CODEPAGE= […]
汉字排序
[html] ?<html> ?<head> ?<title>汉字排序&l […]
Javascript表单检查
[code] ?//函数名：chksafe ?//功能介绍：检查是否含有”‘̶ […]