仓酷云

标题: ASP网页编程之假造COOKIE及来历地点举行远程提交抓取... [打印本页]

作者: 乐观 时间: 2015-1-16 22:06
标题: ASP网页编程之假造COOKIE及来历地点举行远程提交抓取...
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小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还有什么网站等等的源代码

作者: 再现理想 时间: 2015-1-18 20:32
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

作者: 乐观 时间: 2015-1-24 05:30
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 柔情似水 时间: 2015-1-31 21:25
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 愤怒的大鸟 时间: 2015-2-7 00:06
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 兰色精灵 时间: 2015-2-19 05:15
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 简单生活 时间: 2015-3-6 13:22
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 精灵巫婆 时间: 2015-3-20 10:04
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

欢迎光临仓酷云 (http://ckuyun.com/)