代码返回自己_代码返回代码本身-CSDN博客

本文链接：https://blog.csdn.net/KiteGirl/article/details/5652091

<html>
<head>
<title>OutMe</title>
</head>
<body>
</body>
<script language="VBScript">
Dim priCodeMe
Dim priCode
priCodeMe = "3C68746D6C3E0D0A3C686561643E0D0A3C7469746C653E4F75744D653C2F7469746C653E0D0A3C2F686561643E0D0A3C626F64793E0D0A3C2F626F64793E0D0A3C736372697074206C616E67756167653D225642536372697074223E0D0A44696D20707269436F64654D650D0A44696D20707269436F64650D0A707269436F64654D65203D2022234D65220D0A707269436F6465203D205265706C616365284465436F646528707269436F64654D65292C2022234D65222C20707269436F64654D652C20312C31290D0A536574207454657874203D20646F63756D656E742E437265617465456C656D656E7428225022290D0A646F63756D656E742E626F64792E696E7365727441646A6163656E74456C656D656E7420226265466F7265456E64222C2074546578740D0A74546578742E696E6E657254657874203D20707269436F64650D0A46756E6374696F6E204465436F64652870436F646573290D0A2020466F72207449203D203120546F204C656E2870436F64657329205374657020320D0A20202020744F757454657874203D20744F75745465787420262043687228434279746528222648222026204D69642870436F6465732C2074492C20322929290D0A20204E6578740D0A20204465436F6465203D20744F7574546578740D0A456E642046756E6374696F6E20200D0A3C2F7363726970743E0D0A3C2F68746D6C3E"
priCode = Replace(DeCode(priCodeMe), "#Me", priCodeMe, 1,1)
Set tText = document.CreateElement("P")
document.body.insertAdjacentElement "beForeEnd", tText
tText.innerText = priCode
Function DeCode(pCodes)
For tI = 1 To Len(pCodes) Step 2
tOutText = tOutText & Chr(CByte("&H" & Mid(pCodes, tI, 2)))
Next
DeCode = tOutText
End Function
</script>
</html>