Venlentine – 第 74 页

&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-686839da02cd48 […]

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

XMLHTTP批量抓取远程资料

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

ASP2006年10月17日

防采集而不防搜索引擎策略

从前面的我讲的采集原理大家可以看出，绝大多数采集程序都是靠分析规则来进行采集的，如分析分页文件名规则、分析页面 […]

ASP2006年10月17日

防采集策略

目前防采集的方法有很多种，先介绍一下常见防采集策略方法和它的弊端及采集对策：一、判断一个IP在一定时间内对本 […]

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

说采集就大家一起来聊采集吧

采集原理：采集程序的主要步骤如下：一、获取被采集的页面的内容二、从获取代码中提取所有用的数据一、获取被 […]

ASP2006年10月17日

论坛E-mail验正的正则表达式升级

今天拿到了传说中有1G大的Gmai,确实很好用速度极快，没有了传统的收件夹，取了代之的是labels ,用户自 […]

C#2006年10月17日

C#开发点滴：常用函数，处理方法

<strong>1. 打开新的窗口并传送参数：</strong> 传送参数： resp […]

HTML52006年10月17日2020年3月24日

发布ActiveX

1、如果需要创建cab文件，首先需要Cabarc或者Makecab，它们随着Cabinet SDK的安装就有了 […]

C#2006年10月17日

解读C#中的规则表达式

多少年来，许多的编程语言和工具都包含对规则表达式的支持，.NET基础类库中包含有一个名字空间和一系列可以充分发 […]

Javascript2006年10月17日2020年3月24日

收集了一些表现层应用的例子

页面加载效果一：

&lt;script type="text/javascript"&gt;// &lt;![CDATA[

/********************************************************
 * ProgressBar class
 * @author null
 * @param width - width of progress bar
 * @param height - height of progress bar
 * @param fgColor - fgColor of progress bar
 * @param bgColor - bgColor of progress bar
 * @param borderColor - borderColor of progress bar
          the rule is the same border-color of CSS
/********************************************************/
function ProgressBar(width,height,fgColor,bgColor,borderColor){

  if(borderColor==undefined){
    bgColor = "threedlightshadow";
    fgColor = "highlight";
    borderColor =  "buttonshadow window window buttonshadow";
  }
  else if(borderColor==undefined&amp;&amp;fgColor==undefined&amp;&amp;bgColor==undefined){
    bgColor = "threedlightshadow";
    fgColor = "highlight";
    borderColor =  "buttonshadow window window buttonshadow";
  }

  percent  = 0.0; //initialize to zero
  fontSize = Math.ceil(height/2)+1;

  font_bt = "&lt;table width=100% height=100% cellpadding=0 cellspacing=0 style='font:bold "+fontSize+"px Arial;color:"+bgColor+";text-align:center;vertical-align:center;'&gt;
&lt;tr&gt;
&lt;td&gt;"+parseInt(percent*100)+" %&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;";
  font_ft = "
&lt;table width=100% height=100% cellpadding=0 cellspacing=0 style='font:bold "+fontSize+"px Arial;color:"+fgColor+";text-align:center;vertical-align:center;'&gt;
&lt;tr&gt;
&lt;td&gt;"+parseInt(percent*100)+" %&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;";

  squares = "";
  for(var i=0;;i++){
    var left = width-2-i*(height/2+1);
    //alert(left);
    if(left&gt;=height/2+1){
      squares += "&lt;span style='background-color:"+fgColor+";width:"+height/2+"px;height:"+(height-2)+";margin-right:1px;'&gt;&lt;/span&gt;";
    }
    else if(left&gt;=1){
      squares += "&lt;span style='background-color:"+fgColor+";width:"+left+"px;height:"+(height-2)+";margin:0px;'&gt;&lt;/span&gt;";
    }
    else
      break;
  }

  //position:absolute;
  str  = "&lt;span id=progress_bg style='width:"+width+"px;height:"+height+"px;background-color:"+bgColor+";border:1px solid;border-color:"+borderColor+"'&gt;"; //"+fgColor+" #transparent
  str += "  &lt;span id=progress_fg style='position:absolute;width:100%;height:100%;clip:rect(0,"+parseInt(percent*100)+"%,100%,0);background-color:"+fgColor+";font-size:0px;line-height:0px;'&gt;";
  str +=      squares;
  str += "  &lt;/span&gt;";
  str += "  &lt;span id=progress_bt style='position:absolute;z-index:8;width:100%;height:100%;background-color:#transparent;clip:rect(0,"+parseInt(percent*100)+"%,100%,0);text-align:center;'&gt;";
  str +=      font_bt;
  str += "  &lt;/span&gt;";
  str += "  &lt;span id=progress_ft style='position:absolute;z-index:9;width:100%;height:100%;background-color:#transparent;clip:rect(0,100%,100%,"+parseInt(percent*100)+"%);text-align:center;'&gt;";
  str +=      font_ft;
  str += "  &lt;/span&gt;";
  str += "&lt;/span&gt;";

  document.write(str);

  function update(){
    font_bt = "
&lt;table width=100% height=100% cellpadding=0 cellspacing=0 style='font:bold "+fontSize+"px Arial;color:"+bgColor+";text-align:center;vertical-align:center;'&gt;
&lt;tr&gt;
&lt;td&gt;"+parseInt(percent*100)+" %&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;";

    font_ft = "
&lt;table width=100% height=100% cellpadding=0 cellspacing=0 style='font:bold "+fontSize+"px Arial;color:"+fgColor+";text-align:center;vertical-align:center;'&gt;
&lt;tr&gt;
&lt;td&gt;"+parseInt(percent*100)+" %&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;";

    document.getElementById("progress_fg").style.clip='rect(0,'+parseInt(percent*100)+'%,100%,0)';
    document.getElementById("progress_bt").style.clip='rect(0,'+parseInt(percent*100)+'%,100%,0)';
    document.getElementById("progress_ft").style.clip='rect(0,100%,100%,'+parseInt(percent*100)+'%)';

    document.getElementById("progress_bt").innerHTML=font_bt;
    document.getElementById("progress_ft").innerHTML=font_ft;
  }

  this.setModel=function(model){
    percent = model;
    update();
  }
}

