提供几个关于采集的函数(ASP)

<%
''''''''''''''''断剑注释'''''''''''''''''''''''''
''''strtext为要切取内容的那段打的内容''''''''''''
''''strstartag为要切取内容的开始的地方''''''''''
''''strendtag为要切取内容的结束的地方''''''''''
''''gettext返回值为切取出来的内容''''''''''''''
'''''''''''''''注释结束''''''''''''''''''''''''
function gettext(strtext, strstarttag, strendtag)
dim intstart
intstart = instr(strtext, strstarttag)
if intstart then
intstart = intstart + len(strstarttag)
intend = instr(intstart, strtext, strendtag)
gettext = mid(strtext, intstart, intend - intstart)
else
gettext = " "
end if
end function

%>
<%
'''''''''断剑注释''''''''''''
'''''''''以下的函数都可以不管'''''''''
''''''''只管入口函数gethttppage'''''''
''''''''path为要读取的网页地址''''''''
''''''''gethttppage返回读取到的网页内容''
''''''''这里应该注意的是gb2312这里,如果被读取的网页编码是
''gb2312就用gb2312,如果是utf-8的话,就换成utf-8''''
''''''''注释结束''''''''''
function gethttppage(path)
t = getbody(path)
gethttppage=bytestobstr(t,"gb2312")
end function

function getbody(url)
on error resume next
set retrieval = createobject("microsoft.xmlhttp")
with retrieval
.open "get", url, false, "", ""
.send
getbody = .responsebody
end with
set retrieval = nothing
end function
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
%>