小偷程序讲解
来源：
互联网
日期：2008-7-26
|
| |
|
|
| |
我们针对各种网店的需求，提供具有专业针对性的智能网店。集易用性和强大功能为一体，支持静态HTML生成和搜索优化、个性化模版定制、强大的网店管理系统和各种专业网店功能...点此申请
|
|
| |
|
|
| |
智能建站已经成为企业网站建设的主要方式，建立个性化企业网站是企业品牌形象的体现；具有强大灵活的网站功能、HTML生成、搜索引擎优化，现有简体、繁体、英文、日文等多国语言可选用。赶快申请，立即拥有个性化企业网站... |
|
| |
|
|
| |
三语易站是国内受众最广泛的傻瓜式自助建站系统。只要会打字就可以建站，支持简繁英三语，简繁自动转换；具有单页、文章、图文、下载等网站内容管理功能，自定义栏目内容设置，管理系统简单易用，适合企业个人自助创建和管理网站...点此申请
|
|
|
|
|
二、几个常用的函数
（一）InStr 函数
描述
返回某字符（string2）串在另一字符串（string1）中第一次出现的位置。
语法
InStr(string1, string2)
例如：
Dim SearchString, SearchChar
SearchString ="http://blue1000.com"' 要在其中搜索的字符串。
SearchChar = "blue1000" ' 搜索 "blue1000"。
MyBK = Instr(SearchString, SearchChar) ' 返回 8
'如果找不到则返回“0”，例如：
SearchChar = "BK"
MyBK = Instr(SearchString, SearchChar) ' 返回 0
（二）Mid 函数
描述
从字符串中返回指定数目的字符。
语法
Mid(string, start, over)
例如：
Dim MyBK
MyBK = Mid("我们的BK(blue1000.com)设计", 7, 12) '截取字符串"我们的BK(blue1000.com)设计"第7个字符以后的12个字符
'此时MyBK的值就变成了"blue1000.com"
（三）Replace 函数（这个我就不细说了，只举个例子）
Dim SearchString, SearchChar
SearchString ="我们的BK设计是一个网站建设资源网站" ' 要在其中搜索的字符串。
SearchString =Replace(SearchString,"BK设计","Blue1000.Com")
'此时SearchString的值就变成了"我们的Blue1000.Com是一个网站建设资源网站"
上面的内容只说了如何获取整个页面的html的代码和几个常用的函数，那么如何获取指定部分的代码呢？如何删除我不需要的内容呢？如何才能将外站的链接改成我的呢？又如何实现把原来的翻页做成我的呢？
详情请看下节，小偷程序精华所在：
精品网站程序下载(草根站长最爱)
QQ2013,QQ2012临时会话插件(全国首发)
711旅游网站管理系统V2013（无功能限制）
711幻灯片管理系统（全国首发） 各类网站程序下载
711企业网站管理系统V2013个人版（无功能限制）
711免费在线客服系统个人版 V2.0
电影小偷采集程序V2013免费下载 点此查看
更多的小偷程序讲解请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源：
互联网
日期：2008-7-26
|
|
|
设为首页 | 
加入收藏
