手把手学做小偷第一步：
首先知道做小偷要用到几个的FUNCTION

引用:

如:
                 Function getHTTPPage(url)
                           dim http
                            set http=Server.createobject("Microsoft.XMLHTTP")
                Http.open "GET",url,false
                Http.send()
                if Http.readystate<>4 then
                   exit function
                end if
                getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
                set http=nothing
                if err.number<>0 then err.Clear  
        End function
               
        Function BytesToBstr(body,Cset)
                dim objstream
                set objstream = Server.CreateObject("adodb.stream")
                objstream.Type = 1
                objstream.Mode =3
                objstream.Open
                objstream.Write body
                objstream.Position = 0
                objstream.Type = 2
                objstream.Charset = Cset
                BytesToBstr = objstream.ReadText
                objstream.Close
                set objstream = nothing
        End Function

一般都放在function.asp文件里

之后就是怎样去调用

引用:

如:
要偷的地址为:http://yf13.com/pic/Index.html
第一步取得该页的HTML  
url="http://yf13.com/pic/Index.html"
page=getHTTPPage(url)

第二步 截取(可以用instr来截取)
另外也可以用这个
function cutstr(page,starstr,endstr)
   strr1=split(page,starstr)
   strr2=split(strr1(1),endstr)
   cutstr=strr2(0)
end function

第三步 替换删除(也就是把别人的替换成自己的,删除无用的,一般用到replace)

第四步 加头加尾(尽量使用HTML代码完整,显示正确)

手把手学做小偷(2) 例子说明

要偷的网站:http://www.jytz.com.cn/joke/class.asp?sort=恐怖故事
这个分类简单

引用:

1.偷取分类页(共有7页) 文件名名为type.asp

dim id,url,page,str1,str2,cur1,cur2,str2_1,pid,tname
page=trim(request("page"))                    ''''获取页数
if page="" or not isnumeric(page) then         ''''判断页数的正确性
  page=1
end if

url="http://www.jytz.com.cn/joke/class.asp?sort=恐怖故事&page="&page  '要偷取的地址

page= getHTTPPage(url)         ''''''获取HTML

str1=instr(1,page,"笑话首页")               '''设置截取内容的开始位置
str2=instr(str1+10,page,"nav_bottom")         '''设置截取内容的结束位置

if str1<=0 or str2<=0 or str2-str1<=0 then                   '''判断截取内容的有效性      
  response.write"出错"
  response.end
end if
page=mid(page,str1,str2-str1)         '''开始设置截取内容            

''''下一步 替换删除
change "按更新日期浏览",""
change "按总点击量浏览","<A href=http://joke.topmao.com/jokepic/><FONT color=#cc0000>搞笑图片</FONT></A>"
change "按今日点击浏览","<a href='http://joke.topmao.com'>返回TOP猫爆笑</a>"
change "class.asp","type.asp"
change "height=""30""","height=0 style='display:none'"

''''''以下是使HTML正确显示
cur1="<TABLE WIDTH=780 BORDER=0 align=center CELLPADDING=0 CELLSPACING=0 background=images/bg_jnav.gif

style='display:none'>"&_
     "<TR ALIGN=center STYLE=cursor:hand;>"&_
     "<TD HEIGHT=25><A HREF=index.asp><B><font color=#333333>"
cur2="""></table>"   

page=cur1&page&cur2

'''''''最后是输出
response.write page

programz 00:31:54
手把手学做小偷(3) 做小偷一般用到正则表达式

引用:

function obRegExp(str,page)          ''''创建一个自定义函数用于正则表达式
   Set objRegExp = New Regexp     ''''先建立一个正则表达式对象
   objRegExp.IgnoreCase = True
   objRegExp.Global = True
   objRegExp.Pattern = str
   strs=trim(page)
   Set Matches =objRegExp.Execute(strs)
   For Each Match in Matches
       RetStr = RetStr&"|"&Match.Value
   Next
   obRegExp=RetStr  
end function

url="http://www.***.com"
str="films\/pics+?(.jpg|.bmp|.gif|.png)"    '''''建立一个匹配
page=getHTTPPage(url)
Regstr=obRegExp(str,page)    '''''开始匹配

response.write Regstr        '''''输出结果

[glow=255,blue,2]下次请加上引用括号  容易会员学习

                             by---------碧水无波[/glow]

[ 本帖最后由 碧水无波 于 2006-4-5 13:34 编辑 ]

来学习一下，看能不能成为一个成功的小偷。

楼主的要求好想高了点呢~~我很想学习啊！

楼主的要求好想高了点呢~~我很想学习啊！ [/quote]

引用:

原帖由 qqpp 于 2006-3-25 21:23 发表
楼主的要求好想高了点呢~~我很想学习啊！

要求太高了，而且根本不知是学什么的！~~

哭了！

偶权限不够不能查看！

   唉！！！！

呵呵，我够了，我去试试可以偷到不

晕，看不了··········

我晕
我想学，可是~~~~~~~~~~~~~~~~~

搞什么嘛。。。。要求那么高。。。