[Code]
<%
'---------------------------------  Author  information  -------------------------------------------------------------
'File                        :                Function.asp
'Version                :                0.10.20060404b
'Revision                :                2006-4-4        14:08:14
'Author                :                Atwind(Atwind.Max    or      一线风)
'Content                :                Email:Itwind@163.com      BLoghttp://max.69sea.com      QQ:478779122       
'Company        :                Web: Http://www.cmfu.com          Tel:50504740-5060
'-----------------------------------------------------------------------------------------------------------------
'----有返回函数的类型的相关函数集合
'
''~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

        '''----------------------------------------------------------------↓转换字符串为数字，无法转换时结果为0
        Public  Function  GetNum(iStr)               
                Dim  s
                s=Trim(""&iStr)       
                If  IsNumeric(s)  Then  GetNum=Clng(s)  Else  GetNum=0  End  If
        End  Function

        '''----------------------------------------------------------------↓过虑用户提交的Get类型字符串
        Public  Function  GetStr(Str)                               
                If  Isnull(Str)  Then
                        GetStr  =  ""
                        Exit  Function 
                End  If
                Str  =  Replace(Str,Chr(0),"")
                GetStr  =  Replace(Str,"'","''")
        End  Function

        '''----------------------------------------------------------------↓  获得用户IP       
        Public          Function  GetIp()                                       
                dim  vip
                vip=Request.ServerVariables("http_x_forwarded_for")
                if  vip=""  or  Isnull(vip)  then        vip=Request.ServerVariables("remote_addr")
                GetIp=vip
        End  Function

        '''----------------------------------------------------------------↓过滤26个引起搜索溢出的日文片假名
        Public  Function  EncodeJP(StrHTML)
                If  StrHTML<>""  Then
                        StrHTML=Trim(StrHTML)
                        StrHTML=Replace(StrHTML,"ガ","&#12460;")
                        StrHTML=Replace(StrHTML,"ギ","&#12462;")
                        StrHTML=Replace(StrHTML,"グ","&#12450;")
                        StrHTML=Replace(StrHTML,"ゲ","&#12466;")
                        StrHTML=Replace(StrHTML,"ゴ","&#12468;")
                        StrHTML=Replace(StrHTML,"ザ","&#12470;")
                        StrHTML=Replace(StrHTML,"ジ","&#12472;")
                        StrHTML=Replace(StrHTML,"ズ","&#12474;")
                        StrHTML=Replace(StrHTML,"ゼ","&#12476;")
                        StrHTML=Replace(StrHTML,"ゾ","&#12478;")
                        StrHTML=Replace(StrHTML,"ダ","&#12480;")
                        StrHTML=Replace(StrHTML,"ヂ","&#12482;")
                        StrHTML=Replace(StrHTML,"ヅ","&#12485;")
                        StrHTML=Replace(StrHTML,"デ","&#12487;")
                        StrHTML=Replace(StrHTML,"ド","&#12489;")
                        StrHTML=Replace(StrHTML,"バ","&#12496;")
                        StrHTML=Replace(StrHTML,"パ","&#12497;")
                        StrHTML=Replace(StrHTML,"ビ","&#12499;")
                        StrHTML=Replace(StrHTML,"ピ","&#12500;")
                        StrHTML=Replace(StrHTML,"ブ","&#12502;")
                        StrHTML=Replace(StrHTML,"ブ","&#12502;")
                        StrHTML=Replace(StrHTML,"プ","&#12503;")
                        StrHTML=Replace(StrHTML,"ベ","&#12505;")
                        StrHTML=Replace(StrHTML,"ペ","&#12506;")
                        StrHTML=Replace(StrHTML,"ボ","&#12508;")
                        StrHTML=Replace(StrHTML,"ポ","&#12509;")
                        StrHTML=Replace(StrHTML,"ヴ","&#12532;")
                End  If
                EncodeJP=StrHTML
        End  Function

        '''----------------------------------------------------------------↓过滤HTML/UBB以纯文本显示，带长度参数
        Public  Function  FormatHTML(HtmCode,HtmLen)
                If  HtmCode<>""  Then
                        Dim  RegX
                        Set  RegX  =  new  RegExp
                        RegX.IgnoreCase  =  True
                        RegX.Global  =  True
                        RegX.Pattern  =  "<(a|select|option|script|style|title)(.*?)>((.|  )*?)</(a|select|option|script|style|title)>"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        RegX.Pattern  =  "&(lt|gt|nbsp|quot|copy);"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        RegX.Pattern  =  "<[^>]*>"
                        HtmCode  =  RegX.Replace(HtmCode,  "")
                        RegX.Pattern  =  "\[(img)(.*?)\]((.|  )*?)\[/(img)\]"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        RegX.Pattern  =  "\[[^\]]*\]"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        HtmCode  =  Replace(HtmCode,Chr(13)&Chr(10),"  ")
                        RegX.Pattern  =  "^http://[^  <>]+)"
                        HtmCode  =  RegX.Replace(HtmCode,  "")
                        RegX.Pattern  =  "(　|~|～|`|｀)"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        Set  RegX=Nothing
                        FormatHTML  =  CutStr(HtmCode,HtmLen)
                Else
                        FormatHTML  =  ""
                End  If
        End  Function

        '''----------------------------------------------------------------↓过滤HTML左右标签
        Public  Function  UnHTML(Code)
                UnHTML  =  RTrim(Code)
                If  UnHTML<>Empty  Then
                        UnHTML=Replace(UnHTML,"<","&lt;")
                        UnHTML=Replace(UnHTML,">","&gt;")
                End  If
        End  Function

        '''----------------------------------------------------------------↓截取字符串特定长度
        Public  Function  CutStr(Str,StrLen)
                CutStr  =  Trim(Str)
                If  Len(CutStr)>=StrLen  Then  CutStr=Left(CutStr,StrLen-1)&"..."
        End  Function

        '''----------------------------------------------------------------↓转换数据库数据为发布时的格式
        Public  Function  HTMLEncode(str)       
                If  Isnull(str)  then  Exit  Function
                str  =  Replace(str,CHR(38),"&amp;")                '&
                str  =  Replace(str,CHR(32),"&nbsp;  ")        '&nbsp;
                str  =  Replace(str,CHR(39),"&#39;")
                str  =  Replace(str,CHR(36),"&#36;")
                str  =  Replace(str,  CHR(34),"&#34;")
                str  =  Replace(str,">","&gt;")
                str  =  Replace(str,"<","&lt;")
                str  =  Replace(str,  CHR(13),  "")
                str  =  Replace(str,  CHR(9),  "&nbsp;  &nbsp;  &nbsp;  &nbsp;  ")                '&TAB
                str  =  Replace(str,  CHR(10)  &  CHR(10),  "</P><P>  ")
                str  =  Replace(str,  CHR(10),  "<BR>  ")
                HTMLEncode  =  str
        End  Function

        '''----------------------------------------------------------------↓简化条件判断
        Public  Function  IIf(ByVal  blnBool,ByVal  strStr1,ByVal  strStr2)
                If  blnBool  Then  IIf=strStr1        Else  IIf=strStr2  End  If
        End  Function

        '''----------------------------------------------------------------↓通过时返回用户名，否则返回为空,传参过虑为Chr1|Chr2|Chr3
        Public  Function  IsPass(ByVal  str,ByVal  arr)
                Dim  s,arrChr,i
                s=str
                arrChr=Split(arr,"|")
                For  i=0  to  Ubound(arrChr)
                        If  Instr(s,arrChr(i))>0  Then 
                                Ispass="" 
                                Exit  Function
                        End  If
                Next
                IsPass=s
        End  Function

%>
[/Code]