请大哥们帮我把这小段代码改成ASP的吧，多谢

function flashdata_decode($s) {

    		$r = '';

    		$l = strlen($s);

    		for($i=0; $i<$l; $i=$i+2) {

    			$k1 = ord($s[$i]) - 48;

    			$k1 -= $k1 > 9 ? 7 : 0;

    			$k2 = ord($s[$i+1]) - 48;

    			$k2 -= $k2 > 9 ? 7 : 0;

    			$r .= chr($k1 << 4 | $k2);

    		}

    		return $r;

    	}

对PHP不熟，搞不来，多谢啊
主要是  $r .= chr($k1 << 4 | $k2); 这行不知道怎么改
------解决方案--------------------
PHP strlen 函数
ASP len 函数

PHP ord 函数
ASP asc 函数

PHP 
------解决方案--------------------
 运算符
ASP or 运算符

PHP << 右移运算符
ASP 无 可用连乘 2 代替。比如 << 4 就是 *2*2

PHP $s[$i]
ASP mid(s, i, 1)