Copy code

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'adodbدا utf-8ھالىتىدىكى ھۆججەتنى ئوقۇش
function ReadFromUTF (HojjatYoli,utfcod)
'بۇ يەردە HojjatYoliدېگەن ئوقۇلماقچى بولغان ھۆججەتنىڭ يولى ،utfcodدېگەن بۇ ھۆججەتنىڭ كودلىنىش شەكلى .
dim mazmun

set stm=server.CreateObject("adodb.stream")

stm.Type=2

stm.mode=3

stm.charset=utfcod

stm.open

stm.loadfromfile server.MapPath(HojjatYoli)

mazmun=stm.readtext

stm.Close

set stm=nothing

ReadFromUTF=mazmun

end function

dim TEMP

'ھۆججەتنى ئوقۇش مىسالى
TEMP=ReadFromUTF("kilip.asp","UTF-8")

'ئاستىدىكى utf-8ھالىتىدىكى ھۆججەتنى يىزىش .
Sub WriteToUTF(HojjatYoli,Mazmun,utfcod)
'بۇ يەردە HojjatYoliبولسا ھۆججەتنى ساقلاش يولىنى ،Mazmunبولساشۇ ھۆججەتنىڭ مەزمۇنىنى ،utfcodبولسا بۇ ھۆججەتنىڭ كودلىنىش ھالىتىنى كۆرسىتىدۇ .
set stm=server.CreateObject("adodb.stream")
stm.Type=2
stm.mode=3
stm.charset=uftcod
stm.open
stm.WriteText Mazmun
stm.SaveToFile server.MapPath(HojjatYoli),2
stm.flush
stm.Close
set stm=nothing
end Sub
'يىزىپ چىقىرىش جەريانى .
Call WriteToUTF("Natija.asp",TEMP,"UTF-8")
%>