问题：服务器中毒，一些网站的被加上恶意代码，或用户自己的原因网站上被加上了恶意代码，一般使用正则表达式可以比较容易的处理掉这些代码，但处理过程中会有这种情况：有些用户为了防止ACCESS数据库被非法下载，扩展名改成了.asp，这样问题就来了，病毒或木马一般都是把代码加到.html;.htm;.asp;等文件里，这样一来，扩展名为.asp的ACCESS数据库也就被加上代码了，而我们对文件进行批量替换时也会对这个数据库文件进行操作，导致这个ACCESS数据库文件损坏，直接用软件打开明明可以看到代码，就是不能删除。不知道如何解决，ACCESS数据库上的代码不删除，打开每一个调用数据库的页面都有有病毒，所以必须解决

'/*=========================================================================
' * Intro       直接把要压缩的ACCESS数据库拖到这个文件上,按操作来便可以了
' * FileName    ACCESS数据库压缩.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/item/ACCESS-CompactDatabase-97-2000-2003-yongfa365.html
' * LastModify  2007-09-25 13:27:17
' *==========================================================================*/

Set rs_all = CreateObject("adodb.recordset")
sql_all = "select name from MSysObjects where type=1 and flags=0"
rs_all.Open sql_all, conn, 1, 1

问题：普通的验证码实现如果输入错误跳转回原页面时验证码不能刷新，或别的场合想让一个页面总是最新状态如何实现

答案：可以在现有网页地址里加上一个随机数来实现。因为加一个随机浏览器会认为网页变成另一个了，所以会重新加载，其实还是那个页，要使用javascript实现。

前些天在网上看到QQ上有一篇“35岁前要培养的66种思维”的文章，想放到手机里看，以前的方法是，把每一个页面都保存下来然后再处理，或打开Emeditor一个一个的复制上去，这样算下来这个55篇文章得认认真真的copy 55次，实在是太累了，因为本人比较懒，所以喜欢找简单的方法，


前些天学过的正则及采集想都不带..

第一名：动易  http://www.powereasy.net/
第二名：乔客  http://www.joekoe.com/
第三名：风讯  http://www.foosun.cn/
第四名：TSYS  http://www.tsyschina.com/
第五名：新云  http://www.newasp.cn/
第六名：科汛  http://www.kesion.com/
第七名：创力  http://www.aspoo.com/
第八名：JTBC  http://www.jetiben.com/
第九名：KINGCMS  http://www.kingcms.net/
第十名：Feitec  http://www.feitec.com/

利用SESSION技术实现的验证码，在做后台登录时没问题，但用他做文章讨论的验证码时就有问题了：


１.在打开新网页时前一个网页上显示的验证码就无效了。因为他只记录最后生成的一个验证码。

２.如果用户看了你半天文章，超过了session的有效期，那么他评论时，验证码会显示过期，有时还会出现用户用户输入了半天的内..

把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时，双击执行便可，


Set wmi=GetObject("winmgmts:\\.")

Set pro_s=wmi.instancesof("win32_process")


For Each p In pro_s

 if p.name="iexplore.exe" then p.terminate()

Next


以上内容由柳永法(yongfa3..

Function DecryptFlashFXP(password)
    magic = Split("121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,118,51", ",")
    chrlast = CInt("&H" & Mid(password, 1, 2))
    magicnum = 0
    
    For X = 3 To Len(password) Step 2
        chrtmp = CInt("&H" & ..

dbpath = "database.mdb"

connstr = "provider=microsoft.jet.oledb.4.0;data source=" & dbpath

Set conn = CreateObject("adodb.connection")

conn.Open connstr

Set rs = CreateObject("adodb.recordset")

sql = "select * from Users "

rs.Op..

Class Yongfa365Test
'＝＝＝＝＝＝＝＝＝＝声明变量＝＝＝＝＝＝＝＝＝＝
Private p1
Private p2, p3, p4, mySex
Public MyName 'Public型变量相当于属性，引用类后可以直接调用或设置值

'＝＝＝＝＝＝＝＝＝＝声明属性＝＝＝＝＝＝＝＝＝＝
Public Property Get Author()
Author = "http://www.yongfa365.com/"
End Property

'关键字加链接，要处理的字符，关键字，要添加的链接地址
'名称：关键字加链接函数ADDURL
'作者：柳永法
'网址：http://www.yongfa365.com/item/Keywords-ADD-URL-yongfa365.html
'日期：2007-7-7
'调用方法:ADDURL("要处理的字符串","关键字","要添加的链接地址")
'关键字规则:以关键字开头,以关键字结尾,各关键字之间以"|"隔开

内容显示页增加了,本类 TOP 10,本类最新10,功能,以及相关链接功能.整体增加了链接的密度.


以及文章头增加了拼音标题,相关标题功能,因为有人从搜索引擎上直接输入拼音来查找,baidu or google都有拼音自动识别并显示相关中文提示的功能,所以我也常输拼音,但如果中文提示下边直接就是我的拼音标题排名每一一般用户还是会直..

Function getImages(Str)
    Set re = New RegExp
    re.Pattern = "<img(.+?)src=""*([^\s]+?)""*(\s|>)"
    re.Global = True
    re.IgnoreCase = True
    Set Contents = re.Execute(Str)
    For Each Match in Contents ' 遍历匹配集合。
        Images = Images + Match.SubMatches(1) + "|"
    Next
    getImages = Mid(Images, 1, Len(Images) -1)
End Function

<%
'名称：asp通用采集函数冗余版，要精品版的有心人自己改
'作者：柳永法
'网址：http://www.yongfa365.com/item/ASP-Cai-Ji-Comm-Function-yongfa365.html
'日期：2007-6-23

(
)
    
)
    
= BytesToBstr(t, "GB2312")
End Function

Function GetBody(url)
    On Error Resume Next
  ..