随机将字符串中字符转换成ASCII码值

sdwe_2230-@se2.30.com锛屾眽涓�琚浆
sd锛嗭純119锛沞_22锛嗭純51锛�0锛嗭純45锛汙锛嗭純115锛涳紗锛�101锛�2.3锛嗭純48锛涳紗锛�46锛涳紗锛�99锛沷锛嗭純109锛涳紝姹夛紗锛�1锛涗笉锛嗭純1锛涜杞紗锛�1锛�
JavaScript缂栧啓 - lab瀹為獙瀹�

源代码：

Dim ValueStr
ValueStr=RandomConvert("sdwe_2230-@se2.30.com，汉字不会被转换")
Response.Write ValueStr&"<br />"
Response.Write Replace(Replace(Replace(ValueStr,"&","＆"),"#","＃"),";","；")
Response.Write "<br /><a href=""Default-Js.asp"">JavaScript编写</a>"
'根据给定字符串的长度转换指定的字符
Public Function RandomConvert(ByVal NeedStr)
	If NeedStr="" Then RandomConvert="":Exit Function
	Dim TempStr,StrLength,StrChar,RandomItem,RandomLen,RandomNum,RandomMaxLen,NumStr,AscNum,ResultStr
	TempStr=NeedStr:StrLength=Len(TempStr)
	For RandomItem=0 To StrLength/2
		Randomize
		If RandomItem=0 Then
			RandomMaxLen=1
			RandomLen=1
		Else
			RandomMaxLen=2
			RandomLen=StrLength
		End If
		RandomNum=Int((RandomLen - RandomMaxLen+1 ) * Rnd + RandomMaxLen)
		'If RandomNum=RandomLen Then Exit For
		If Instr(NumStr,","&RandomNum&",")=0 Then
			RandomMaxLen=RandomNum
			NumStr=NumStr&RandomNum&","
		End If
	Next
	For StrItem=1 To StrLength
		StrChar=Mid(TempStr,StrItem,1)
		AscNum=Asc(StrChar)
		If Instr(NumStr,","&StrItem&",")>0  And (AscNum>=0 And AscNum<=255)Then
			ResultStr=ResultStr&"&#"&AscNum&";"
		Else
			ResultStr=ResultStr&StrChar
		End If
	Next
	RandomConvert=ResultStr
End Function