类_POST数据类_字节集 应该算是BUG吧

红妆V

类_POST数据类_字节集
获取Post数据 命令时
返回的数据 会出现2条重复
重复的第一项还多了个 filename字段
第2项正确的 但是 参数值是错的
字节集里查看 分析到,
第1条 带filename的 参数 1={49}
第2条 参数1={1}
上代码

  

变量名	类 型	静态	数组	备 注
局_POST数据	类_POST数据类_字节集

局_POST数据.添加 (“TEST”, 到字节集 (“1”), “”)
局_POST数据.添加 (“ERR”, 到字节集 (“2”), “”)
调试输出 (到文本 (局_POST数据.获取Post数据 (“abcdefg”, )))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_POST数据, 类_POST数据类_字节集<br /> <br /> 局_POST数据.添加 (“TEST”, 到字节集 (“1”), “”)<br /> 局_POST数据.添加 (“ERR”, 到字节集 (“2”), “”)<br /> 调试输出 (到文本 (局_POST数据.获取Post数据 (“abcdefg”, )))

输出结果




如果是BUG的话(POST上传文件 这种情况就是BUG)
代码修改为

  

窗口程序集名	保 留	保 留	备 注
类_POST数据字节集
变量名	类 型	数组	备 注
_keys	文本型	0
_values	字节集	0
_filename	文本型	0
_types	文本型	0

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
清空

清除数组 (_keys)
清除数组 (_values)
清除数组 (_filename)
清除数组 (_types)

子程序名	返回值类型	公开	备 注
添加
参数名	类 型	参考	可空	数组	备 注
key	文本型
value	字节集
filename	文本型
type	文本型				如： Content-Type: audio/mp3，请填写【audio/mp3】

加入成员 (_keys, key)
加入成员 (_values, value)
加入成员 (_filename, filename)
加入成员 (_types, type)

子程序名	返回值类型	公开	备 注
获取Post数据	字节集
参数名	类 型	参考	可空	数组	备 注
boundary	文本型
分割符数量	整数型				默认为2，如：--WebKitFormBoundaryPPRO2xsdBWf1T1h4

变量名	类 型	静态	数组	备 注
i	整数型
head	文本型
t	文本型
bin	字节集
keys	文本型		0
values	文本型		0

如果真 (分割符数量 ＝ 0)
分割符数量 ＝ 2
head ＝ 取重复文本 (分割符数量, “-”) ＋ boundary ＋ #换行符
计次循环首 (取数组成员数 (_keys), i)
t ＝ head ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ _keys [i] ＋ #引号
如果 (_filename [i] ≠ “”)
t ＝ t ＋ “; filename=” ＋ #引号 ＋ _filename [i] ＋ #引号 ＋ #换行符
t ＝ t ＋ #换行符

如果真 (_types [i] ≠ “”)
t ＝ t ＋ “Content-Type: ” ＋ _types [i] ＋ #换行符
t ＝ t ＋ #换行符
bin ＝ bin ＋ 到字节集 (t) ＋ _values [i] ＋ { 13, 10 }
计次循环尾 ()
bin ＝ bin ＋ 到字节集 (取重复文本 (分割符数量, “-”) ＋ boundary ＋ “--” ＋ #换行符 )
返回 (bin)

.版本 2<br /> <br /> .程序集 类_POST数据字节集<br /> .程序集变量 _keys, 文本型, , "0"<br /> .程序集变量 _values, 字节集, , "0"<br /> .程序集变量 _filename, 文本型, , "0"<br /> .程序集变量 _types, 文本型, , "0"<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 清空, , 公开<br /> <br /> 清除数组 (_keys)<br /> 清除数组 (_values)<br /> 清除数组 (_filename)<br /> 清除数组 (_types)<br /> <br /> .子程序 添加, , 公开<br /> .参数 key, 文本型<br /> .参数 value, 字节集<br /> .参数 filename, 文本型, 可空<br /> .参数 type, 文本型, 可空, 如： Content-Type: audio/mp3，请填写【audio/mp3】<br /> <br /> 加入成员 (_keys, key)<br /> 加入成员 (_values, value)<br /> 加入成员 (_filename, filename)<br /> 加入成员 (_types, type)<br /> <br /> .子程序 获取Post数据, 字节集, 公开<br /> .参数 boundary, 文本型<br /> .参数 分割符数量, 整数型, 可空, 默认为2，如：--WebKitFormBoundaryPPRO2xsdBWf1T1h4<br /> .局部变量 i, 整数型<br /> .局部变量 head, 文本型<br /> .局部变量 t, 文本型<br /> .局部变量 bin, 字节集<br /> .局部变量 keys, 文本型, , "0"<br /> .局部变量 values, 文本型, , "0"<br /> <br /> .如果真 (分割符数量 ＝ 0)<br />     分割符数量 ＝ 2<br /> .如果真结束<br /> head ＝ 取重复文本 (分割符数量, “-”) ＋ boundary ＋ #换行符<br /> .计次循环首 (取数组成员数 (_keys), i)<br />     t ＝ head ＋ “Content-Disposition: form-data; name=” ＋ #引号 ＋ _keys <i> ＋ #引号<br />     .如果 (_filename <i> ≠ “”)<br />         t ＝ t ＋ “; filename=” ＋ #引号 ＋ _filename <i> ＋ #引号 ＋ #换行符<br />     .否则<br />         t ＝ t ＋ #换行符<br />     .如果结束<br /> <br />     .如果真 (_types <i> ≠ “”)<br />         t ＝ t ＋ “Content-Type: ” ＋ _types <i> ＋ #换行符<br />     .如果真结束<br />     t ＝ t ＋ #换行符<br />     bin ＝ bin ＋ 到字节集 (t) ＋ _values <i> ＋ { 13, 10 }<br /> .计次循环尾 ()<br /> bin ＝ bin ＋ 到字节集 (取重复文本 (分割符数量, “-”) ＋ boundary ＋ “--” ＋ #换行符)<br /> 返回 (bin)

chinasony

努力学习大神们的手法