唉,11月就这么过去了。
好久没在这里写东西了。其实一开始写日志都是在这里写的,只是后来转到Qzone了,毕竟好友们都喜欢使用QQ,唉,腾讯有点垄断了哈。
嗯,再回来一下,写在我这个多事的11月。
校门口有卖2G卡的,38,乖乖,想当年128M的都得二三百啊。
SIM居然也能坏掉,这年头,还有啥不可能呢。
待续……
唉,11月就这么过去了。
好久没在这里写东西了。其实一开始写日志都是在这里写的,只是后来转到Qzone了,毕竟好友们都喜欢使用QQ,唉,腾讯有点垄断了哈。
嗯,再回来一下,写在我这个多事的11月。
校门口有卖2G卡的,38,乖乖,想当年128M的都得二三百啊。
SIM居然也能坏掉,这年头,还有啥不可能呢。
待续……
自己写的一段函数,绝对原创,不是网上存在问题的那个U2UTF8函数。原理是使用adodb.stream以UTF-8写文本,以比特流(二进制)读取输出,实现GB2312转UTF-8输出,即可在GB2312编码的ASP页面上以UTF-8方式输出文本。
Function GB2UTF(Body)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream") objstream.Charset = "utf-8"
objstream.Type = 2
objstream.Mode =3
objstream.Open
objstream.WriteText body
objstream.Position = 0
objstream.Type = 1
GB2UTF = objstream.Read
objstream.Close
set objstream = nothing
End Function