关于本站标明 [原创] 的文章转载方式本站解压密码为 reallydo.com

<%
'功能:返回 Boolean 值指明表达式的值是否为字母。
'来源:http://jorkin.reallydo.com/article.asp?id=525

Private Function IsAlpha(byVal sString)
    Dim regExp, oMatch, i, sStr
    For i = 1 To Len( sString )
        sStr = Mid(sString, i, 1)
        Set regExp = New RegExp
        regExp.Global = True
        regExp.IgnoreCase = True
        regExp.Pattern = "[A-Z]|[a-z]|\s|[_]"
        Set oMatch = regExp.Execute(sStr)
        If oMatch.Count = 0 Then
            IsAlpha = False
            Exit Function
        End If
        Set regExp = Nothing
    Next
    IsAlpha = True
End Function
%>

Tags: ASP 常用函数 IsAlpha

分类:敝帚自珍 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 24

雨下的好大

作者:Jorkin 日期:2008-06-27

在伞底下也能湿透.什么破天儿呀.

见没见过一个人骗父母的钱去养一个婊子?还和朋友反目?

分类:胡诌乱侃 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 21

ASP常用函数:LoadFromFile()

作者:Jorkin 日期:2008-06-14

<%
'功能:获取文件数据流
'来源:http://jorkin.reallydo.com/article.asp?id=523

Function LoadFromFile(sFileName, sCharSet)
    On Error Resume Next
    Dim oStream
    Set oStream = Server.CreateObject("ADODB.Stream")
    oStream.Type = 2
    oStream.Mode = 3
    oStream.Open
    oStream.Charset = sCharSet
    oStream.Position = oStream.Size
    oStream.LoadFromFile sFileName
    LoadFromFile = oStream.ReadText
    oStream.Close
    Set oStream = Nothing
    Err.Clear
End Function
%>

Tags: ASP 常用函数 LoadFromFile

分类:敝帚自珍 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 51

[转]项目经理---你够专业吗？！

作者:Jorkin 日期:2008-06-13

　　项目经理这个名堂是愈来愈响了，早前完成一班项目管理的课程，老仙深信又将会有二十多位专业人仕短期内可考取到PMP认证(按：有老仙这么厉害的师父嘛！)。尽管学员大多是来自跨国集团的专业经理，但是由于国籍与经验不同，他们对项目经理的职能以至处事方式明显有着不一样的理解，席间有两个有趣的问题老仙很想和大家分享。

　　如果你发现公司内别的项目小组成员正使用一盗版软件，而这软件刚好也是你的项目项目所需要使用的，你会：

　　1.向该同事要一套软件

　　2.要求该同事停止使用盗版软件

温馨提示：你现在看到的是首页文章提要，点这里[查看完整的内容]...

Tags: 项目经理

分类:其它转载 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 56

ASP常用函数:HTMLFilter()

作者:Jorkin 日期:2008-06-12

<%
'过滤HTML各种标签样式脚本
'来源:http://jorkin.reallydo.com/article.asp?id=521
'需要RegReplace函数: http://jorkin.reallydo.com/article.asp?id=345

Function HTMLFilter(sHTML, sFilters)
    If sHTML & "" = "" Then Exit Function
    If sFilters & "" = "" Then sFilters = "SCRIPT,OBJECT"
    aFilters = Split(UCase(sFilters), ",")
    For i = 0 To UBound(aFilters)
        Response.Write(vbCrLf & Server.HTMLEncode(sHTML) & "<hr />" & vbCrLf)
        Select Case UCase(Trim(aFilters(i)))
            Case "JORKIN"
                Do While InStr(sHTML, "     ") >0
                    sHTML = Replace(sHTML, "     ", "    ")
                Loop
            Case "SCRIPT"
                '// 去除脚本<script></script>及 onload 等
                sHTML = RegReplace(sHTML, "<SCRIPT[\s\S]*?</SCRIPT>", "")
                sHTML = RegReplace(sHTML, "\s[on].+?=\s+?([\""|\'])(.*?)\1", "")
                sHTML = RegReplace(sHTML, "(JAVASCRIPT|JSCRIPT|VBSCRIPT|VBS):", "$1：")
            Case "FIXIMG"
                sHTML = RegReplace(sHTML, "<IMG.*?\sSRC=([^\""\'\s][^\""\'\s>]*).*?>", "<img src=$2 border=0>")
                sHTML = RegReplace(sHTML, "<IMG.*SRC=([\""\']?)(.\1\S+).*?>", "<img src=$2 border=0>")
            Case "TABLE"
                '// 去除表格<table><tr><td><th>
                sHTML = RegReplace(sHTML, "</?TABLE[^>]*>", "")
                sHTML = RegReplace(sHTML, "</?TBODY[^>]*>", "")
                sHTML = RegReplace(sHTML, "<(/?)TR[^>]*>", "<$1p>")
                sHTML = RegReplace(sHTML, "</?TH[^>]*>", " ")
                sHTML = RegReplace(sHTML, "</?TD[^>]*>", " ")
            Case "CLASS"
                '// 去除样式类class=""
                sHTML = RegReplace(sHTML, "(<[^>]+) CLASS=[^ |^>]+([^>]*>)", "$1 $2")
                sHTML = RegReplace(sHTML, "\sCLASS\s*?=\s*?([\""|\'])(.*?)\1", "")
            Case "STYLE"
                '// 去除样式style=""
                sHTML = RegReplace(sHTML, "<STYLE[\s\S]*?</STYLE>", "")
                sHTML = RegReplace(sHTML, "(<[^>]+)STYLE=\""[^\""]*\""([^>]*>)", "$1 $2")
            Case "XML"
                '// 去除XML<?xml>
                sHTML = RegReplace(sHTML, "<\\?XML[^>]*>", "")
            Case "NAMESPACE"
                '// 去除命名空间<o:p></o:p>
                sHTML = RegReplace(sHTML, "<\/?[a-z]+:[^>]*>", "")
            Case "FONT"
                '// 去除字体<font></font>
                sHTML = RegReplace(sHTML, "</?FONT[^>]*>", "")
            Case "MARQUEE"
                '// 去除字幕<marquee></marquee>
                sHTML = RegReplace(sHTML, "</?MARQUEE[^>]*>", "")
            Case "OBJECT"
                '// 去除对象<object><param><embed></object>
                sHTML = RegReplace(sHTML, "</?OBJECT[^>]*>", "")
                sHTML = RegReplace(sHTML, "</?PARAM[^>]*>", "")
                sHTML = RegReplace(sHTML, "</?EMBED[^>]*>", "")
            Case "COMMENT"
                '// 去除HTML注释, 会处理<script>和<style>内注释, 慎用
                sHTML = RegReplace(sHTML, "", "")
            Case Else
                '// 去除其它标签
                sHTML = RegReplace(sHTML, "</?" & aFilters(i) & "[^>]*?>", "")
        End Select
    Next
    HTMLFilter = sHTML
End Function
%>