Function content_Code(Str) dim ary_String,i,n,n_pos ary_String=split(Str,"[ code ]") n=ubound(ary_String) If n1 then content_Code=Str Exit function End If for i=1 to n n_pos=inStr(ary_String(i),"[/ code ]") If n_pos>0 then ary_String(i)="br />textarea class=gocode id=runcode"i" name=runcode"i">" server.HTMLEncode(left(ary_String(i),n_pos-1))"/textarea>br />input type=button class=input-code value=運行代碼 onclick=runCode(runcode"i")>input type=button class=input-code value=復制代碼 onclick=copycode(runcode"i")>input type=button class=input-code value=另存代碼 onclick=saveCode(runcode"i")>span class=code-tishi>提示：您可以先修改部分代碼再運行/span>br />" _ right(ary_String(i),len(ary_String(i))-n_pos-6) Else ary_String(i)="[code]" ary_String(i) End if next content_Code=join(ary_String,"") End Function
