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

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

<br />
function flashdata_decode($s) {<br />
    		$r = '';<br />
    		$l = strlen($s);<br />
    		for($i=0; $i<$l; $i=$i+2) {<br />
    			$k1 = ord($s[$i]) - 48;<br />
    			$k1 -= $k1 > 9 ? 7 : 0;<br />
    			$k2 = ord($s[$i+1]) - 48;<br />
    			$k2 -= $k2 > 9 ? 7 : 0;<br />
    			$r .= chr($k1 << 4 | $k2);<br />
    		}<br />
    		return $r;<br />
    	}<br />

对PHP不熟，搞不来，多谢啊
主要是  $r .= chr($k1 

分享到：
------解决方案--------------------
PHP strlen 函数
ASP len 函数

PHP ord 函数
ASP asc 函数

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

PHP  ASP 无 可用连乘 2 代替。比如 
PHP $s[$i]
ASP mid(s, i, 1)