关于编码！！！！

liu307921917

微凉 发表于 2010-6-23 21:53
{:3_215:}做火星人就可以看明白拉

这个微凉大神不会看不懂吧？网页源码+usc2转ansi

微凉

  

子程序名	返回值类型	公开	备 注
编码_usc2到ansi	文本型		将usc2转变成ansi  如 %u0031%u0032%u0033 转换后为 123 失败返回空文本
参数名	类 型	参考	可空	数组	备 注
欲转换的文本	文本型				\u %u \u25 等3种格式,如果是其它格式,请先用子文本替换成这三种的任意一种才能正常转换

变量名	类 型	静态	数组	备 注
脚本对象	对象
局_文本	文本型

线程_初始化COM库 ()
局_文本 ＝ 子文本替换 (欲转换的文本, #换行符, “{$}”, , , 真)
如果真 (取字节集左边 (到字节集 (取文本左边 (局_文本, 10)), 1) ＝ { 13 })
局_文本 ＝ 到文本 (子字节集替换 (到字节集 (局_文本), { 13 }, {  }, , 1))
判断 (寻找文本 (局_文本, “\u”, , 假) ≠ -1)
局_文本 ＝ 子文本替换 (局_文本, “\u”, “%u”, , , 真)
判断 (寻找文本 (局_文本, “\u25”, , 假) ≠ -1)
局_文本 ＝ 子文本替换 (局_文本, “\u25”, “%u”, , , 真)


局_文本 ＝ 子文本替换 (局_文本, “'”, “’”, , , 真)
脚本对象.创建 (“ScriptControl”, )
脚本对象.写属性 (“Language”, “JScript”)
脚本对象.数值方法 (“ExecuteStatement”, “function xx(){var x='” ＋ 局_文本 ＋ “';return unescape(x);}”)
局_文本 ＝ 脚本对象.文本方法 (“Run”, “xx”)
脚本对象.清除 ()
线程_取消COM库 ()
局_文本 ＝ 子文本替换 (局_文本, “’”, “'”, , , 真)
返回 (子文本替换 (局_文本, “{$}”, #换行符, , , 真))

.版本 2<br /> <br /> .子程序 编码_usc2到ansi, 文本型, 公开, 将usc2转变成ansi  如 %u0031%u0032%u0033 转换后为 123 失败返回空文本<br /> .参数 欲转换的文本, 文本型, , \u %u \u25 等3种格式,如果是其它格式,请先用子文本替换成这三种的任意一种才能正常转换<br /> .局部变量 脚本对象, 对象<br /> .局部变量 局_文本, 文本型<br /> <br /> 线程_初始化COM库 ()<br /> 局_文本 ＝ 子文本替换 (欲转换的文本, #换行符, “{$}”, , , 真)<br /> .如果真 (取字节集左边 (到字节集 (取文本左边 (局_文本, 10)), 1) ＝ { 13 })<br />     局_文本 ＝ 到文本 (子字节集替换 (到字节集 (局_文本), { 13 }, {  }, , 1))<br /> .如果真结束<br /> .判断开始 (寻找文本 (局_文本, “\u”, , 假) ≠ -1)<br />     局_文本 ＝ 子文本替换 (局_文本, “\u”, “%u”, , , 真)<br /> .判断 (寻找文本 (局_文本, “\u25”, , 假) ≠ -1)<br />     局_文本 ＝ 子文本替换 (局_文本, “\u25”, “%u”, , , 真)<br /> .默认<br /> <br /> .判断结束<br /> 局_文本 ＝ 子文本替换 (局_文本, “'”, “’”, , , 真)<br /> 脚本对象.创建 (“ScriptControl”, )<br /> 脚本对象.写属性 (“Language”, “JScript”)<br /> 脚本对象.数值方法 (“ExecuteStatement”, “function xx(){var x='” ＋ 局_文本 ＋ “';return unescape(x);}”)<br /> 局_文本 ＝ 脚本对象.文本方法 (“Run”, “xx”)<br /> 脚本对象.清除 ()<br /> 线程_取消COM库 ()<br /> 局_文本 ＝ 子文本替换 (局_文本, “’”, “'”, , , 真)<br /> 返回 (子文本替换 (局_文本, “{$}”, #换行符, , , 真))