' VB Script Document
' 利用VBScript构建asc吗和字符串的互转函数
Function str2asc(strstr)
	str2asc = Hex(Asc(strstr))
End Function

Function asc2str(ascasc)
	asc2str = Chr(ascasc)
End Function