两种方式:
<%@ Language=VBScript codepage=65001 %>
<% Response.CodePage = 65001 %>
<% Session.CodePage = 65001 %>
Response.Charset = "UTF-8"
Response.CodePage = 65001
Dim str As String
str = Session("data")
str = Server.HtmlEncode(str)
str = Server.UrlEncode(str)
Response.Write(str)