Unicode Code Conversion (ASP)

zhaozj2021-02-16  100

Function fstrchangeprM2Unicode2 (byval Strorg) DIM STRETURN

ON Error ResMe next

Strreturn = Strorg Strreturn = Replace (Strreturn, "/", "/ U005C") Strreturn = Replace (Strreturn, "'", "/ u0027") strreturn = Replace (Strreturn, "" "", "/ u0022") Strreturn = Replace (Strreturn, VBCR, "") Strreturn = Replace (Strreturn, VBLF, "/ U000A) Strreturn = Replace (Strreturn," <"," / U003C ") strreturn = Replace (Strreturn,"> "," / U003E ") Strreturn = Replace (Strreturn," & "," / U0026) Strreturn = Replace (Strreturn, "%", "/ U0025") Strreturn = Replace (Strreturn, "#", "/ u0023") fstrchangeprM2Unicode2 = Strreturn

END FUNCTION

转载请注明原文地址:https://www.9cbs.com/read-10653.html

New Post(0)