ASP的天空小偷(2)

实例： <%
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") 
rs.open "select * from downtype",conn,3,2
rs.addnew  '写入记录必需有这一句
rs("tname")=SoftClass_1   'rs("tname")这个是数据库中表 downtype 中的一个字段 ,字段名是tname ，也就是当前要写入内容的地方 ，SoftClass_1这个是在前面定义好的一个变量
rs("tj")=1
rs("tn")=rsb("id")
rs.update  '写入记录这条也是必需的

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


开始干正事

先打开softwrite.asp 中找到以下这句

<!---<textarea name="textarea" cols="100" rows=20><%'response.write SourceCode%></textarea><BR>--!>

改成
<textarea name="textarea" cols="100" rows=20><%response.write SourceCode%></textarea><BR>

这样就可以看到，程序从天空软件站，实时取到的一些页面信息

当然，这里文本框输出的数据，已经是经过一次截取的，如果你要取的不是天空软件站的数据，那么还要先应的先修改，softwirte.asp 里的从91行开始到94行中的代码

betw=instr(SourceCode," <td vAlign=top width=540>")-instr(SourceCode,"* </b>为了达到最快的下载速度") 
first=instr(SourceCode," <td vAlign=top width=540>") 
SourceCode = Mid(SourceCode,first,abs(betw))