asp实现的7xi音乐网的采集源代码(4)

Function CheckFolder(FolderPath) 
  dim fso1 
  Set fso1 = CreateObject("Scripting.FileSystemObject") 
  If fso1.FolderExists(FolderPath) then 
     '存在 
     CheckFolder = True 
  Else 
     '不存在 
     CheckFolder = False 
  End if 
  Set fso1 = nothing 
End Function 

'---根据指定名称生成目录 
Function MakeNewsDir(foldername) 
  dim fso1,f 
  Set fso1 = CreateObject("Scripting.FileSystemObject") 
  Set f = fso1.CreateFolder(foldername) 
  MakeNewsDir = True 
  Set fso1 = nothing 
End Function 

''''''''编码(日文字符)'''''''' 
Function Jencode(byVal iStr) 
        if isnull(iStr) or isEmpty(iStr) then 
                Jencode="" 
                Exit function 
        end if 
        dim F,i,E 
        E=array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;","Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;","Jn14;","Jn15;","Jn16;","Jn17;","Jn18;","Jn19;","Jn20;","Jn21;","Jn22;","Jn23;","Jn24;","Jn25;") 
        F=array(chr(-23116),chr(-23124),chr(-23122),chr(-23120),_ 
        chr(-23118),chr(-23114),chr(-23112),chr(-23110),_ 
        chr(-23099),chr(-23097),chr(-23095),chr(-23075),_ 
        chr(-23079),chr(-23081),chr(-23085),chr(-23087),_ 
        chr(-23052),chr(-23076),chr(-23078),chr(-23082),_ 
        chr(-23084),chr(-23088),chr(-23102),chr(-23104),_ 
        chr(-23106),chr(-23108)) 
        Jencode=iStr 
        for i=0 to 25 
                Jencode=replace(Jencode,F(i),E(i)) 
        next 
End Function 

''''''''解码(日文字符)''''''''