'名称：多个空格替换成一个及其扩展函数
'作者：柳永法
'网址：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..

AspAjaxChat,ASP AJAX 聊天室,简单功能实现

<%

)
    Dim fs, Folder, File, Item, url
    Set 
)
    
)
    'Display the target folder and info.
    
.
Folder.
"</b> - " 
Folder.
" files, ")
    If Folder.SubFolders.Count > 0 Then
        
.
" directories, ")
    End If
    
.
&q..

原来如此简单，就几句话，是个人都会写的


Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")

xmlHTTP.Open "Get", "http://www.yongfa365.com/ajax_cat.asp", True, "", ""

xmlHTTP.Send


这句就是让其异步实现后台的一系列批处理操作，


不过很不厚..

<!--
body { color: #000000; background-color: #FFFFFF; }
.html1-asp { color: #8000FF; }
.html1-comment { color: #008000; }
.html1-escapeampersand { color: #006699; }
.html1-identifier { color: #800000; }
.html1-php { color: #0050C0; }
.html1-reservedword { color: #0000FF; }
.html1-symbol { c..

<!--
body { color: #000000; background-color: #FFFFFF; }
.html1-asp { color: #8000FF; }
.html1-comment { color: #008000; }
.html1-escapeampersand { color: #006699; }
.html1-identifier { color: #800000; }
.html1-php { color: #0050C0; }
.html1-reservedword { color: #0000FF; }
.html1-symbol { c..

'把所有日文删除

'柳永法修正版


Function filteJapanese(sStr)

    Dim oRegExp

    Set oRegExp = New RegExp

    oRegExp.Global = True

    oRegExp.Pattern = "[\u3040-\u309F\u30A0-\u30FF]"

    filte..

今天早上好郁闷呀，数据库被我无情的覆盖了，一定要加个数据库备份

已经范过很多类似的错误了，在累的时候，或加班时，或加班后，不要进行较大的操作，但很多时候自己并不觉得累了，但是是真的累了，如果是改网站上内容的话最好是先在本地测试好了，然后改天清醒了再传上去，或每天自动备份几次数据库，

以前给别人做网站时真体会不到这个，只有自己亲身实践了才知道那么多的提示是没用的，那么多的提示是有用的。

计划晚上加上一个数据库备份功能。

Response.Flush()。他会将缓冲区中编译完成的数据先发送到客户端
但是
flush的内容至少要有256字节。也就是只有编译产生了至少256字节的数据，才能在执行Response.Flush()以后将信息发到客户端并显示。 

共两个文件，一个打包程序：Pack.asp,一个安装文件：Install.asp

 

目录

    技巧 1：将经常使用的数据缓存在 Web 服务器上
    技巧 2：将经常使用的数据缓存在 Application 或 Session 对象中
    技巧 3：将数据和 HTML 缓存在 Web 服务器的磁盘上 
    技巧 4：避免将非敏捷的组件缓存在 Application 或 Session 对象中
    技巧 5：不要将数据库连接缓存在 Applicatio..

函数 语法 功能 

Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 

Trim Trim(string) 将字符串前后的空格去掉 

Ltrim Ltrim(string) 将字符串前面的空格去掉 

Rtrim Rtrim(string) 将字符串后面的空格去掉 

函数 语法 功能 

Len Len(string|varname) 返回字符串内字符的..