ASP的天空小偷
，取得数据后要写入数据库
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))
SourceCode =replace(SourceCode,"http://count.skycn.com/softdown.php?id="&Id&"&url=","")
就是这些了，这里面用到了也就只有三个函数，instr mid replace 在前面都已经有说明了，都是最基本的应用，要是看不明白这里的程序，就先到前面看看，这几个函数的说明，搞明白了，这里的代码也就明白了
这几句代码的作用就是取截取到的一部份的页面信息，删除一个无用的信息
另外这里截取到的页面信息也是为后台的程序用的，比如，取一个软件的名字都是从这里已经截取的信息中再取相应的东西出来，写到数据库中的
当然，如果你的电脑上已经有IIS的话，就可以打程序COPY过去就可以看到效果了
从softwrite.asp里的131行开始才是真正截取软件相关的一些信息的，如果要改成截取其它的内容，这里当然也要相应的做改动
dim SoftName,SoftSize,SoftLan
''''上面的这句是定义一些变量，方便调用
SoftName=GetSourceCode(SourceCode,"<b><font color=''#004FC6'' size=''3''>","</font></b></td></tr>","<b><font color=''#004FC6'' size=''3''>")
''''这句就是截取软件名称的，用到的就是 GetSourceCode()这个过程，前面已经有说明的，不明白的再看前面的说明
...
从131行到159行，都是截取软件相关信息的，都是只用到 GetSourceCode()这个过程
最后，所有的软件信息都截取了，存入相应的变量中，剩下的就是写入数据库的部份了，如果说你的应用都只是盗取人家的下载站的软件信息到惊云中，后面的部份就不用更改了，就可以用，当然这里要说明的是，所有前面定义的变量不能更改为别的，要是改了，后面部分的也要相应更改，要不会出错的
关于写入数据库的部份，内容太多我一下子也说不清楚，在最前面我已经简单的说明了一下，你可以去参改一些书，那样，学ASP会更快一些
就这些了，其它的你要是不明白，我们再QQ联系，快过年了，在这里一并说下，祝你新年快乐！呵呵~
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))
SourceCode =replace(SourceCode,"http://count.skycn.com/softdown.php?id="&Id&"&url=","")
就是这些了，这里面用到了也就只有三个函数，instr mid replace 在前面都已经有说明了，都是最基本的应用，要是看不明白这里的程序，就先到前面看看，这几个函数的说明，搞明白了，这里的代码也就明白了
这几句代码的作用就是取截取到的一部份的页面信息，删除一个无用的信息
另外这里截取到的页面信息也是为后台的程序用的，比如，取一个软件的名字都是从这里已经截取的信息中再取相应的东西出来，写到数据库中的
当然，如果你的电脑上已经有IIS的话，就可以打程序COPY过去就可以看到效果了
从softwrite.asp里的131行开始才是真正截取软件相关的一些信息的，如果要改成截取其它的内容，这里当然也要相应的做改动
dim SoftName,SoftSize,SoftLan
''''上面的这句是定义一些变量，方便调用
SoftName=GetSourceCode(SourceCode,"<b><font color=''#004FC6'' size=''3''>","</font></b></td></tr>","<b><font color=''#004FC6'' size=''3''>")
''''这句就是截取软件名称的，用到的就是 GetSourceCode()这个过程，前面已经有说明的，不明白的再看前面的说明
...
从131行到159行，都是截取软件相关信息的，都是只用到 GetSourceCode()这个过程
最后，所有的软件信息都截取了，存入相应的变量中，剩下的就是写入数据库的部份了，如果说你的应用都只是盗取人家的下载站的软件信息到惊云中，后面的部份就不用更改了，就可以用，当然这里要说明的是，所有前面定义的变量不能更改为别的，要是改了，后面部分的也要相应更改，要不会出错的
关于写入数据库的部份，内容太多我一下子也说不清楚，在最前面我已经简单的说明了一下，你可以去参改一些书，那样，学ASP会更快一些
就这些了，其它的你要是不明白，我们再QQ联系，快过年了，在这里一并说下，祝你新年快乐！呵呵~