📄 utilities.vb
字号:
Module Utilities
Public Function XQueryStringEncode(ByVal HREF As String) As String
'040623 JPC I don't like the behaviour of Microsofts function
' Server.HTTPEncode, esp its use of "+" as substitute for space,
' so I code my own equivalent, especially to deal with "\"
If InStr(HREF, "%") Then HREF = Replace(HREF, "%", "%25")
If InStr(HREF, " ") Then HREF = Replace(HREF, " ", "%20")
If InStr(HREF, "\") Then HREF = Replace(HREF, "\", "%5C")
Return HREF
End Function
End Module
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -