'************************************* '读取文件 '************************************* FunctionLoadFromFile(ByValFile) DimobjStream DimRText RText=Array(0,"") SetobjStream=Server.CreateObject("ADODB.Stream") WithobjStream .Type=2 .Mode=3 .Open .Charset="utf-8" .Po