程序名称：ASP的天空小偷

程序名称：ASP的天空小偷
程序类型：小偷，不太文雅啊，呵呵~
最新版本：没版本，因为，我不再更新了，有问题自己改
程序简介：这个没什么好说的~大家都知道
程序作者：小飞哥（这个ID，被封了，哎，犯错了）
下载地址：现在很多人都已经有了~就不用再找我要了！

下面的是我给一个朋友写的，关于如何改这个小偷的，不会玩的，自己看看~
其实要再改个其它的什么小偷也是很容易的事了

呵呵~

   
用到的函数说明
===============================
Instr()
函数返回字符或字符串在另一个字符串中第一次出现的位置.

表达式 Instr([start, ] strToBeSearched, strSearchFor [, compare])

允许数据类型: Start为搜索的起始值，strToBeSearched接受搜索的字符串 strSearchFor要搜索的字符.compare比较方式（详细见ASP常数）

实例： <%

strText = "This is a test!!"

pos = Instr(strText, "a")

response.write pos

%>

返回结果: 9

==================================
Mid()

函数返回特定长度的字符串(从start开始,长度为length).

表达式 Mid(string, start [, length])

实例： <%

strTest = "This is a test! Today is Monday."

response.write Mid(strTest, 17, 5)

%>

返回结果: Today
==================================
Abs(数值)

绝对值。一个数字的绝对值是它的正值。空字符串 (null) 的绝对值，也是空字符串。未初始化的变数，其绝对为 0

实例： <%
response.write ABS(-2000)
%>

返回结果: 2000
=============================
Replace( 字符串表达式,findnreplacewith[,start[,count[,compare]]])

将一个字符串取代 部份字。寻找待取代的原字符串 (find) ， 若找到则被取代为新字符串 (replacewith) 。
find ：待寻找取代的原字符串。
replacewith ：取代后的字。
start ：从第几个字开始寻找取代， 若未设定则由第一个字开始寻找。
count ：取代的次数。 若未设定则所有寻找到的字符串取代字符 串全部被取代。
compare ：寻找比较的方法， compare=0 表示二进制比较法， compare=1 表文字比较法， compare =2 表根据比较的 数据型态而定，若省略 compare 则为预设的二进制比较法。

实例： <%
response.write Replace("ABCD123ABC","AB","ab")
%>
返回结果: abCD123abC
====================================

程序中用到了一个过程是写好的
下面是源代码

<%

'SourceCode_0是页面取得的总数据
''SourceCode_1是截取需要内容所需的开始位置的代码'
''SourceCode_2是截取需要内容所需的结束位置的代?
''SourceCode_3是截取需要内容所需的代码中多余的内容
Function GetSourceCode(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,"")
end function

%>

这样子调用

<%
SourceCode="1a2b3c4d5e6f7g8h9i1j0k1l1m1n2o1p3qr1s4t1u5v1wx6y1z7"
''这里是定义一个字符串，后面要用到的，在实际的小偷程序中，这个变量是取到的软件页页的源码

response.write GetSourceCode(SourceCode,"1a2b","5v1wx6","1a2")

%>

返回结果: b3c4d5e6f7g8h9i1j0k1l1m1n2o1p3qr1s4t1u

=========================================

另外，取得数据后要写入数据库

set rs=server.CreateObject("ADODB.RecordSet")

[1] [2] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:一劳永逸的解决ACCESS日文问题

下一篇:ASP学习：小偷要用到的函数