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

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

'关键字加链接，要处理的字符，关键字，要添加的链接地址
'名称：关键字加链接函数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
  ..

'名称：多个空格替换成一个及其扩展函数
'作者：柳永法
'网址：http://www.yongfa365.com/item/too-space-to-one-space.html
'日期：2007-6-18



Function delspace(Str)
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = " +"
    delspace = re.Replace(Str, " ") ..

以前做网站很多都是放一个文件夹下，因为网站多呀，再者经常从网上下载源码，所以网站更多，


当时看到很多网站都使用绝对路径，感觉很是不爽，为什么不使用相对路径呢，让人下载了不管在什么地方都可以直接用，


现在终于明白了，这样设计让网站处理起来更容易了，


以前以为只有SQL数据库只用一个数据库连接文..

'/*=========================================================================
' * Intro       iis日志搜索引擎相关访问次数统计vbs版,把这个文件存为：iislogAnalyzer.vbs,然后直接运行输入日志目录或把要统计的日志拖到这个文件上，程序会自动处理，日志比较大时处理会比较慢
' * FileName    iislogAnalyzer.vbs
' * Author      yongfa365
' * Version     v2.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/iis-log-Analyzer-vbs.html
' * CreateTime  2007-6-18 12:53:12
' * LastModify  2007-12-12 12:53:12
' *==========================================================================*/

Function URLEncode(strURL)
    Dim I
    Dim tempStr
    For I = 1 To Len(strURL)
        If Asc(Mid(strURL, I, 1)) < 0 Then
            tempStr =
 Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)
            tempStr =
 Left
 tempStr
            URLEncode =
 tempStr
        ElseIf (Asc(Mid..