") Do while k>0 result="" for i=0 to 19 j=Int(128 * Rnd)+1 if j=60 or j=62 then j=j+1 end if result =result&chr(j) ' 产生随机数。 next result=""&result&"" str=replace(str," ",result&"",1,1) k=instr(str," ") loop str=replace(str,""," ") k=instr(str," ") Do while k>0 result="" for i=0 to 19 j=Int(128 * Rnd)+1 if j=60 or j=62 then j=j+1 end if result =result&chr(j) ' 产生随机数。 next result=""&result&"" str=replace(str," ",result&"",1,1) k=instr(str," ") loop str=replace(str,""," ") ReadToCode=str&"<版权归原作者及"&Str1&"共同拥有，转载请注明出处>" End Function Dim a a="嘎嘎，一篇 不错的好文章哦 我艹，，让你偷。。木　JJ的家伙,嬲。。 " 'Only For Test response.write (a) Dim b '为配合转换,字符串ａ的大小都替换成小写 b=ReadToCode(LCase(a),"blue2004","www.xxx.com") 'Output response.write b %>文章来源