UTF8数据转换成为GB2312（Asp中）
今天遇到一个asp程序，用ReWrite重写URL后，中文参数乱码，查资料后说是ReWrite所接收的参数自动转为UTF-8，而我的前台页面和数据库都为GB2312格式，后来在网上找了好久，终于找到一个能成功将UTF-8转换为GB2312的函数，函数转换代码如下
<%
function CodeConvert(fileContent)
dim stm
set stm=Server.CreateObject("adodb.stream")
stm.Type=2
stm.Mode=3
stm.Charset="GB2312"
stm.Open
stm.WriteText fileContent
stm.Position=0
stm.Charset="UTF-8"
CodeConvert = stm.ReadText
stm.Close
set stm=nothing
End function
%>
特此记录，希望对有需要的朋友给与帮助，也方便自己以后查看！
相关文档：
Array()
FUNCTION: 返回一个数组
SYNTAX: Array(list)
ARGUMENTS: 字符，数字均可
EXAMPLE: <%
Dim myArray()
For i = 1 to 7
Redim Preserve myArray(i)
myArray(i) = WeekdayName(i)
Next
%[/IMG]
RESULT: 建立了一个包含7个元素的数组myArray
� ......
asp连接access和mssql的万能代码：
'解决了ACCESS数据库路径的问题！
'采用DBType=0或DBType=1来区分AC库还是MSSQL库
'具体采用AC库时应注意的事项，请看程序说明
-----------------------------------------------
Dim DBType,Conn,StrConn
DBType=0 '0为Access数据库，1为MSSQL数据库
If(DBType=0) Then
......
什么是PHP
PHP代表了"超文本处理器"，这意味着你必须知道，它是一种服务器端的处理语言，且以HTML的形式出现。它最常用的地方就是网页了，数据从客户机发送到Web服务器，信息在此被处理并返回结果。
但这种通用性的语言丝毫不局限于在网页方面，PHP也能被用在命令行shell中，它可作为操作系统的一个扩展，由此执� ......
代码如下：
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
这是最基本的正则替换，有某些特殊字符还没过滤，可自行添加 ......
IIS无法访问asp！
解决办法！今天打开电脑发现IIS无法访问asp页面。
提示：Server Application Error 然后就有了下面的一段话。
The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact ......
