http://Jorkin.ME/ zh-cn PBlog2 v2.4 http://Jorkin.ME/images/logos.gif http://Jorkin.ME/ Jorkin.ME - 蜗居，我们离“家”越来越远。 http://Jorkin.ME/article.asp?id=653 Jorkin2000(AT)hotmail.com(Jorkin) Fri,11 Dec 2009 16:02:43 +0800 http://Jorkin.ME/default.asp?id=653 <%
'功能:真正实现ACCESS随机选取记录功能
'来源:http://jorkin.reallydo.com/article.asp?id=653

Function NewID(PKey)
    'NewID = " Sin(" & Timer & "*" & PKey & ") "
    NewID = " Rnd(-" & Timer & "*" & PKey & ") "
End Function
%>

]]> http://Jorkin.ME/article.asp?id=631 Jorkin2000(AT)hotmail.com(Jorkin) Mon,01 Jun 2009 18:07:42 +0800 http://Jorkin.ME/default.asp?id=631 Array.prototype.remove = function(b) {
    var a = this.indexOf(b);
    if (a >= 0) {
        this.splice(a, 1);
        return true;
    }
    return false;
};
]]> http://Jorkin.ME/article.asp?id=627 Jorkin2000(AT)hotmail.com(Jorkin) Tue,19 May 2009 21:20:49 +0800 http://Jorkin.ME/default.asp?id=627 function dbc2sbc(sStr){
    var dbc2sbc = sStr;
    for (var i = 65281; i < 65375; i++) {
        var re = new RegExp(String.fromCharCode(i), "g");
        var va = String.fromCharCode(i - 65248);
        dbc2sbc = dbc2sbc.replace(re, va);
    }
    dbc2sbc = dbc2sbc.replace(/　/g, ' ');
    return dbc2sbc;
}

]]> http://Jorkin.ME/article.asp?id=626 Jorkin2000(AT)hotmail.com(Jorkin) Mon,18 May 2009 21:15:36 +0800 http://Jorkin.ME/default.asp?id=626 function sbc2dbc(sStr){
    var sbc2dbc = sStr;
    for (var i = 33; i < 127; i++) {
        stringFromCharCode = String.fromCharCode(i);
        switch (stringFromCharCode) {
            case "(":
            case ")":
            case "*":
            case "+":
            case "/":
            case "\\":
            case "[":
            case "]":
            case "?":
            case "$":
            case ".":
            case "^":
            case "|":
                stringFromCharCode = '\\' + stringFromCharCode;
            default:
                break;
        }
        var re = new RegExp(stringFromCharCode, "g");
        var va = String.fromCharCode(i + 65248);
        sbc2dbc = sbc2dbc.replace(re, va);
    }
    sbc2dbc = sbc2dbc.replace(/ /g, '　');
    return sbc2dbc;
}

]]> http://Jorkin.ME/article.asp?id=625 Jorkin2000(AT)hotmail.com(Jorkin) Sun,17 May 2009 00:11:39 +0800 http://Jorkin.ME/default.asp?id=625 <%
'功能:取得文件扩展名
'来源:http://jorkin.reallydo.com/article.asp?id=625

Function getFileExt(sFileName)
    getFileExt = Mid(sFileName, InstrRev(sFileName, ".") + 1)
End Function
%>

]]> http://Jorkin.ME/article.asp?id=624 Jorkin2000(AT)hotmail.com(Jorkin) Sat,16 May 2009 23:57:54 +0800 http://Jorkin.ME/default.asp?id=624 <%
'功能:信用卡验证Luhn算法
'来源:http://jorkin.reallydo.com/article.asp?id=624

Function Luhn(byVal sCard)
    Dim iSum, iCard, bBool
    sCard = CStr(sCard)
    iSum = 0
    bBool = CBool(Len(sCard) Mod 2)
    If Not IsNumeric(sCard) Then
        Dim regEx
        Set regEx = New RegExp
        regEx.Global = true
        regEx.Pattern = "\D"
        sCard = regEx.Replace(sCard, "")
        Set regEx = Nothing
    End If
    For i = 1 To Len(sCard)
        iCard = CInt(Mid(sCard, i, 1))
        If bBool Then
            iSum = iSum + iCard
        Else
            If iCard * 2 > 9 Then
                iSum = iSum + (iCard * 2 - 9)
            Else
                iSum = iSum + (iCard * 2)
            End If
        End If
        bBool = Not bBool
    Next
    If iSum Mod 10 = 0 Then
        Luhn = True
    Else
        Luhn = False
    End If
End Function
%>

]]> http://Jorkin.ME/article.asp?id=623 Jorkin2000(AT)hotmail.com(Jorkin) Fri,15 May 2009 23:02:21 +0800 http://Jorkin.ME/default.asp?id=623 <%
'功能:返回指定数组的维数。
'来源:http://jorkin.reallydo.com/article.asp?id=623

Function getArrayDimension(aReallydo)
    On Error Resume Next
    getArrayDimension = -1
    If Not IsArray(aReallydo) Then
        Exit Function
    Else
        For i = 1 To 60
            iReallyDo = UBound(aReallydo, i)
            If Err Then
                Err.Clear
                Exit Function
            Else
                getArrayDimension = i
            End If
        Next
    End If
End Function
%>

]]> http://Jorkin.ME/article.asp?id=618 Jorkin2000(AT)hotmail.com(Jorkin) Mon,11 May 2009 23:58:38 +0800 http://Jorkin.ME/default.asp?id=618 Create Or Replace Function IsNumeric(Svalue In Varchar2) Return Number As
    Ivalue Numeric;
Begin
    Begin
        Ivalue := To_Number(Svalue);
        Return(1);
    Exception
        When Others Then
            Return(0);
    End;
End IsNumeric;

]]> http://Jorkin.ME/article.asp?id=616 Jorkin2000(AT)hotmail.com(Jorkin) Sun,10 May 2009 20:23:50 +0800 http://Jorkin.ME/default.asp?id=616 <%
'功能:获取远程文件大小
'来源:http://jorkin.reallydo.com/article.asp?id=616

Function getRemoteFileSize(sFileUrl)
    Dim oXMLHttp
    Set oXMLHttp = Server.CreateObject("MSXML2.XMLHTTP")
    With oXMLHttp
        .Open "get", sFileUrl, false
        .setRequestHeader "range", "bytes=-1"
        .send()
        getRemoteFileSize = Split(.GetResponseHeader("Content-Range"), "/")(1)
    End With
    Set oXMLHttp = Nothing
End Function
%>

]]> http://Jorkin.ME/article.asp?id=615 Jorkin2000(AT)hotmail.com(Jorkin) Sat,09 May 2009 19:49:55 +0800 http://Jorkin.ME/default.asp?id=615 <%
'功能:判断是否是闰年
'来源:http://jorkin.reallydo.com/article.asp?id=615

Function isLeapYear(sYear)
    isLeapYear = False
    If sYear Mod 4 = 0 And (sYear Mod 100 <> 0 Or (sYear Mod 100 = 0 And sYear Mod 400 = 0)) Then isLeapYear = True
End Function
%>

]]>