筚路蓝缕

&lt;title&gt;点击复制标题和地址的代码&lt;/title&gt;
&lt;input type='button' name='Submit' onClick="copyToClipBoard()" value='复制专题地址，传给QQ/MSN上的好友'&gt;
&lt;script language='javascript'&gt;
   function copyToClipBoard(){
    var clipBoardContent='';
    clipBoardContent+=document.title;
    clipBoardContent+='';
    clipBoardContent+=this.location.href;
    window.clipboardData.setData('Text',clipBoardContent);
    alert('复制成功，请粘贴到你的QQ/MSN上推荐给你的好友');
  }
&lt;/script&gt;

&lt;script language='JavaScript'&gt;
function copyUrl(url){
var content="";
window.clipboardData.setData('Text',url);
alert('本帖标题和地址已复制到剪贴版，你可按CTRL+V在任何软件如:QQ、MSN中进行粘贴发送给好友。');}
&lt;/script&gt;
&lt;a title='点击复制本帖标题和地址到剪贴版,直接在MSN/QQ上粘贴即可' href='javascript:copyUrl("&lt;a href=http://www.fightfly.com target=_blank&gt;http://www.fightfly.com&lt;/a&gt;")'&gt;点击复制本贴Url地址...&lt;/a&gt;

<title>点击复制标题和地址的代码</title>

function copyToClipBoard(){

var clipBoardContent='';

clipBoardContent+=document.title;

clipBoardContent+='';

clipBoardContent+=this.location.href;

window.clipboardData.setData('Text',clipBoardContent);

alert('复制成功，请粘贴到你的QQ/MSN上推荐给你的好友');

}

</script>

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>

互联网2006年10月18日

用Google Maps API做的魔兽世界卫星地图mapwow.com

oh，我有点lag了。之前Google Maps在做星舰迷航记（Star Trek）的专题时，我只是想到Go […]

软件2006年10月18日

液晶萤幕采购简单版

最近液晶萤幕是购买的好时机，17吋已经开始慢慢起涨，19吋倒是很划算，也是目前市场的主流建议产品。而未来近几年 […]

软件2006年10月18日

为省成本，微软新作业系统Vista各版本均压在单片DVD光碟上

这样的作法固然是省下压片的成本，微软（Microsoft）的新作业系统Vista主要有6种不同的版本，将不分开 […]

互联网2006年10月18日

中国2006年Blog报告：Blogger近1800万，七成呈睡眠状态

在北京举行的2006年中国互联网大会（网际网路大会）结束时发表了一份2006年中国博客调查报告，其中有几个数字 […]

软件2006年10月18日

英特尔的80颗浮点运算核心处理器

英特尔在2006年秋季IDF讲的内含80颗浮点运算核心的处理器，目前已经有原型机，并且以3.16Ghz的速度运 […]

理论2006年10月18日2020年3月24日

SLE（Simple List Extensions）

SLE（Simple List Extensions）是微软RSS Team提出的一项xml扩充格式，可以在r […]

互联网2006年10月18日

十个Blog应常更新的理由

十个Blog应常更新的理由把自己的blog定位成多样化个人媒体，碰到度假或出差、生病，我自己的会采取预先打好 […]

软件2006年10月18日

微软在Vista的反盗版新机制与企业大量授权的变革

其实微软（Microsoft）在新作业系统Vista与其他未来软体要採用的反盗版新机制软体保护平台（Softw […]

软件2006年10月18日

反DRM运动与DRM的中文翻译

应用在多媒体与数位文本上的数位权利管理（Digital Rights Management；DRM），自由软体 […]

互联网2006年10月18日

微软的免费网页空间服务OfficeLiveBasic

微软的Office Live Basic免费网页空间服务开跑一小段时间了，有兴趣的人可以买一个网域名称，试试看 […]

Javascript2006年10月17日2011年10月19日

解析Atlas—微软的Ajax工具包

