求把下面一段PHP代码翻译成ASP的[在线等待，立即结帖]
$Temp = "";
$sUrl="测试文字";
for ($i=0; $i<strlen($sUrl); $i++) { //循环处理每一个字符
$ccc = substr($sUrl,$i,1);
$ccc = ord($ccc) & 0x7f;
$Temp = $Temp.chr($ccc);
}
echo $Temp.'<br>';
问题点数：20、回复次数：4Top
1 楼Unending（看分答题）回复于 2006-03-13 06:34:26 得分 15
Temp=""
sUrl="测试文字"
for i=1 to len(sURL)
ccc=mid(sURL,i,1)
ccc=asc(ccc) and &H7F
Temp=Temp+chr(ccc)
next
Response.Write Temp+"<br>"Top
2 楼anwell（清风.Net 1982y.Net.Cn）回复于 2006-03-13 08:24:47 得分 5
呵,强Top
3 楼cbxmir（在别处）回复于 2006-03-13 15:32:08 得分 0
还是不对。当处理中文的时候。2个返回的结果不一样啊。Top
4 楼cbxmir（在别处）回复于 2006-03-13 23:06:47 得分 0
我自己来贴正确答案吧。
CSDN越来越让人伤心了。哎。
'解决中文问题,处理掉所有字节的高位(标示为负数的位)
Dim Temp,tt1,tt2
Temp = ""
FileName="测试文字"
For i = 1 to len(FileName)
tt1 = asc(mid(FileName,i,1))
If tt1 >127 or tt1 <0 Then
tt2 = (tt1 And 65280) / 256
tt2 = tt2 And 127
'Response.Write(tt2 & " ")
Temp = Temp + Chrw(tt2)
tt2 = tt1 And 255
tt2 = tt2 And 127
'Response.Write(tt2 & "")
Temp = Temp + Chrw(tt2)
Else
'Response.Write(" " & tt1 & " ")
Temp = Temp + Chrw(tt1)
End If
Next
Response.Write Temp+"<br/>"
'解决中文问题,得到Temp字符串Top
