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&"
" Response.Write Replace(Replace(Replace(ValueStr,"&","&"),"#","#"),";",";") Response.Write "
JavaScript编写
" '根据给定字符串的长度转换指定的字符 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