xpli.asp

IMPORTANT YOU SHOUD LOAD IT DOWN FOR USING

<%
function UnEncode(temp)
	but=1                     
	for i =1 to len(temp)
		if mid(temp,i,1)<>"胡" then
			pk=asc(mid(temp,i,1))-but
			if pk>126 then
				pk=pk-95
			elseif pk<32 then
				pk=pk+95
			end if
			a=a&chr(pk)
		else
			a=a&vbcrlf
		end if
	next
	UnEncode=a
end function
%>