asp用adodb.stream保存utf-8文件时去掉bom头

最新推荐文章于 2024-03-06 13:34:27 发布

fengwusan

最新推荐文章于 2024-03-06 13:34:27 发布

阅读量1.4k

点赞数 1

分类专栏： C/C++ 文章标签： utf-8 asp adodb.stream

本文链接：https://blog.csdn.net/fengwusan/article/details/78546331

版权

C/C++ 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

function putTextContent(path, data, chrs) {
	chrs = (chrs || "utf-8").toLowerCase();
	var com = new ActiveXObject("ADODB.Stream"), utf8 = "utf-8" === chrs;
	com.Type = 2,
	com.Mode = 3,
	com.Charset = utf8 ? "iso-8859-1" : chrs,
	com.Open(),
	com.WriteText(utf8 ? unescape(encodeURIComponent(data)) : data),
	com.SaveToFile(path, 2),
	com.Flush(),
	com.Close();
}

Option Explicit

Function IIf(ByVal e, ByVal t, ByVal f)
	If e Then
		IIf = t
	Else
		IIf = f
	End If
End Function


Function putTextContent(ByVal path, ByVal data, ByVal chrs)
	Dim com, utf8
	utf8 = CBool("utf-8" = LCase(chrs))
	Set com = CreateObject("ADODB.Stream")
	com.Type = 2
	com.Mode = 3
	com.Charset = IIf(utf8, "iso-8859-1", chrs)
	com.Open
	com.WriteText Unescape(encodeURIComponent(data))
	com.SaveToFile path, 2
	com.Close
	Set com = Nothing
End Function

Function RShift(ByVal num, ByVal bits)
	RShift = num \ (2 ^ bits)
End Function

Function encodeURIComponent(ByVal str)
	Dim reg, arr, i, x, cc
	Set reg = New RegExp
	reg.Global = True
	arr = Split(reg.Replace(str, Chr(0)), Chr(0))
	ReDim tmp(UBound(arr) * 3)
	x = 0
	For i = 1 To UBound(arr) - 1
		cc = AscW(arr(i)) And &HFFFF&
		If cc <= &H7F Then
			tmp(x) = Escape(arr(i))
		ElseIf cc >= &H80 And cc <= &H07FF& Then
			tmp(x) = "%" & Hex((RShift(cc, 6) And &H1F) Or &HC0)
			x = x + 1
			tmp(x) = "%" & Hex((cc And &H3F) Or &H80)
		ElseIf cc >= &H0800& And cc <= &HFFFF& Then
			tmp(x) = "%" & Hex((RShift(cc, 12) And &H0F) Or &HE0)
			x = x + 1
			tmp(x) = "%" & Hex((RShift(cc,  6) And &H3F) Or &H80)
			x = x + 1
			tmp(x) = "%" & Hex((cc And &H3F) Or &H80)
		End If
		x = x + 1
	Next
	encodeURIComponent = Join(tmp, "")
End Function

如果用在asp中，那么encodeURIComponent可以直接用<script runat="server" language="javascript">的方法从js中借用过来，vbs中很多地方都不方便，像split空字符的问题，js中只要string.split("")就能返回正确的字符数组，而vbs则在数组前后各增加了一个空字符