|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)********************************************************************************
Function(私有)
称号:远程抓取函数
感化:使用XMLHTTP远程抓取数据
参数:sMethod---发送体例
sUrl------方针地点
iMode-----前往内容范例:0为二进制,1为文本,2为cookie,3为文件头信息
sBase-----设定编码
sReferer--设定来历
sCookie---设定cookie
sLanguage-设定言语
sData-----设定要发送的参数
sContent--设定吸收数据范例
sAgent----设定扫瞄器
sEncoding-设定gzip紧缩
sAccept---设定文档范例
********************************************************************************
PublicFunctionSenFe_StealData(sMethod,sUrl,iMode,sBase,sReferer,sCookie,sLanguage,sData,sContent,sAgent,sEncoding,sAccept)
DimoXmlHttp:SetoXmlHttp=Server.CreateObject("Msxml2.ServerXMLHTTP")
WithoXmlHttp
IfsMethod=""ThensMethod="GET"
.OpensMethod,sUrl,False
设定页面来历
IfsReferer""Then
.SetRequestHeader"Referer",sReferer
Else
.SetRequestHeader"Referer",Split(sUrl,"/")(2)
EndIf
IfsCookie""Then.SetRequestHeader"Cookie",sCookie设定Cookie
IfsLanguage""Then.SetRequestHeader"Accept-Language",sLanguage设定言语
IfsData""Then.SetRequestHeader"Content-Length",Len(sData)设定命据长度
IfsContent""Then.SetRequestHeader"Content-Type",sContent设定承受数据范例
IfsAgent""Then.SetRequestHeader"User-Agent",sAgent设定扫瞄器
IfsEncoding""Then.SetRequestHeader"Accept-Encoding",sEncoding设定gzip紧缩
IfsAccept""Then.SetRequestHeader"Accept",sAccept文档范例
.SendsData
While.ReadyState4
.WaitForResponse1000
Wend
If.ReadyState4Or.Status200Then
SenFe_StealData="没法取到数据!"
ExitFunction
EndIf
SelectCaseiMode
Case0SenFe_StealData=.ResponseBody
Case1
IfsBase""Then
SenFe_StealData=BytesToBstr(.ResponseBody,sBase)
Else
SenFe_StealData=.ResponseText
EndIf
Case2SenFe_StealData=.getResponseHeader("Set-Cookie")
CaseElseSenFe_StealData=.getAllResponseHeaders()
EndSelect
EndWith
EndFunction
********************************************************************************
感化:编码转换
参数:sBody-要转换的内容
sCset-编码
********************************************************************************
FunctionBytesToBstr(sBody,sCset)
WithoAdos
.Type=1
.Mode=3
.Open
.WritesBody
.Position=0
.Type=2
.Charset=sCset
BytesToBstr=.ReadText
.Close
EndWith
EndFunction源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码 |
|