<% '作用:文字防復制亂碼 函數 'Date:2006-3-6 '作者:blue2004 '參數str 為原文,str1作者也是你自己,reslut產生亂碼的種子 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) ' 產生隨機數。
