<% '作用:文字防復(fù)制亂碼 函數(shù) 'Date:2006-3-6 '作者:blue2004 '參數(shù)str 為原文,str1作者也是你自己,reslut產(chǎn)生亂碼的種子 Function ReadToCode(str,Str1,result) dim name dim i,j,k If isnull(str) then ReadToCode="" Exit Function End If Randomize k=instr(str,"</P>") 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) ' 產(chǎn)生隨機(jī)數(shù)。
