一个带采集远程文章内容,保存图片,生成文件等完整的采集功能

end function

function uhtmllists(content)
uhtmllists=content
if content <> "" then
uhtmllists=replace(uhtmllists,"""","‘'")
uhtmllists=replace(uhtmllists,"'","";")
uhtmllists=replace(uhtmllists,chr(10),"")
uHtmllists=replace(uHtmllists,chr(13),"<br>")
end if
end function

'=================================================
'过程： Sleep
'功能： 程序在此晢停几秒
'参数： iSeconds 要暂停的秒数
'=================================================
Sub Sleep(iSeconds)
response.Write "<font color=blue>开始暂停 "&iSeconds&" 秒</font><br>"
Dim t:t=Timer()
While(Timer()<t+iSeconds)
'Do Nothing
Wend
response.Write "<font color=blue>暂停 "&iSeconds&" 秒结束</font><br>"
End Sub

'==================================================
'函数名：MyArray
'作 用：提取标签，以分隔
'参 数：ConStr ------提取地址的原字符
'==================================================
Function MyArray(Byval ConStr)
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "({).+?(})"
Set Matches =objRegExp.Execute(ConStr)
For Each Match in Matches
TempStr=TempStr & "" & Match.Value
Next
Set Matches=nothing

TempStr=Right(TempStr,Len(TempStr)-1)
objRegExp.Pattern ="{"
TempStr=objRegExp.Replace(TempStr,"")
objRegExp.Pattern ="}"
TempStr=objRegExp.Replace(TempStr,"")
Set objRegExp=nothing
Set Matches=nothing

TempStr=Replace(TempStr,"$","")

If TempStr="" then
MyArray="在代码中没有可提取的东西"
Else
MyArray=TempStr
End if
End Function

'==================================================
'函数名：randm
'作 用：产生6位随机数
'==================================================
Function randm
randomize
randm=Int((900000*rnd)+100000)
End Function
%>