ASP中控制符与ASCII码是如何转换的？
以下代码是将部分控制符转换为ASCII码的。编写反过程时，读取的长度不一定是1，如何编写？
<%sub STR2ASC(str)
dim result
dim l
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case chr(13)
result=result+"<br>"
case chr(9)
result=result+" "
case chr(32)
'result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case else
result=result+mid(str,i,1)
end select
next
str = result
end sub%>
str1="中华人民共和国<br>中华人民共和国<br> 中华 人民共和国中华人民共和国"
<%str2asc(str1)%>
<%str1%>
