89
2024-01-01 21:56
admin试试这个 Private Function Unescape(ByVal pstrInput As String) As String Dim objScrCtl As Object Set objScrCtl = CreateObject("MSScriptControl.ScriptControl") objScrCtl.Language = "JavaScript" Unescape = objScrCtl.Eval("unescape('" & pstrInput & "')") Set objScrCtl = NothingEnd Function
顶一下
(0)
0%
踩一下
(0)
0%
- 相关评论
- 我要评论
-