ASP는 UTF8을 사용하여 GB2312 국가 표준 코드 - GB2312를 UTF-8로 변환합니다. 필요한 친구는 이를 참조할 수 있습니다. 다음과 같이 코드 코드를 복사합니다.
'개인 코딩 스타일 주석(변수 이름의 첫 번째 소문자는 변수 유형을 나타냄)
'i: 정수 유형입니다.
's: 문자열입니다.
기능 U2UTF8(Byval a_iNum)
희미한 sResult,sUTF8
희미한 iTemp,iHexNum,i
iHexNum = 트림(a_iNum)
iHexNum = 그렇다면
종료 기능
종료 조건
결과 =
(iHexNum < 128) 그렇다면
sResult = sResult & iHexNum
ElseIf (iHexNum < 2048) 그러면
sResult = ChrB(&H80 + (iHexNum 및 &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&HC0 + (iHexNum And &H1F)) & sResult
ElseIf (iHexNum < 65536) Then
sResult = ChrB(&H80 + (iHexNum 및 &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&H80 + (iHexNum And &H3F)) & sResult
iHexNum = iHexNum / &H40
sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult
종료 조건
U2UTF8 = sResult
기능 종료
기능 GB2UTF(Byval a_sStr)
희미한 sGB,sResult,sTemp
희미한 iLen,iUnicode,iTemp,i
sGB = 트림(a_sStr)
iLen = Len(sGB)
i = 1의 경우 iLen으로
s온도 = 중간(sGB,i,1)
iTemp = 오름차순(s온도)
(iTemp>127 또는 iTemp<0) 그렇다면
iUnicode = AscW(s온도)
iUnicode<0이면
아이유니코드 = 아이유니코드 + 65536
종료 조건
또 다른
iUnicode = iTemp
종료 조건
sResult = sResult & U2UTF8(i유니코드)
다음
GB2UTF = sResult
기능 종료
'통화 방법
Response.BinaryWrite(GB2UTF(중국어))