高分请教ASCII码串转换成字符串的asp代码

显示全部楼层 · 2009-3-5 18:06:54

-17494_-18693_-16938_66_68_91_-20228_-17748_-17926_-11281_-14876_-11532_93_
上面这串是用_下划连着的ASCII码串想把它转换成字符串。
转过来的是代码：
function strToAsc(strValue)
dim strTemp
dim i
strTemp=""
for i=1 to len(strValue & "")
strTemp= strTemp &asc(mid(strValue,i,1)) & "_"
next
strToAsc=strTemp
end function
现在要转回去，不知道怎么写，请高手帮帮忙。

千问 · 2009-3-5 18:06:54

先用_分隔，函数用split(strTemp,"_") 然后用chr()转换回去，针对你的代码，可以如下写： dim ThisstrTemp,ThisAr,Vstr ThisstrTemp=strToAsc(strValue) ThisAr=split(ThisstrTemp,"_") for i=0 to Ubound(ThisAr) if IsNumeric(ThisAr(i)) thenVstr=Vstr&chr(ThisAr(i)) end ifnext...