仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 496|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网页编程之假造COOKIE及来历地点举行远程提交抓取...

[复制链接]
乐观 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:06:02 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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还有什么网站等等的源代码
再现理想 该用户已被删除
沙发
发表于 2015-1-18 20:32:01 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
乐观 该用户已被删除
板凳
 楼主| 发表于 2015-1-24 05:30:17 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
柔情似水 该用户已被删除
地板
发表于 2015-1-31 21:25:33 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
愤怒的大鸟 该用户已被删除
5#
发表于 2015-2-7 00:06:51 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
兰色精灵 该用户已被删除
6#
发表于 2015-2-19 05:15:28 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
简单生活 该用户已被删除
7#
发表于 2015-3-6 13:22:00 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
精灵巫婆 该用户已被删除
8#
发表于 2015-3-20 10:04:18 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 06:17

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表