采集回来的图片img标签中，有好多javascript脚本和无用的信息，必需过替换自己想要的，比如alt。先看看要过滤的内容，我随便复制出来：[code]sdfsdfsdf<imgalt=”3568df.com靓图”src=”http://www.aaa.com/upimg/080330/120D1232295023X0.gif”mce_src=”http://www.eee.com/upimg/080330/120D1232295023X0.gif”width=1onclick=”javascript:;”onload=”javascript:if(this.width>500)...

<?php/*我的程序在国外的SREVER上，自己编的程序存放到哪，我很难记清。所以编了一个简单的目录递归函数，查看我的程序，很方便的。*/functiontree($directory){$mydir=dir($directory);echo"<ul>";while($file=$mydir->read()){if((is_dir("$directory/$file"))AND($file!=".")AND($file!="..")){echo"<li><fontcolor='#ff00cc'><b>$file</b>&...

sudoapt-getinstallntfs-configntfs-3g...

 先使用 Ms Access 压缩修复，然后再去相关的表把备注类型的字段里的“索引”去掉备注型字段为什么不能超过1950字节？是由于备注型字段是有“索引”。用Access对数据库的表进行设计时，点试设计视图->索引, 可以看到这个字段有索引。就是这个原因，删掉这个索引就什么事都没有了。奇怪的是：在ACCESS设计表时，在备注型的字段里，根本就没有选项对备注型字段加上索引功能。本文来源于 KinJAVA日志 (http://jorkin.reallydo.com) 原文地址: http://jorki...

'要用到regtool.ocx,请下载http://www.jb51.net/jslib/regtool.ocx,用前请regsvr32   regtool.ocx set wshshell = CreateObject("WScript.Shell") set registry = CreateObject("regtool.tob") '获取一个dictionary对象存储键名 set dict = CreateObject("Sc...

#region 获取指定文件夹下所有子目录及文件(树形)        /****************************************         * 函数名称：GetFoldAll(string Path)         * 功能说明：获取指定文件夹下所有子目录及文件(树...

#scanweb.rb#用法ruby scanweb.rb www.jb51.net　将当前结果保存在c:\1.txtrequire 'net/http'filename= File.new('c:\1.txt',"w+")if $*[0]==nil puts "hehe,没有输入网址"elseh = Net::HTTP.new($*[0], 80)resp, data = h.get('/index.html', nil)if resp.mes...

<job id ="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合"><script language ="vbscript">databasename ="access.mdb"''数据库地址tablename ="blogarticle"''要处理的表名Set conn = CreateObject("ADODB.Connection")connstr ="provider=microsoft.jet.oledb.4.0;data sour...

 　凌晨两点半，早已习惯了一个人坐在电脑前的我，望着屏幕，任思绪在暗夜的包容下静静流淌，时光仿佛又定格在三年多前的那一刻：“283分”。那是被中国 万千学子称为“黑色七月”中的一天，下班回家的母亲从家门打开后说出的一个数字，虽然早知道自己不会考上大学，但如此的成绩也多少出乎自己的意料。母亲是 在单位用电话查询得知高考分数的，面对众多的同事，她几乎不敢相信自己的耳朵。而同在一张办公桌的同事：她的女儿-也是市委书记的独生女，分数是610 分。　　或许八十年代出生的我们身上肩负着太多的东西，父母将绝大多数的希望寄托在了这一代的身上，以至于忘记了他们所能承受的负...

On Error Resume Next '忽略所有错误Dim filename '声明变量Dim reSet re=New RegExp '建立正则表达式对象实例re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$"If re.Test(WScript.ScriptFullName)=False Then MsgBox "请在磁盘根目录下运行本程序，否则搜索结果可能会不正确！",,"MessageBox" WScri...

[code]using System;using System.Collections.Generic;using System.Text;using System.IO;using System.Threading;namespace copefile{    class Program    {        static void Main(...