仓酷云

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

[学习教程] ASP编程:程序称号:ASP的天空小偷

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

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

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

x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.程序程序称号:ASP的天空小偷
程序范例:小偷,不太粗俗啊,呵呵~
最新版本:没版本,由于,我不再更新了,有成绩本人改
程序简介:这个没甚么好说的~人人都晓得
程序小飞哥(这个ID,被封了,哎,出错了)
下载地点:如今良多人都已有了~就不必再找我要了!
上面的是我给一个伴侣写的,关于怎样改这个小偷的,不会玩的,本人看看~
实在要再改个别的的甚么小偷也是很简单的事了
呵呵~

用到的函数申明
===============================
Instr()
函数前往字符或字符串在另外一个字符串中第一次呈现的地位.
表达式Instr([start,]strToBeSearched,strSearchFor[,compare])
同意数据范例:Start为搜刮的肇端值,strToBeSearched承受搜刮的字符串strSearchFor要搜刮的字符.compare对照体例(具体见ASP常数)
实例:<%
strText="Thisisatest!!"
pos=Instr(strText,"a")
response.writepos
%>
前往了局:9
==================================
Mid()
函数前往特定长度的字符串(从start入手下手,长度为length).
表达式Mid(string,start[,length])
实例:<%
strTest="Thisisatest!TodayisMonday."
response.writeMid(strTest,17,5)
%>
前往了局:Today
==================================
Abs(数值)
相对值。一个数字的相对值是它的正值。空字符串(null)的相对值,也是空字符串。未初始化的变数,其相对为0
实例:<%
response.writeABS(-2000)
%>
前往了局:2000
=============================
Replace(字符串表达式,findnreplacewith[,start[,count[,compare]]])
将一个字符串代替部分字。寻觅待代替的原字符串(find),若找到则被代替为新字符串(replacewith)。
find:待寻觅代替的原字符串。
replacewith:代替后的字。
start:从第几个字入手下手寻觅代替,若未设定章由第一个字入手下手寻觅。
count:代替的次数。若未设定章一切寻觅到的字符串代替字符串全体被代替。
compare:寻觅对照的办法,compare=0暗示二进制对照法,compare=1表笔墨对照法,compare=2表依据对照的数据型态而定,若省略compare则为预设的二进制对照法。
实例:<%
response.writeReplace("ABCD123ABC","AB","ab")
%>
前往了局:abCD123abC
====================================

程序顶用到了一个历程是写好的
上面是源代码
<%
SourceCode_0是页面获得的总数据
SourceCode_1是截取必要内容所需的入手下手地位的代码
SourceCode_2是截取必要内容所需的停止地位的代?
SourceCode_3是截取必要内容所需的代码中过剩的内容
FunctionGetSourceCode(SourceCode_0,SourceCode_1,SourceCode_2,SourceCode_3)
between=instr(SourceCode_0,SourceCode_1)-instr(SourceCode_0,SourceCode_2)
first=instr(SourceCode_0,SourceCode_1)
GetSourceCode=Mid(SourceCode_0,first,abs(between))
GetSourceCode=replace(GetSourceCode,SourceCode_3,"")
endfunction
%>
如许子挪用
<%
SourceCode="1a2b3c4d5e6f7g8h9i1j0k1l1m1n2o1p3qr1s4t1u5v1wx6y1z7"
这里是界说一个字符串,前面要用到的,在实践的小偷程序中,这个变量是取到的软件页页的源码