微软已经在进行一个版本Visual Stuido 的研发，其中一个重要的研究方向就是通过Ajax风格的编程在浏 […]

ASP.NET2006年10月17日

对DataGrid操作大全和精华

1、DataGrid动态模板列更新数据并且分页的例子 <a href=”http://www […]

服务器2006年10月17日

如何设置增大IIS6的当前链接数

Question: I'm considering building a realtime ASP.N […]

理论2006年10月17日2020年3月24日

关于session的详细解释

一、术语session 　　在我的经验里，session这个词被滥用的程度大概仅次于transaction，更 […]

ASP2006年10月17日2011年10月3日

用XMLHTTP Post/Get HTML页面时的中文乱码问题之完全Script解决方案

以前我曾经贴过一篇用XMLHTTP Post Form 的帖子，那里的代码中我Post E文的Value毫无问 […]

ASP2006年10月17日2011年10月3日

采集原理—采集技术篇—XMLHTTP

最近一段时间，采集很热门，从新闻小偷，到音乐小偷，到新闻采集，Flash采集，都有他的踪影，现在还有很多的人对 […]

ASP2006年10月17日2011年10月3日

献给学习XMLHTTP的朋友

今天看了chinahuman 的《用asp自动解析网页中的图片地址，并将其保存到本地服务器》，于是优化了这个程 […]

ASP2006年10月17日2011年10月3日

用XMLHTTP很好的一个例子

进入www.ting88.com的网站,把歌手专辑页面的URL复制到文本框中再提交就可以得到歌曲的下载路径,如 […]

ASP2006年10月17日2011年10月3日

XMLHTTP抓取远程数据的后期处理

&lt;% 
hehe = Hello("http://mmsg.qq.com/cgi-bin/gddylist?Type=13&amp;Sort=1&amp;Page=3", "&lt;html&gt;", "&lt;/html&gt;", ".*(&lt;td width=""35%"" bgcolor=""#[dABCDE]{6}""&gt;(.*)&lt;/td&gt;)[.
]*", "&lt;font style=""font-size:9pt;"" color=blue&gt;$2&lt;/font&gt;&lt;br&gt;") 
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 
%&gt;

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)

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-686dd285929b73 […]

ASP2006年10月17日2011年10月20日

XMLHTTP批量抓取远程资料

可以在此基础上结合正则表达式做成更好的效果，希望大家能分享一下Xmlhttp的session共享技术 [cra […]

利用cloudflare worker搭建在线代理—-jsproxy

利用Dnsmasq来搭建一个属于自己的本地DNS服务器

证书格式简介及不同格式之间的转换方式

将被O2O模式改造的6大行业：衣食住行、变美、咨询

适合小型开发团队使用的免费源代码托管服务网站

几个专业的问卷调查网站的评测

腾讯投资亿元筹建互联网研究院

连邦开通世界最大软件网站

IE7曝首个安全漏洞隐私信息可能被一览无遗

BT种子下载无法保存

点击复制标题和地址的代码

用Google Maps API做的魔兽世界卫星地图mapwow.com

液晶萤幕采购简单版

为省成本，微软新作业系统Vista各版本均压在单片DVD光碟上

中国2006年Blog报告：Blogger近1800万，七成呈睡眠状态

英特尔的80颗浮点运算核心处理器

SLE（Simple List Extensions）

十个Blog应常更新的理由

微软在Vista的反盗版新机制与企业大量授权的变革

反DRM运动与DRM的中文翻译

微软的免费网页空间服务OfficeLiveBasic

解析Atlas—微软的Ajax工具包

对DataGrid操作大全和精华

如何设置增大IIS6的当前链接数

关于session的详细解释

用XMLHTTP Post/Get HTML页面时的中文乱码问题之完全Script解决方案

采集原理—采集技术篇—XMLHTTP

献给学习XMLHTTP的朋友

用XMLHTTP很好的一个例子

XMLHTTP抓取远程数据的后期处理

XMLHTTP批量抓取远程资料