<%''''''''''''''''断剑注释'''''''''''''''''''''''''''''strText为要切取内容的那段打的内容''''''''''''''''strStarTag为要切取内容的开始的地方''''''''''''''strEndTag为要切取内容的结束的地方''''''''''''''GetText返回值为切取出来的内容'''''''''''''''''''''''''''''注释结束''''''''''''''''''''''''Function GetText(strText, strStartTag, strEndTag)dim intStartintStart = instr(strText, strStartTag)if intStart thenintStart = intStart + len(strStartTag)intEnd = InStr(intStart, strText, strEndTag)GetText = Mid(strText, intStart, intEnd - intStart)elseGetText = " "end ifEnd 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 FunctionFunction 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%>

　　推荐阅读

　　asp调用存储过程

1.调用存储过程的一般方法 先假设在sql server中有一存储过程dt_users： CREATE PROCEDURE [dbo].[dt_users] AS select * from users return GO 第一种方法是不利用command对象，直接用recordset对象 set rs=serve>>>详细阅读

本文标题：提供几个关于采集的函数(ASP)

地址：http://www.17bianji.com/kaifa2/ASP/33328.html

 1/2    1