response.writeGetSourceCode(SourceCode,"1a2b","5v1wx6","1a2")
%>
前往了局:b3c4d5e6f7g8h9i1j0k1l1m1n2o1p3qr1s4t1u
=========================================
别的,获得数据后要写进数据库
setrs=server.CreateObject("ADODB.RecordSet")
rs.open"select*fromdowntype",conn,3,2
rs.addnew写进纪录必须有这一句
rs("tname")=SoftClass_1rs("tname")这个是数据库中表downtype中的一个字段,字段名是tname,也就是以后要写进内容的中央,SoftClass_1这个是在后面界说好的一个变量
rs("tj")=1
rs("tn")=rsb("id")
rs.update写进纪录这条也是必须的
=========================================
入手下手干闲事
先翻开softwrite.asp中找到以下这句
<!---<textareaname="textarea"cols="100"rows=20><%response.writeSourceCode%></textarea><BR>--!>
改成
<textareaname="textarea"cols="100"rows=20><%response.writeSourceCode%></textarea><BR>
如许就能够看到,程序从天空软件站,及时取到的一些页面信息
固然,这里文本框输入的数据,已是经由一次截取的,假如你要取的不是天空软件站的数据,那末还要先应的先修正,softwirte.asp里的从91行入手下手到94行中的代码
betw=instr(SourceCode,"<tdvAlign=topwidth=540>")-instr(SourceCode,"*</b>为了到达最快的下载速率")
first=instr(SourceCode,"<tdvAlign=topwidth=540>")
SourceCode=Mid(SourceCode,first,abs(betw))
SourceCode=replace(SourceCode,"http://count.skycn.com/softdown.php?id="&Id&"&url=","")
就是这些了,这内里用到了也就只要三个函数,instrmidreplace在后面都已有申明了,都是最基础的使用,如果看不分明这里的程序,就先到后面看看,这几个函数的申明,弄分明了,这里的代码也就分明了
这几句代码的感化就是取截取到的一部分的页面信息,删除一个无用的信息
别的这里截取到的页面信息也是为背景的程序用的,好比,取一个软件的名字都是从这里已截取的信息中再取响应的器材出来,写到数据库中的

固然,假如你的电脑上已有IIS的话,就能够打程序COPY已往就能够看到效果了

从softwrite.asp里的131行入手下手才是真正截取软件相干的一些信息的,假如要改成截取别的的内容,这里固然也要响应的做修改
dimSoftName,SoftSize,SoftLan
下面的这句是界说一些变量,便利挪用
SoftName=GetSourceCode(SourceCode,"<b><fontcolor=#004FC6size=3>","</font></b></td></tr>","<b><fontcolor=#004FC6size=3>")
这句就是截取软件称号的,用到的就是GetSourceCode()这个历程,后面已有申明的,不分明的再看后面的申明
...
从131行到159行,都是截取软件相干信息的,都是只用到GetSourceCode()这个历程

最初,一切的软件信息都截取了,存进响应的变量中,剩下的就是写进数据库的部分了,假如说你的使用都只是偷取人家的下载站的软件信息到惊云中,前面的部分就不必变动了,就能够用,固然这里要申明的是,一切后面界说的变量不克不及变动为其余,如果改了,前面部分的也要响应变动,要不会堕落的
关于写进数据库的部分,内容太多我一会儿也说不分明,在最后面我已复杂的申明了一下,你能够往参改一些书,那样,学ASP会更快一些
就这些了,别的的你如果不分明,我们再QQ接洽,快过年了,在这里一并说下,祝你新年康乐!呵呵~
ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。
灵魂腐蚀 该用户已被删除
沙发
发表于 2015-1-17 16:28:17 | 只看该作者
掌握asp的特性而且一定要知道为什么。
莫相离 该用户已被删除
板凳
发表于 2015-1-30 08:23:05 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
简单生活 该用户已被删除
地板
发表于 2015-2-6 09:19:41 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
海妖 该用户已被删除
5#
发表于 2015-2-15 21:43:51 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
因胸联盟 该用户已被删除
6#
发表于 2015-3-4 14:40:19 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
变相怪杰 该用户已被删除
7#
发表于 2015-3-19 11:25:21 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
小女巫 该用户已被删除
8#
发表于 2015-3-27 23:09:38 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-5-14 21:55

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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