Url地址读参改值源码

.版本 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, 内容, 新内容, , , 假))

@刘一缘