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

    set objstream = Server.CreateObject("adodb.stream") 
    objstream.Type = 1    '以二进制模式打开 
    objstream.Mode =3 
    objstream.Open 
    objstream.Write body 
    objstream.Position = 0 
    objstream.Type = 2 
    objstream.Charset = cset 
    BytesToBstr = objstream.ReadText 
    objstream.Close 
    set objstream = nothing 
End Function 
'============================================================================================================================ 
'函数ID：10 
'函数作用：编码cookies 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-16 17:36 
'修改时间： 
'传人参数： 
'    contentStr:数据内容 
'返回值： 
'    编码处理后的信息，字符以"a"隔开 
'============================================================================================================================ 
Function codeCookie(contentStr) 
    Dim i,returnStr 
    For i = Len(contentStr) to 1 Step -1 
        returnStr = returnStr & Ascw(Mid(contentStr,i,1)) 
        If (i <> 1) Then returnStr = returnStr & "a" 
    Next 
    CodeCookie = returnStr 
End Function 
'============================================================================================================================ 
'函数ID：11 
'函数作用：解码cookies 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-17 16:58 
'修改时间： 
'传人参数： 
'    contentStr:数据内容         
'返回值： 
'    解码处理后的信息         
'============================================================================================================================ 
Function DecodeCookie(contentStr) 
    Dim i 
    Dim StrArr,StrRtn 
    StrArr = Split(contentStr,"a")