瞄准国际一流,研发核心技术,初步选择京沪深三地筹建分院 【本报讯】腾讯公司昨日宣布,将在全国范围投资上亿元建国 […]
连邦开通世界最大软件网站
连邦软件日前宣布,巨资打造的世界最大软件门户8844.com正式上线,预计3年内我国正版软件使用率将提升3 […]
IE7曝首个安全漏洞 隐私信息可能被一览无遗
10月20日消息 微软IE7发布还不到24个小时,安全研究人员便在上面发现了漏洞。 据美联社报道,丹麦安全公司 […]
BT种子下载无法保存
Quest: 以前点击BT种子下载,都可以选择保存在桌面. 这几天下载BT种子 ,不能选择保存位置,然后直接弹 […]
点击复制标题和地址的代码
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
<title>点击复制标题和地址的代码</title> <input type='button' name='Submit' onClick="copyToClipBoard()" value='复制专题地址,传给QQ/MSN上的好友'> <script language='javascript'> function copyToClipBoard(){ var clipBoardContent=''; clipBoardContent+=document.title; clipBoardContent+=''; clipBoardContent+=this.location.href; window.clipboardData.setData('Text',clipBoardContent); alert('复制成功,请粘贴到你的QQ/MSN上推荐给你的好友'); } </script> <script language='JavaScript'> function copyUrl(url){ var content=""; window.clipboardData.setData('Text',url); alert('本帖标题和地址已复制到剪贴版,你可按CTRL+V在任何软件如:QQ、MSN中进行粘贴发送给好友。');} </script> <a title='点击复制本帖标题和地址到剪贴版,直接在MSN/QQ上粘贴即可' href='javascript:copyUrl("<a href=http://www.fightfly.com target=_blank>http://www.fightfly.com</a>")'>点击复制本贴Url地址...</a> |
用Google Maps API做的魔兽世界卫星地图mapwow.com
oh,我有点lag了。 之前Google Maps在做星舰迷航记(Star Trek)的专题时,我只是想到Go […]
液晶萤幕采购简单版
最近液晶萤幕是购买的好时机,17吋已经开始慢慢起涨,19吋倒是很划算,也是目前市场的主流建议产品。而未来近几年 […]
为省成本,微软新作业系统Vista各版本均压在单片DVD光碟上
这样的作法固然是省下压片的成本,微软(Microsoft)的新作业系统Vista主要有6种不同的版本,将不分开 […]
中国2006年Blog报告:Blogger近1800万,七成呈睡眠状态
在北京举行的2006年中国互联网大会(网际网路大会)结束时发表了一份2006年中国博客调查报告,其中有几个数字 […]
英特尔的80颗浮点运算核心处理器
英特尔在2006年秋季IDF讲的内含80颗浮点运算核心的处理器,目前已经有原型机,并且以3.16Ghz的速度运 […]
SLE(Simple List Extensions)
SLE(Simple List Extensions)是微软RSS Team提出的一项xml扩充格式,可以在r […]
十个Blog应常更新的理由
十个Blog应常更新的理由 把自己的blog定位成多样化个人媒体,碰到度假或出差、生病,我自己的会采取预先打好 […]
微软在Vista的反盗版新机制与企业大量授权的变革
其实微软(Microsoft)在新作业系统Vista与其他未来软体要採用的反盗版新机制软体保护平台(Softw […]
反DRM运动与DRM的中文翻译
应用在多媒体与数位文本上的数位权利管理(Digital Rights Management;DRM),自由软体 […]
微软的免费网页空间服务OfficeLiveBasic
微软的Office Live Basic免费网页空间服务开跑一小段时间了,有兴趣的人可以买一个网域名称,试试看 […]
解析Atlas—微软的Ajax工具包
微软已经在进行一个版本Visual Stuido 的研发,其中一个重要的研究方向就是通过Ajax风格的编程在浏 […]
对DataGrid操作大全和精华
1、DataGrid动态模板列更新数据并且分页的例子 <a href=”http://www […]
如何设置增大IIS6的当前链接数
Question: I'm considering building a realtime ASP.N […]
关于session的详细解释
一、术语session 在我的经验里,session这个词被滥用的程度大概仅次于transaction,更 […]
用XMLHTTP Post/Get HTML页面时的中文乱码问题之完全Script解决方案
以前我曾经贴过一篇用XMLHTTP Post Form 的帖子,那里的代码中我Post E文的Value毫无问 […]
采集原理—采集技术篇—XMLHTTP
最近一段时间,采集很热门,从新闻小偷,到音乐小偷,到新闻采集,Flash采集,都有他的踪影,现在还有很多的人对 […]
献给学习XMLHTTP的朋友
今天看了chinahuman 的《用asp自动解析网页中的图片地址,并将其保存到本地服务器》,于是优化了这个程 […]
用XMLHTTP很好的一个例子
进入www.ting88.com的网站,把歌手专辑页面的URL复制到文本框中再提交就可以得到歌曲的下载路径,如 […]
XMLHTTP抓取远程数据的后期处理
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 |
<% hehe = Hello("http://mmsg.qq.com/cgi-bin/gddylist?Type=13&Sort=1&Page=3", "<html>", "</html>", ".*(<td width=""35%"" bgcolor=""#[dABCDE]{6}"">(.*)</td>)[. ]*", "<font style=""font-size:9pt;"" color=blue>$2</font><br>") response.Write hehe 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 Function GetBody(Url) Set objXML = createObject("Microsoft.XMLHTTP") With objXML .Open "Get", Url, False, "", "" .SEnd GetBody = .ResponseBody End With GetBody = BytesToBstr(GetBody, "GB2312") Set objXML = Nothing End Function Function BytesToBstr(strBody, CodeBase) Set objStream = Server.createObject("Adodb.Stream") With objStream .Type = 1 .Mode = 3 .Open .Write strBody .Position = 0 .Type = 2 .Charset = CodeBase BytesToBstr = .ReadText .Close End With Set objStream = Nothing End Function %> |
[crayon-686daa323e1f20 […]
XMLHTTP批量抓取远程资料
可以在此基础上结合正则表达式做成更好的效果,希望大家能分享一下Xmlhttp的session共享技术 [cra […]