众所周知, ASP的include指令要优先于parser, 因此在include指令中包含变量是不会被parse解析的, 而将直接导致一个HTTP 500错误.
就像下面这段代码, 我想你在看这篇文章之前, 肯定已经这么尝试过了, 并且当你运行它以前一定就天真地以为, 这样就能”行了”…

or

然而结果可能会令你非常沮丧, 你可能马上产生抱怨, 也可能因此而打算放弃ASP, 转投PHP, JSP或.NET的怀抱. 但是请你不要灰心, 作为一个技术狂热份子怎么能如此轻言放弃呢? 废话少说, 直接入正题吧.
继续阅读 →

asp request utf-8转码函数

如果asp接收来自UTF-8页面的表单，即表单以UTF-8方式发送，但ASP脚本为gb2312编码代码页，那么可以使用此函数进行转码。此函数同时也适用于asp下UTF-8转换

GB2312Function utf2gb(Body)
Dim Objstream
Set Objstream = Server.CreateObject(“adodb.stream”)
objstream.Charset = “gb2312”
objstream.Type = 2
objstream.Mode =3
objstream.Open
objstream.WriteText body
objstream.Position = 0
objstream.Charset = “utf-8”
objstream.Type = 2
utf2gb = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

自己写的一段函数，绝对原创，不是网上存在问题的那个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