|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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。 |
|