/////////// Test for ProgressBar ////////////
pb = new ProgressBar(153,18);//,"navy","#FFE4C4","#ff9900");
//document.write("Hello,ProgressBar");
//pb.setModel(50/100);
function progress(v){
  if (v &gt;= 100){
    pb.setModel(1.00);
    alert("Finished");
  }
  else{
    pb.setModel(v/100);
    window.setTimeout("progress("+(v+1)+")",Math.random()*Math.random()*500);
  }
}
progress(0);
///////////////// End Test ///////////////////
// ]]&gt;&lt;/script&gt;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

/********************************************************

* ProgressBar class

* @author null

* @param width - width of progress bar

* @param height - height of progress bar

* @param fgColor - fgColor of progress bar

* @param bgColor - bgColor of progress bar

* @param borderColor - borderColor of progress bar

the rule is the same border-color of CSS

/********************************************************/

function ProgressBar(width,height,fgColor,bgColor,borderColor){

if(borderColor==undefined){

bgColor = "threedlightshadow";

fgColor = "highlight";

borderColor = "buttonshadow window window buttonshadow";

}

else if(borderColor==undefined&&fgColor==undefined&&bgColor==undefined){

bgColor = "threedlightshadow";

fgColor = "highlight";

borderColor = "buttonshadow window window buttonshadow";

}

percent = 0.0; //initialize to zero

fontSize = Math.ceil(height/2)+1;

font_bt = "<table width=100% height=100% cellpadding=0 cellspacing=0 style='font:bold "+fontSize+"px Arial;color:"+bgColor+";text-align:center;vertical-align:center;'>

<tr>

<td>"+parseInt(percent*100)+" %</td>

</tr>

</table>";

font_ft = "

<tr>

<td>"+parseInt(percent*100)+" %</td>

</tr>

</table>";

squares = "";

for(var i=0;;i++){

var left = width-2-i*(height/2+1);

//alert(left);

if(left>=height/2+1){

squares += "<span style='background-color:"+fgColor+";width:"+height/2+"px;height:"+(height-2)+";margin-right:1px;'></span>";

}

else if(left>=1){

squares += "<span style='background-color:"+fgColor+";width:"+left+"px;height:"+(height-2)+";margin:0px;'></span>";

}

else

break;

}

//position:absolute;

str = "<span id=progress_bg style='width:"+width+"px;height:"+height+"px;background-color:"+bgColor+";border:1px solid;border-color:"+borderColor+"'>"; //"+fgColor+" #transparent

str += " <span id=progress_fg style='position:absolute;width:100%;height:100%;clip:rect(0,"+parseInt(percent*100)+"%,100%,0);background-color:"+fgColor+";font-size:0px;line-height:0px;'>";

str += squares;

str += " </span>";

str += " <span id=progress_bt style='position:absolute;z-index:8;width:100%;height:100%;background-color:#transparent;clip:rect(0,"+parseInt(percent*100)+"%,100%,0);text-align:center;'>";

str += font_bt;

str += " </span>";

str += " <span id=progress_ft style='position:absolute;z-index:9;width:100%;height:100%;background-color:#transparent;clip:rect(0,100%,100%,"+parseInt(percent*100)+"%);text-align:center;'>";

str += font_ft;

str += " </span>";

str += "</span>";

document.write(str);

function update(){

font_bt = "

<tr>

<td>"+parseInt(percent*100)+" %</td>

</tr>

</table>";

font_ft = "

<tr>

<td>"+parseInt(percent*100)+" %</td>

</tr>

</table>";

document.getElementById("progress_fg").style.clip='rect(0,'+parseInt(percent*100)+'%,100%,0)';

document.getElementById("progress_bt").style.clip='rect(0,'+parseInt(percent*100)+'%,100%,0)';

document.getElementById("progress_ft").style.clip='rect(0,100%,100%,'+parseInt(percent*100)+'%)';

document.getElementById("progress_bt").innerHTML=font_bt;

document.getElementById("progress_ft").innerHTML=font_ft;

}

this.setModel=function(model){

percent = model;

update();

}

/////////// Test for ProgressBar ////////////

pb = new ProgressBar(153,18);//,"navy","#FFE4C4","#ff9900");

//document.write("Hello,ProgressBar");

//pb.setModel(50/100);

function progress(v){

if (v >= 100){

pb.setModel(1.00);

alert("Finished");

}

else{

pb.setModel(v/100);

window.setTimeout("progress("+(v+1)+")",Math.random()*Math.random()*500);

}

progress(0);

///////////////// End Test ///////////////////

// ]]></script>

页面加载效果二 [cray […]