.版本 2
.程序集 url_utils
.程序集变量 url, 文本型
.子程序 _初始化, , , 当基于本类的对象被创建后,此方法会被自动调用
.子程序 _销毁, , , 当基于本类的对象被销毁前,此方法会被自动调用
.子程序 载入, , 公开
.参数 _url, 文本型
url = _url
.子程序 读值, 文本型, 公开, 内容读取
.参数 name, 文本型, 可空, 可以为参数名称,为空则返回整条URL
.参数 encode, 逻辑型, 可空, 不解码,默认为假
.局部变量 Js, 对象
.局部变量 result, 文本型
.如果真 (name = “”)
返回 (url)
.如果真结束
.如果真 (url ≠ “”)
Js.创建 (“ScriptControl”, )
Js.写属性 (“Language”, “JsCript”)
Js.通用方法 (“AddCode”, 到文本 ({ 102, 117, 110, 99, 116, 105, 111, 110, 32, 103, 101, 116, 85, 114, 108, 80, 97, 114, 97, 109, 40, 99, 44, 97, 41, 123, 118, 97, 114, 32, 101, 61, 99, 46, 115, 117, 98, 115, 116, 114, 105, 110, 103, 40, 99, 46, 105, 110, 100, 101, 120, 79, 102, 40, 34, 63, 34, 41, 43, 49, 41, 59, 101, 61, 101, 46, 115, 112, 108, 105, 116, 40, 34, 38, 34, 41, 59, 118, 97, 114, 32, 100, 61, 123, 125, 59, 102, 111, 114, 40, 118, 97, 114, 32, 98, 61, 48, 59, 98, 60, 101, 46, 108, 101, 110, 103, 116, 104, 59, 98, 43, 43, 41, 123, 100, 91, 101, 91, 98, 93, 46, 115, 112, 108, 105, 116, 40, 34, 61, 34, 41, 91, 48, 93, 93, 61, 101, 91, 98, 93, 46, 115, 112, 108, 105, 116, 40, 34, 61, 34, 41, 91, 49, 93, 125, 114, 101, 116, 117, 114, 110, 32, 100, 91, 97, 93, 125, 59 }))
result = Js.文本方法 (“Run”, “getUrlParam”, url, name)
Js.清除 ()
.如果真 (取反 (encode))
result = 编码_URL解码 (result, 真)
.如果真结束
.如果真结束
返回 (result)
.子程序 更新, 文本型, 公开, 更新参数,更新后返回新链接
.参数 name, 文本型, , 参数名称
.参数 value, 文本型, , 新内容
.参数 encode, 逻辑型, 可空, 不编码,默认为假
.局部变量 _value, 文本型
.局部变量 _tmp, 文本型
_value = 读值 (name, )
_tmp = 选择 (取反 (encode), 编码_URL编码 (value, 真, 真), value)
url = 子文本替换 (url, _value, _tmp, , , 真)
返回 (url)
.子程序 替换, 文本型, 公开
.参数 内容, 文本型
.参数 新内容, 文本型
返回 (子文本替换 (url, 内容, 新内容, , , 假))