<%@codepage=65001%>
<%Response.charset="utf-8"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<form method="post">
<input type="text" name="username">
<input type="submit" name="" value="GO">
</form>

<%
if request.form("username")<>"" then
    response.Cookies("Huibo")("username")=trim(request.form("username"))
    response.Cookies("Huibo").Expires="2006/05/01"
    Response.write trim(request.form("username")) &"<br>"
    Response.write trim(request.Cookies("Huibo")("username"))
end if

'编码程序：
function   CodeCookie(str)
    Dim   i
    Dim   strRtn
    for   i=len(str)   to   1   step   -1
        strRtn=strRtn   &   ascw(mid(str,i,1))
        if i<>1  then
           strRtn=strRtn   &   "a"   '用a作分隔符
        end if
    next
    CodeCookie=strRtn
end   function

'解码程序：
function   DecodeCookie(str)
    Dim   i
    Dim   strArr,strRtn
    strArr=Split(str,"a")
    for  i=UBound(strArr)-LBound(strArr)   to   1   step   -1
        strRtn=strRtn   &   chrw(strArr(i))
    next
    DecodeCookie=strRtn
end   function %>