ASP的一些自定义函数整理第1/2页(9)

    For i = 0 to UBound(StrArr) 
        If isNumeric(StrArr(i)) = True Then 
            StrRtn = Chrw(StrArr(i)) & StrRtn 
        Else 
            StrRtn = contentStr 
            Exit Function 
        End If 
    Next 
    DecodeCookie = StrRtn 
End Function 
'============================================================================================================================ 
'函数ID：12 
'函数作用：检验数据提交来源是否合法 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-18 18:55 
'修改时间： 
'传人参数： 
' 
'返回值： 
'    Boolean 
'============================================================================================================================ 
Function ChkPost() 
    Dim server_v1,server_v2 
    Chkpost=False 
    server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
    server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
    If Mid(server_v1,8,len(server_v2))=server_v2 Then Chkpost=True 
End Function 
'============================================================================================================================