asp base64 utf-8为了兼容asp.net的base64复制代码代码如下:
<%@LANGUAGE=KODE VBSCRIPT=65001%>
<%Sesi.CodePage=65001%>
<!--#sertakan file=base64.asp-->
<%
Fungsi AspUrlDecode(strValue)
Redupkan varAry, varElement, objStream, lngLoop, Flag
strValue = Ganti(strValue, +, )
varAry = Pisahkan(strValue, %)
Bendera = varAry(0) =
Setel objStream = Server.CreateObject(ADODB.Stream)
Dengan objStream
.Jenis = 2
.Modus = 3
.Membuka
Untuk Setiap varElement Di varAry
Jika varElement <> Kosong Lalu
Jika Len(varElement) >= 2 Dan Tandai Lalu
.WriteText ChrB(CInt(&H & Kiri(varElement, 2)))
Untuk lngLoop = 3 Ke Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Berikutnya
Kalau tidak
Untuk lngLoop = 1 Ke Len(varElement)
.WriteText ChrB(Asc(Mid(varElement, lngLoop, 1)))
Berikutnya
Bendera = Benar
Akhiri Jika
Akhiri Jika
Berikutnya
.WriteText Chr(0)
.Posisi = 0
AspUrlDecode = Ganti(ConvUnicode(.ReadText), Chr(0), , 1, -1, 0)
Pada Kesalahan Lanjutkan Berikutnya
.Menutup
Setel objStream = Tidak Ada
Akhiri Dengan
Fungsi Akhir
Fungsi ConvUnicode (ByVal strData)
Redupkan rs, stm, byteAry, intLen
Jika Len(strData & ) > 0 Lalu
strData = TengahB(strData, 1)
intLen = LenB(strData)
Setel rs = Server.CreateObject(ADODB.Recordset)
Setel stm = Server.CreateObject(ADODB.Stream)
Dengan rs
.Fields.Tambahkan X, 205, intLen
.Membuka
.TambahkanBaru
rs(0).AppendChunk strData & ChrB(0)
.Memperbarui
bytAry = rs(0).GetChunk(intLen)
Akhiri Dengan
Dengan stm
.Jenis = 1
.Membuka
.Tulis byteAry
.Posisi = 0
.Jenis = 2
.Charset = utf-8
KonvUnicode = .ReadText
Akhiri Dengan
Akhiri Jika
Pada Kesalahan Lanjutkan Berikutnya
stm.Tutup
Setel stm = Tidak ada
rs.Tutup
Setel rs = Tidak ada
Fungsi Akhir
%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<kepala>
<meta http-equiv=Jenis Konten content=teks/html; rangkaian karakter=utf-8 />
</kepala>
<tubuh>
<%
'base64编码后,比起.net多了77u/
Response.Write(base64编码后：&base64Encode(阿会楠)&<br />)
'base64解码后
Respon.Write(base64解码后：&base64uncode(6Zi/5Lya5qWg)&<br />)
%>
</tubuh>
</html>