<script language="Vbscript"> function vbGetGBCode(str) dim i, length, s length =len(str) for i=1to length hexCode =hex(asc(str.charAt(i-1))) if (len(hexCode) mod2) =0then s = s &"%"&mid(hexCode, 1, 2) if ( len(hexCode) =4 ) then s = s &"%"&mid(hexCode, 3, 2) endif else s = s &"%0"& hexCode endif next vbGetGBCode = s end function script>