Asp 인 코딩 상호 전환 연구 및 구현 코드

글 배경:어느 날,나의 한 동료 가 나 에 게 CSDN 위의 프로 그래 밍 언어 순위 에 관 한 글 을 보 여 주 었 다.그 중에서 나 는 VB 가 여전히 순위 가 좋 은 것 을 보 았 다.나 는 asp(vbscript)가 정말 좋다 고 말 했다.결국 그 는 asp 가 좋 지 않 아 많은 것 이 이 루어 지기 어렵다 고 반박 했다.예 를 들 면 어떤 것들 이 요?저 는 몇 년 동안 asp 를 개 발 했 지만 실현 하기 어 려 운 것 을 발견 하지 못 했 습 니 다.비 스 크 립 트 언어 범위 에 속 하지 않 는 한 다 중 스 레 드 응용(물론 asp 도 다 중 스 레 드 작업 을 모 의 할 수 있 습 니 다)등 입 니 다.결국 그 는 다 중 스 레 드,인 코딩 전환 등 인 코딩 전환 에 많은 노력 을 기 울 였 지만 성공 하지 못 해 asp 가 너무 약 하 다 고 말 했다.이런 말 을 듣 고 우 리 는 그의 프로 그래 밍 기초 가 아직 튼튼 하지 않 고 asp 에 대한 인식 도 매우 제한 적 이라는 것 을 알 게 되 었 다.발언권 이 없다.하하...)그래서 화가 나 서 그 주말 에 asp 인 코딩 을 서로 바 꾸 는 문 제 를 이 루 었 습 니 다.그 에 게 asp 가 무엇 인지 보 여 주 었 습 니 다.이렇게 asp 를 무시 하고 생각 하 니 화가 났 습 니 다!물론,나의 이 연 구 는 지금까지 asp 개발 에서 인 코딩 전환 연구 에 관 한 공백 을 동시에 메 웠 습 니 다!이제 우 리 는 본론 으로 들 어가 기 시작 합 니 다.우선,우 리 는 인 코딩 전환 과정 을 알 아 보 겠 습 니 다.한 단락 의 문자 인 코딩 을 바 꾸 려 면 현재 문자 에 대응 하 는 인 코딩 집합 을 알 고 해당 하 는 인 코딩 집합 으로 읽 어야 합 니 다.이것 은 인 코딩 이 정확하게 바 뀌 는 전제 입 니 다.(만약 이 단계 가 잘못 되면 바 뀌 는 것 은 일련의 어 지 러 운 코드 입 니 다)!자,현재 인 코딩 을 잘 찾 았 고 정확하게 읽 은 후에 우 리 는 목표 인 코딩 을 설정 한 Stream 대상 으로 이 내용 을 지정 한 파일 에 저장 할 수 있 습 니 다.여기 서 우리 의 인 코딩 변환 이 성공 합 니 다!다음은 asp 인 코딩 전환 의 구체 적 인 코드 실현 을 살 펴 보 겠 습 니 다

'     content         ， cset     ， dest          
Function TransferCharSet(content, cset, dest) 
Dim Objstream 
Set Objstream = Server.CreateObject("adodb.stream") 
objstream.Mode =3 
objstream.Charset = cset 
objstream.Type = 2 
objstream.Open 
objstream.WriteText content 
objstream.Position = 0 
objstream.SaveToFile dest,2 
objstream.Close 
set objstream = nothing 
End Function 
'            
Function getcontent(path) 
Dim Objstream 
Set Objstream = Server.CreateObject("Adodb.Stream") 
objstream.Charset = GetCharSetName(path) 
objstream.Type = 2 
objstream.Mode =3 
'objstream.Charset = code 
objstream.Open 
Objstream.LoadFromFile path 
objstream.Position = 0 
getcontent = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
'            
Function GetCharSetName(path) 
Set objstream=server.createobject("Adodb.Stream") 
objstream.Type=1 
objstream.mode=3 
objstream.open 
objstream.Position=0 
objstream.loadfromfile path 
bintou=objstream.read(2) 
If AscB(MidB(bintou,1,1))=&HEF And AscB(MidB(bintou,2,1))=&HBB Then 
GetCharSetName="utf-8" 
ElseIf AscB(MidB(bintou,1,1))=&HFF And AscB(MidB(bintou,2,1))=&HFE Then 
GetCharSetName="unicode" 
Else 
GetCharSetName="gb2312" 
End If 
objstream.close 
Set objstream=nothing 
End Function 

자,이러한 코드 를 통 해 우리 의 전환 작업 이 완성 되 었 습 니 다!이 글 이 asp 애호가 및 기타 언어 애호가 들 에 게 도움 과 깨 우 침 을 줄 수 있 기 를 바 랍 니 다.마지막 으로 제 가 하고 싶 은 말 은 프로 그래 밍 언어의 학습 과 사용 이 어렵 지 않 습 니 다.중요 한 것 은 자신 이 머리 를 많이 써 서 자신 이 필요 로 하 는 기능 을 어떻게 실현 하 는 지 생각 하 는 것 입 니 다.하늘 을 원망 하고 남 을 탓 하 는 것 이 아니 라 이 언어 가 너무 약 하 다 는 말 을 하 는 것 입 니 다.자,여러분 의 프로 그래 밍 과 즐거움 을 기원 합 니 다.asp 의 인 코딩 전환 에 대해 먼저 여기에 쓰 겠 습 니 다.앞으로 저 는 더욱 멋 진 개인 오리지널 글 을 내 놓 을 것 입 니 다.감사합니다!