asp base64 utf-8 为了兼容asp.net ของ base64复制代码代码如下:
<%@LANGUAGE=รหัส VBSCRIPT=65001%>
<%เซสชัน.CodePage=65001%>
<!--#include file=base64.asp-->
-
ฟังก์ชัน AspUrlDecode(strValue)
Dim varAry, varElement, objStream, lngLoop, ตั้งค่าสถานะ
strValue = แทนที่ (strValue, +, )
varAry = แยก(strValue, %)
แฟล็ก = varAry(0) =
ตั้งค่า objStream = Server.CreateObject(ADODB.Stream)
ด้วย objStream
.ประเภท = 2
.โหมด = 3
.เปิด
สำหรับแต่ละ varElement ใน varAry
ถ้า varElement <> ว่างเปล่าแล้ว
ถ้า Len(varElement) >= 2 และตั้งค่าสถานะ จากนั้น
.WriteText ChrB(CInt(&H & ซ้าย(varElement, 2)))
สำหรับ lngLoop = 3 ถึง Len(varElement)
.WriteText ChrB(Asc(กลาง(varElement, lngLoop, 1)))
ต่อไป
อื่น
สำหรับ lngLoop = 1 ถึง Len(varElement)
.WriteText ChrB(Asc(กลาง(varElement, lngLoop, 1)))
ต่อไป
ธง = จริง
สิ้นสุดถ้า
สิ้นสุดถ้า
ต่อไป
.WriteText Chr (0)
.ตำแหน่ง = 0
AspUrlDecode = แทนที่(ConvUnicode(.ReadText), Chr(0), , 1, -1, 0)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
.ปิด
ตั้งค่า objStream = ไม่มีเลย
จบด้วย
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น ConvUnicode (ByVal strData)
หรี่ rs, stm, bytAry, intLen
ถ้า Len(strData & ) > 0 แล้ว
strData = MidB(strData, 1)
intLen = LenB(strData)
ตั้ง rs = Server.CreateObject (ADODB.Recordset)
ตั้งค่า stm = Server.CreateObject (ADODB.Stream)
ด้วยอาร์เอส
.Fields.ผนวก X, 205, intLen
.เปิด
.เพิ่มใหม่
rs(0) ผนวก strData และ ChrB (0)
.อัปเดต
bytAry = rs(0).GetChunk(intLen)
จบด้วย
ด้วยมาตรฐาน
.ประเภท = 1
.เปิด
.เขียนโดยอารี่
.ตำแหน่ง = 0
.ประเภท = 2
.ชุดอักขระ = utf-8
ConvUnicode = .ReadText
จบด้วย
สิ้นสุดถ้า
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
stm.ปิด
ตั้งค่า stm = ไม่มีเลย
rs.ปิด
ตั้งค่า rs = ไม่มีเลย
ฟังก์ชันสิ้นสุด
-
<!DOCTYPE html สาธารณะ -//W3C//DTD XHTML 1.0 การเปลี่ยนผ่าน//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<หัว>
<meta http-equiv=เนื้อหาประเภทเนื้อหา=ข้อความ/html; ชุดอักขระ=utf-8 />
</หัว>
<ร่างกาย>
-
'base64编码后，比起.net多了77u/
Response.Write(base64编码后：&base64Encode(阿会楠)&<br />)
'base64解码后
Response.Write(base64解码后：&base64uncode(6Zi/5Lya5qWg)&<br />)
-
</ร่างกาย>
</html>