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

Function Juncode(byVal iStr) 
        if isnull(iStr) or isEmpty(iStr) then 
                Juncode="" 
                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)) 
        Juncode=iStr 
        for i=0 to 25 
                Juncode=replace(Juncode,E(i),F(i))'□ 
        next 
End Function 
%> 


1个是手动添加歌手： 
addsinger.asp '---手动添加歌手，内容如下： 

 程序代码 
<% 
''' 
'''╔=======================================╗ 
'''┆                                       ┆ 
'''┆ @系统: 7xi音乐采集系统 Version 2.0    ┆ 
'''┆ @模块: 手动添加歌手                   ┆ 
'''┆ @创建: 2006/07/24                     ┆ 
'''┆ @作者: D.S.Fang                       ┆