ASPÓÃADODB.StreamдUTF

Function WriteToUTF(content,sFilen)'contentΪÌæ»»ºóµÄ×Ö·û´®,filenameΪÉú³ÉµÄÎļþÃû
 dim objStream 
   Set objStream = Server.CreateObject("ADODB.Stream")  
     With objStream  
     .Open  
     .Charset   = "utf-8"' //±àÂ룬ÕâÀïÄã¿ÉÒԸijÉÈκαàÂë  
     .Position   = objStream.Size  
     .WriteText = content' //Ä£°æ+Êý¾Ý дÈëÄÚÈÝ  
     .SaveToFile server.mappath("../"&sFilen),2' //Éú³ÉÎļþ·¾¶  
     .Close  
     End With  
   Set objStream = Nothing   
End Function