response.write strToAsc("123456789")'函数function strToAsc(strValue) dim strTemp dim i strTemp="" for i=1 to len(strValue & "") strTemp=strTemp & asc(mid(strValue,i,1)) nextstrToAsc=strTempend function
