关于代码的一小段VBScript代码byshawl.qiu
shawl.qiu
-8-15
/btbtd
linenum<% dimcode,codes,temp setcodes=allcodes foreachcodeincodes temp=replace(codes,code,"") iftemp.efficiency>=codes.efficiencythencodes=temp next temp=newCode:temp=codes+temp ifcodes.efficiency<temp.efficiencythencodes=temp setcodes=nothing'shawl.qiulaw's %>