易语言数据库操作

icaizi

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

变量名	类 型	静态	数组	备 注
temp	文本型		0

' 有使用问题请加群：65142806 沟通
' URL ＝ “http://127.0.0.1xxhp”  ' 调用之前，必须先给URL赋上正确的地址值.
' SQL_cha询数据 (“bbs”, “pre_common_member”, “`username`,`password`”, “`uid`=1”, temp)
' 调试输出 (temp)
' 调试输出 (SQL_添加数据 (“bbs”, “pre_common_member”, “`username`”, “'fuckyou'”))
' 调试输出 (SQL_删除数据 (“bbs”, “pre_common_member”, “`ID`=3”))
' 调试输出 (SQL_修改数据 (“bbs”, “pre_common_member”, “`username`='fuck1212'”, “`ID`=4”))
' 调试输出 (SQL_取记录数 (“bbs”, “pre_common_member”, “`username`='fuck1212'”))
' 调试输出 (SQL_执行语句 (“bbs”, “UPDATE `pre_common_member` SET `username`='shit110' WHERE `ID`=5”))
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

子程序名	返回值类型	公开	备 注
初始化api
参数名	类 型	参考	可空	数组	备 注
url1	文本型

URL ＝ url1
输出调试文本 (url1)

子程序名	返回值类型	公开	备 注
SQL_执行语句	逻辑型
参数名	类 型	参考	可空	数组	备 注
数据库	文本型				数据库名
SQL语句	文本型				要执行的SQL语句

变量名	类 型	静态	数组	备 注
RAND_C	整数型
temp	文本型

RAND_C ＝ GET_CLIENT_RAND ()
temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|SQL|+|” ＋ 数据库 ＋ “|+|” ＋ SQL语句 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)
如果 (到整数 (temp) ＝ 1)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
SQL_取记录数	文本型
参数名	类 型	参考	可空	数组	备 注
数据库	文本型				数据库名
数据表	文本型				数据表名
条件	文本型				要读取数据条数的条件 如:`usertype`=1

变量名	类 型	静态	数组	备 注
RAND_C	整数型
temp	文本型

如果真 (寻找文本 (条件, “where”, , 真) ＝ -1 且 条件 ≠ “”)
条件 ＝ “ WHERE ” ＋ 条件
如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)
数据表 ＝ “`” ＋ 数据表 ＋ “`”
RAND_C ＝ GET_CLIENT_RAND ()
temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|GUN|+|” ＋ 数据库 ＋ “|+|” ＋ 数据表 ＋ “|+|” ＋ 条件 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)
返回 (temp)

子程序名	返回值类型	公开	备 注
SQL_添加数据	逻辑型
参数名	类 型	参考	可空	数组	备 注
数据库	文本型				数据库名
数据表	文本型				数据表名
字段名	文本型				要添加的字段名 如:`id`,`username`
字段值	文本型				要添加的字段值 如:'1','fuck'

变量名	类 型	静态	数组	备 注
temp	文本型
RAND_C	整数型

如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)
数据表 ＝ “`” ＋ 数据表 ＋ “`”
RAND_C ＝ GET_CLIENT_RAND ()
temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|UPD|+|” ＋ 数据库 ＋ “|+|i|+|” ＋ 数据表 ＋ “|+|” ＋ 字段名 ＋ “|+|” ＋ 字段值 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)
如果 (到整数 (temp) ＝ 1)
返回 (真)
返回 (假)
' 本源码来自易语言资源网([url]www.eyuyan.la[/url])

子程序名	返回值类型	公开	备 注
SQL_修改数据	逻辑型
参数名	类 型	参考	可空	数组	备 注
数据库	文本型				数据库名
数据表	文本型				数据表名
添加值	文本型				要修改的字段值 如:`id`=1,`username`='fuck'
条件	文本型				要修改的条件 如:`id`=1

变量名	类 型	静态	数组	备 注
RAND_C	整数型
temp	文本型

如果真 (寻找文本 (条件, “where”, , 真) ＝ -1 且 条件 ≠ “”)
条件 ＝ “ WHERE ” ＋ 条件
如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)
数据表 ＝ “`” ＋ 数据表 ＋ “`”
RAND_C ＝ GET_CLIENT_RAND ()
temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|UPD|+|” ＋ 数据库 ＋ “|+|u|+|” ＋ 数据表 ＋ “|+|” ＋ 添加值 ＋ “|+|” ＋ 条件 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)
如果 (到整数 (temp) ＝ 1)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
SQL_删除数据	逻辑型
参数名	类 型	参考	可空	数组	备 注
数据库	文本型				数据库名
数据表	文本型				数据表名
条件	文本型				要删除的条件语句 如:`id`=1

变量名	类 型	静态	数组	备 注
RAND_C	整数型
temp	文本型

如果真 (寻找文本 (条件, “where”, , 真) ＝ -1 且 条件 ≠ “”)
条件 ＝ “ WHERE ” ＋ 条件
如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)
数据表 ＝ “`” ＋ 数据表 ＋ “`”
RAND_C ＝ GET_CLIENT_RAND ()
temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|UPD|+|” ＋ 数据库 ＋ “|+|d|+|” ＋ 数据表 ＋ “|+|” ＋ 条件 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)
如果 (到整数 (temp) ＝ 1)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
SQL_cha询数据
参数名	类 型	参考	可空	数组	备 注
数据库	文本型				数据库名
数据表	文本型				数据表名
字段名	文本型				读取的字段名称 如:`id`,`username`
条件	文本型				读取的条件语句  如:`id`=1
结果数组	文本型

变量名	类 型	静态	数组	备 注
temp	文本型
RAND_C	整数型
一次分割	文本型		0
二次分割	文本型		0
计次1	整数型
计次2	整数型

如果真 (寻找文本 (条件, “where”, , 真) ＝ -1 且 条件 ≠ “”)
条件 ＝ “ WHERE ” ＋ 条件
如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)
数据表 ＝ “`” ＋ 数据表 ＋ “`”
RAND_C ＝ GET_CLIENT_RAND ()
temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|QUE|+|” ＋ 数据库 ＋ “|+|” ＋ 数据表 ＋ “|+|” ＋ 字段名 ＋ “|+|” ＋ 条件 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)
清除数组 (结果数组)
' 本源码来自易语言资源网([url]www.eyuyan.la[/url])
一次分割 ＝ 分割文本 (temp, “
”, )
计次循环首 (取数组成员数 (一次分割), 计次1)
二次分割 ＝ 分割文本 (一次分割 [计次1], “/”, )
计次循环首 (取数组成员数 (二次分割), 计次2)
加入成员 (结果数组, 二次分割 [计次2])
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
GET_CLIENT_RAND	整数型

返回 (到整数 (取文本右边 (到文本 (取启动时间 () ＋ 到整数 (时间到时间戳 (取现行时间 ()))), 4)))

子程序名	返回值类型	公开	备 注
GET_SERVER_RAND	文本型

返回 (到文本 (解密数据 (十六进制到字节集_ (到文本 (Post (URL, “DATA=GETRAND?” ＋ 时间到时间戳 (取现行时间 ())))), 到文本 (85 ＋ 4) ＋ “n” ＋ 到文本 (2 ＋ 1) ＋ “kb” ＋ 到文本 (3 ＋ 2) ＋ “bj” ＋ 到文本 (6 ＋ 3) ＋ “h” ＋ 到文本 (1 ＋ 2) ＋ “gz” ＋ 到文本 (1 ＋ 1), #RC4算法 )))

子程序名	返回值类型	公开	备 注
HTTP_数据解密	文本型
参数名	类 型	参考	可空	数组	备 注
TXT	文本型
rand	整数型

返回 (到文本 (解密数据 (十六进制到字节集_ (到文本 (解密数据 (十六进制到字节集_ (TXT), 到文本 (85 ＋ 4) ＋ “n” ＋ 到文本 (2 ＋ 1) ＋ “kb” ＋ 到文本 (3 ＋ 2) ＋ “bj” ＋ 到文本 (6 ＋ 3) ＋ “h” ＋ 到文本 (1 ＋ 2) ＋ “gz” ＋ 到文本 (1 ＋ 1), #RC4算法 ))), RANDS (rand), #RC4算法 )))

子程序名	返回值类型	公开	备 注
HTTP_数据加密	文本型
参数名	类 型	参考	可空	数组	备 注
TXT	文本型
rand	文本型

返回 (字节集到十六进制_ (加密数据 (到字节集 (字节集到十六进制_ (加密数据 (到字节集 (TXT), 到文本 (85 ＋ 4) ＋ “n” ＋ 到文本 (2 ＋ 1) ＋ “kb” ＋ 到文本 (3 ＋ 2) ＋ “bj” ＋ 到文本 (6 ＋ 3) ＋ “h” ＋ 到文本 (1 ＋ 2) ＋ “gz” ＋ 到文本 (1 ＋ 1), #RC4算法 ))), rand, #RC4算法 )))

子程序名	返回值类型	公开	备 注
RANDS	文本型
参数名	类 型	参考	可空	数组	备 注
rand	整数型

返回 (到文本 (rand × 1020 ÷ 2))

子程序名	返回值类型	公开	备 注
时间到时间戳	文本型
参数名	类 型	参考	可空	数组	备 注
时间值	日期时间型

变量名	类 型	静态	数组	备 注
初始时间	日期时间型

初始时间 ＝ 到时间 (“1970-01-01 08:00:00”)
返回 (到文本 (取时间间隔 (时间值, 初始时间, #秒 )))

子程序名	返回值类型	公开	备 注
Get	字节集
参数名	类 型	参考	可空	数组	备 注
Url	文本型

变量名	类 型	静态	数组	备 注
http	对象
return	字节集

加载 (0)
http.创建 (“Microsoft.XMLHTTP”, )
http.方法 (“Open”, “GET”, Url, 假)
http.方法 (“SetRequestHeader”, “Accept”, “*/*”)
http.方法 (“SetRequestHeader”, “Accept-Language”, “zh-CN”)
http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)”)
http.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
http.方法 (“SetRequestHeader”, “Accept-Encoding”, “deflate”)
http.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
http.方法 (“Send”, )
return ＝ http.读属性 (“ResponseBody”, ).取字节集 ()
卸载 ()
返回 (return)

子程序名	返回值类型	公开	备 注
Post	字节集
参数名	类 型	参考	可空	数组	备 注
Url	文本型
Send	文本型

变量名	类 型	静态	数组	备 注
http	对象
return	字节集

加载 (0)
http.创建 (“Microsoft.XMLHTTP”, )
http.方法 (“Open”, “POST”, Url, 假)
http.方法 (“SetRequestHeader”, “Accept”, “*/*”)
http.方法 (“SetRequestHeader”, “Accept-Language”, “zh-CN”)
http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)”)
http.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
http.方法 (“SetRequestHeader”, “Accept-Encoding”, “deflate”)
http.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)
http.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)
http.方法 (“Send”, Send)
return ＝ http.读属性 (“ResponseBody”, ).取字节集 ()
卸载 ()
返回 (return)

子程序名	返回值类型	公开	备 注
十六进制到字节集_	字节集
参数名	类 型	参考	可空	数组	备 注
原始16进制文本	文本型				如“00BFAD00AFD4FD4F9E054F9FF91FC5FF2076FBAFDB071044”

变量名	类 型	静态	数组	备 注
字节集	字节集
次数	整数型
临时变量	整数型

字节集 ＝ {  }
变量循环首 (1, 取文本长度 (原始16进制文本), 2, 次数)
临时变量 ＝ 取十进制 (取文本中间 (原始16进制文本, 次数, 2), 0)
字节集 ＝ 字节集 ＋ 取字节集左边 (到字节集 (临时变量), 1)
变量循环尾 ()
返回 (字节集)

子程序名	返回值类型	公开	备 注
取十进制	整数型
参数名	类 型	参考	可空	数组	备 注
欲转换的值	文本型				欲转换的值，文本型！
数值类型	整数型				0，#十六进制；1，#十进制（默认）；2，#八进制；3，#二进制

变量名	类 型	静态	数组	备 注
s	整数型			最终结果
a	整数型			中间变量
b	整数型			中间变量
c	文本型			中间变量
d	整数型			中间变量

欲转换的值 ＝ 到小写 (欲转换的值)
如果真 (是否为空 (数值类型))
数值类型 ＝ 1
s ＝ 0
判断 (数值类型 ＝ 0)
a ＝ 取文本长度 (欲转换的值)
变量循环首 (1, a, 1, b)
c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)
如果真 (取代码 (c, ) ≤ 取代码 (“f”, ) 且 取代码 (c, ) ≥ 取代码 (“a”, ) 或 取代码 (c, ) ≤ 取代码 (“F”, ) 且 取代码 (c, ) ≥ 取代码 (“A”, ))
如果真 (取代码 (c, ) ≥ 取代码 (“A”, ) 且 取代码 (c, ) ≤ 取代码 (“F”, ))
d ＝ 取代码 (c, ) － 取代码 (“A”, ) ＋ 10
如果真 (取代码 (c, ) ≥ 取代码 (“a”, ) 且 取代码 (c, ) ≤ 取代码 (“f”, ))
d ＝ 取代码 (c, ) － 取代码 (“a”, ) ＋ 10

如果真 (取代码 (c, ) ≤ 取代码 (“9”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))
d ＝ 到数值 (c)
s ＝ s ＋ 求次方 (16, b － 1) × d
变量循环尾 ()


判断 (数值类型 ＝ 1)
s ＝ 到数值 (欲转换的值)


判断 (数值类型 ＝ 2)
a ＝ 取文本长度 (欲转换的值)
变量循环首 (1, a, 1, b)
c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)
如果真 (取代码 (c, ) ≤ 取代码 (“7”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))
d ＝ 到数值 (c)
s ＝ s ＋ 求次方 (8, b － 1) × d
变量循环尾 ()


判断 (数值类型 ＝ 3)
a ＝ 取文本长度 (欲转换的值)
变量循环首 (1, a, 1, b)
c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)
如果真 (取代码 (c, ) ≤ 取代码 (“1”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))
d ＝ 到数值 (c)
s ＝ s ＋ 求次方 (2, b － 1) × d
变量循环尾 ()


返回 (s)

子程序名	返回值类型	公开	备 注
字节集到十六进制_	文本型
参数名	类 型	参考	可空	数组	备 注
初始字节集	字节集				用于转换的字节集

变量名	类 型	静态	数组	备 注
进制文本	文本型
次数	整数型
temp	文本型

计次循环首 (取字节集长度 (初始字节集), 次数)
temp ＝ 取十六进制文本 (取字节集数据 (取字节集中间 (初始字节集, 次数, 1), 3, ))
如果真 (取文本长度 (temp) ＝ 1)
temp ＝ “0” ＋ temp
进制文本 ＝ 进制文本 ＋ temp
计次循环尾 ()
返回 (进制文本)

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br /> .支持库 dp1<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> .局部变量 temp, 文本型, , "0"<br /> <br /> ' 有使用问题请加群：65142806 沟通<br /> ' URL ＝ “http://127.0.0.1xxhp”  ' 调用之前，必须先给URL赋上正确的地址值.<br /> <br /> <br /> <br /> <br /> ' SQL_cha询数据 (“bbs”, “pre_common_member”, “`username`,`password`”, “`uid`=1”, temp)<br /> ' 调试输出 (temp)<br /> ' 调试输出 (SQL_添加数据 (“bbs”, “pre_common_member”, “`username`”, “'fuckyou'”))<br /> ' 调试输出 (SQL_删除数据 (“bbs”, “pre_common_member”, “`ID`=3”))<br /> ' 调试输出 (SQL_修改数据 (“bbs”, “pre_common_member”, “`username`='fuck1212'”, “`ID`=4”))<br /> ' 调试输出 (SQL_取记录数 (“bbs”, “pre_common_member”, “`username`='fuck1212'”))<br /> ' 调试输出 (SQL_执行语句 (“bbs”, “UPDATE `pre_common_member` SET `username`='shit110' WHERE `ID`=5”))<br /> <br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> <br /> <br /> .子程序 初始化api, , 公开<br /> .参数 url1, 文本型<br /> <br /> URL ＝ url1<br /> <br /> 输出调试文本 (url1)<br /> <br /> <br /> .子程序 SQL_执行语句, 逻辑型, 公开<br /> .参数 数据库, 文本型, , 数据库名<br /> .参数 SQL语句, 文本型, , 要执行的SQL语句<br /> .局部变量 RAND_C, 整数型<br /> .局部变量 temp, 文本型<br /> <br /> RAND_C ＝ GET_CLIENT_RAND ()<br /> temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|SQL|+|” ＋ 数据库 ＋ “|+|” ＋ SQL语句 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)<br /> .如果 (到整数 (temp) ＝ 1)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 SQL_取记录数, 文本型, 公开<br /> .参数 数据库, 文本型, , 数据库名<br /> .参数 数据表, 文本型, , 数据表名<br /> .参数 条件, 文本型, 可空, 要读取数据条数的条件 如:`usertype`=1<br /> .局部变量 RAND_C, 整数型<br /> .局部变量 temp, 文本型<br /> <br /> .如果真 (寻找文本 (条件, “where”, , 真) ＝ -1 且 条件 ≠ “”)<br />     条件 ＝ “ WHERE ” ＋ 条件<br /> .如果真结束<br /> .如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)<br />     数据表 ＝ “`” ＋ 数据表 ＋ “`”<br /> .如果真结束<br /> RAND_C ＝ GET_CLIENT_RAND ()<br /> temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|GUN|+|” ＋ 数据库 ＋ “|+|” ＋ 数据表 ＋ “|+|” ＋ 条件 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)<br /> 返回 (temp)<br /> <br /> .子程序 SQL_添加数据, 逻辑型, 公开<br /> .参数 数据库, 文本型, , 数据库名<br /> .参数 数据表, 文本型, , 数据表名<br /> .参数 字段名, 文本型, , 要添加的字段名 如:`id`,`username`<br /> .参数 字段值, 文本型, , 要添加的字段值 如:'1','fuck'<br /> .局部变量 temp, 文本型<br /> .局部变量 RAND_C, 整数型<br /> <br /> .如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)<br />     数据表 ＝ “`” ＋ 数据表 ＋ “`”<br /> .如果真结束<br /> RAND_C ＝ GET_CLIENT_RAND ()<br /> temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|UPD|+|” ＋ 数据库 ＋ “|+|i|+|” ＋ 数据表 ＋ “|+|” ＋ 字段名 ＋ “|+|” ＋ 字段值 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)<br /> .如果 (到整数 (temp) ＝ 1)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> ' 本源码来自易语言资源网(<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a>)<br /> <br /> <br /> .子程序 SQL_修改数据, 逻辑型, 公开<br /> .参数 数据库, 文本型, , 数据库名<br /> .参数 数据表, 文本型, , 数据表名<br /> .参数 添加值, 文本型, , 要修改的字段值 如:`id`=1,`username`='fuck'<br /> .参数 条件, 文本型, 可空, 要修改的条件 如:`id`=1<br /> .局部变量 RAND_C, 整数型<br /> .局部变量 temp, 文本型<br /> <br /> .如果真 (寻找文本 (条件, “where”, , 真) ＝ -1 且 条件 ≠ “”)<br />     条件 ＝ “ WHERE ” ＋ 条件<br /> .如果真结束<br /> .如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)<br />     数据表 ＝ “`” ＋ 数据表 ＋ “`”<br /> .如果真结束<br /> RAND_C ＝ GET_CLIENT_RAND ()<br /> temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|UPD|+|” ＋ 数据库 ＋ “|+|u|+|” ＋ 数据表 ＋ “|+|” ＋ 添加值 ＋ “|+|” ＋ 条件 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)<br /> .如果 (到整数 (temp) ＝ 1)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 SQL_删除数据, 逻辑型, 公开<br /> .参数 数据库, 文本型, , 数据库名<br /> .参数 数据表, 文本型, , 数据表名<br /> .参数 条件, 文本型, 可空, 要删除的条件语句 如:`id`=1<br /> .局部变量 RAND_C, 整数型<br /> .局部变量 temp, 文本型<br /> <br /> .如果真 (寻找文本 (条件, “where”, , 真) ＝ -1 且 条件 ≠ “”)<br />     条件 ＝ “ WHERE ” ＋ 条件<br /> .如果真结束<br /> .如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)<br />     数据表 ＝ “`” ＋ 数据表 ＋ “`”<br /> .如果真结束<br /> RAND_C ＝ GET_CLIENT_RAND ()<br /> temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|UPD|+|” ＋ 数据库 ＋ “|+|d|+|” ＋ 数据表 ＋ “|+|” ＋ 条件 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)<br /> .如果 (到整数 (temp) ＝ 1)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 SQL_cha询数据, , 公开<br /> .参数 数据库, 文本型, , 数据库名<br /> .参数 数据表, 文本型, , 数据表名<br /> .参数 字段名, 文本型, , 读取的字段名称 如:`id`,`username`<br /> .参数 条件, 文本型, 可空, 读取的条件语句  如:`id`=1<br /> .参数 结果数组, 文本型, 数组<br /> .局部变量 temp, 文本型<br /> .局部变量 RAND_C, 整数型<br /> .局部变量 一次分割, 文本型, , "0"<br /> .局部变量 二次分割, 文本型, , "0"<br /> .局部变量 计次1, 整数型<br /> .局部变量 计次2, 整数型<br /> <br /> .如果真 (寻找文本 (条件, “where”, , 真) ＝ -1 且 条件 ≠ “”)<br />     条件 ＝ “ WHERE ” ＋ 条件<br /> .如果真结束<br /> .如果真 (寻找文本 (数据表, “`”, , 假) ＝ -1)<br />     数据表 ＝ “`” ＋ 数据表 ＋ “`”<br /> .如果真结束<br /> RAND_C ＝ GET_CLIENT_RAND ()<br /> temp ＝ HTTP_数据解密 (到文本 (Post (URL, “DATA=” ＋ HTTP_数据加密 (到文本 (RAND_C) ＋ “|+|QUE|+|” ＋ 数据库 ＋ “|+|” ＋ 数据表 ＋ “|+|” ＋ 字段名 ＋ “|+|” ＋ 条件 ＋ “|+|”, GET_SERVER_RAND ()))), RAND_C)<br /> 清除数组 (结果数组)<br /> ' 本源码来自易语言资源网(<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a>)<br /> 一次分割 ＝ 分割文本 (temp, “<br /> ”, )<br /> .计次循环首 (取数组成员数 (一次分割), 计次1)<br />     二次分割 ＝ 分割文本 (一次分割 [计次1], “/”, )<br />     .计次循环首 (取数组成员数 (二次分割), 计次2)<br />         加入成员 (结果数组, 二次分割 [计次2])<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 GET_CLIENT_RAND, 整数型<br /> <br /> 返回 (到整数 (取文本右边 (到文本 (取启动时间 () ＋ 到整数 (时间到时间戳 (取现行时间 ()))), 4)))<br /> <br /> .子程序 GET_SERVER_RAND, 文本型<br /> <br /> 返回 (到文本 (解密数据 (十六进制到字节集_ (到文本 (Post (URL, “DATA=GETRAND?” ＋ 时间到时间戳 (取现行时间 ())))), 到文本 (85 ＋ 4) ＋ “n” ＋ 到文本 (2 ＋ 1) ＋ “kb” ＋ 到文本 (3 ＋ 2) ＋ “bj” ＋ 到文本 (6 ＋ 3) ＋ “h” ＋ 到文本 (1 ＋ 2) ＋ “gz” ＋ 到文本 (1 ＋ 1), #RC4算法)))<br /> <br /> .子程序 HTTP_数据解密, 文本型<br /> .参数 TXT, 文本型<br /> .参数 rand, 整数型<br /> <br /> 返回 (到文本 (解密数据 (十六进制到字节集_ (到文本 (解密数据 (十六进制到字节集_ (TXT), 到文本 (85 ＋ 4) ＋ “n” ＋ 到文本 (2 ＋ 1) ＋ “kb” ＋ 到文本 (3 ＋ 2) ＋ “bj” ＋ 到文本 (6 ＋ 3) ＋ “h” ＋ 到文本 (1 ＋ 2) ＋ “gz” ＋ 到文本 (1 ＋ 1), #RC4算法))), RANDS (rand), #RC4算法)))<br /> <br /> .子程序 HTTP_数据加密, 文本型<br /> .参数 TXT, 文本型<br /> .参数 rand, 文本型<br /> <br /> 返回 (字节集到十六进制_ (加密数据 (到字节集 (字节集到十六进制_ (加密数据 (到字节集 (TXT), 到文本 (85 ＋ 4) ＋ “n” ＋ 到文本 (2 ＋ 1) ＋ “kb” ＋ 到文本 (3 ＋ 2) ＋ “bj” ＋ 到文本 (6 ＋ 3) ＋ “h” ＋ 到文本 (1 ＋ 2) ＋ “gz” ＋ 到文本 (1 ＋ 1), #RC4算法))), rand, #RC4算法)))<br /> <br /> .子程序 RANDS, 文本型<br /> .参数 rand, 整数型<br /> <br /> 返回 (到文本 (rand × 1020 ÷ 2))<br /> <br /> .子程序 时间到时间戳, 文本型<br /> .参数 时间值, 日期时间型<br /> .局部变量 初始时间, 日期时间型<br /> <br /> 初始时间 ＝ 到时间 (“1970-01-01 08:00:00”)<br /> 返回 (到文本 (取时间间隔 (时间值, 初始时间, #秒)))<br /> <br /> .子程序 Get, 字节集, 公开<br /> .参数 Url, 文本型<br /> .局部变量 http, 对象<br /> .局部变量 return, 字节集<br /> <br /> 加载 (0)<br /> http.创建 (“Microsoft.XMLHTTP”, )<br /> http.方法 (“Open”, “GET”, Url, 假)<br /> http.方法 (“SetRequestHeader”, “Accept”, “*/*”)<br /> http.方法 (“SetRequestHeader”, “Accept-Language”, “zh-CN”)<br /> http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)”)<br /> http.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)<br /> http.方法 (“SetRequestHeader”, “Accept-Encoding”, “deflate”)<br /> http.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> http.方法 (“Send”, )<br /> return ＝ http.读属性 (“ResponseBody”, ).取字节集 ()<br /> 卸载 ()<br /> 返回 (return)<br /> <br /> .子程序 Post, 字节集, 公开<br /> .参数 Url, 文本型<br /> .参数 Send, 文本型<br /> .局部变量 http, 对象<br /> .局部变量 return, 字节集<br /> <br /> 加载 (0)<br /> http.创建 (“Microsoft.XMLHTTP”, )<br /> http.方法 (“Open”, “POST”, Url, 假)<br /> http.方法 (“SetRequestHeader”, “Accept”, “*/*”)<br /> http.方法 (“SetRequestHeader”, “Accept-Language”, “zh-CN”)<br /> http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)”)<br /> http.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)<br /> http.方法 (“SetRequestHeader”, “Accept-Encoding”, “deflate”)<br /> http.方法 (“SetRequestHeader”, “Connection”, “Keep-Alive”)<br /> http.方法 (“SetRequestHeader”, “Cache-Control”, “no-cache”)<br /> http.方法 (“Send”, Send)<br /> return ＝ http.读属性 (“ResponseBody”, ).取字节集 ()<br /> 卸载 ()<br /> 返回 (return)<br /> <br /> .子程序 十六进制到字节集_, 字节集<br /> .参数 原始16进制文本, 文本型, , 如“00BFAD00AFD4FD4F9E054F9FF91FC5FF2076FBAFDB071044”<br /> .局部变量 字节集, 字节集<br /> .局部变量 次数, 整数型<br /> .局部变量 临时变量, 整数型<br /> <br /> 字节集 ＝ {  }<br /> .变量循环首 (1, 取文本长度 (原始16进制文本), 2, 次数)<br />     临时变量 ＝ 取十进制 (取文本中间 (原始16进制文本, 次数, 2), 0)<br />     字节集 ＝ 字节集 ＋ 取字节集左边 (到字节集 (临时变量), 1)<br /> .变量循环尾 ()<br /> 返回 (字节集)<br /> <br /> .子程序 取十进制, 整数型<br /> .参数 欲转换的值, 文本型, , 欲转换的值，文本型！<br /> .参数 数值类型, 整数型, 可空, 0，#十六进制；1，#十进制（默认）；2，#八进制；3，#二进制<br /> .局部变量 s, 整数型, , , 最终结果<br /> .局部变量 a, 整数型, , , 中间变量<br /> .局部变量 b, 整数型, , , 中间变量<br /> .局部变量 c, 文本型, , , 中间变量<br /> .局部变量 d, 整数型, , , 中间变量<br /> <br /> 欲转换的值 ＝ 到小写 (欲转换的值)<br /> .如果真 (是否为空 (数值类型))<br />     数值类型 ＝ 1<br /> .如果真结束<br /> s ＝ 0<br /> .判断开始 (数值类型 ＝ 0)<br />     a ＝ 取文本长度 (欲转换的值)<br />     .变量循环首 (1, a, 1, b)<br />         c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)<br />         .如果真 (取代码 (c, ) ≤ 取代码 (“f”, ) 且 取代码 (c, ) ≥ 取代码 (“a”, ) 或 取代码 (c, ) ≤ 取代码 (“F”, ) 且 取代码 (c, ) ≥ 取代码 (“A”, ))<br />             .如果真 (取代码 (c, ) ≥ 取代码 (“A”, ) 且 取代码 (c, ) ≤ 取代码 (“F”, ))<br />                 d ＝ 取代码 (c, ) － 取代码 (“A”, ) ＋ 10<br />             .如果真结束<br />             .如果真 (取代码 (c, ) ≥ 取代码 (“a”, ) 且 取代码 (c, ) ≤ 取代码 (“f”, ))<br />                 d ＝ 取代码 (c, ) － 取代码 (“a”, ) ＋ 10<br />             .如果真结束<br /> <br />         .如果真结束<br />         .如果真 (取代码 (c, ) ≤ 取代码 (“9”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))<br />             d ＝ 到数值 (c)<br />         .如果真结束<br />         s ＝ s ＋ 求次方 (16, b － 1) × d<br />     .变量循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (数值类型 ＝ 1)<br />     s ＝ 到数值 (欲转换的值)<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (数值类型 ＝ 2)<br />     a ＝ 取文本长度 (欲转换的值)<br />     .变量循环首 (1, a, 1, b)<br />         c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)<br />         .如果真 (取代码 (c, ) ≤ 取代码 (“7”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))<br />             d ＝ 到数值 (c)<br />         .如果真结束<br />         s ＝ s ＋ 求次方 (8, b － 1) × d<br />     .变量循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (数值类型 ＝ 3)<br />     a ＝ 取文本长度 (欲转换的值)<br />     .变量循环首 (1, a, 1, b)<br />         c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)<br />         .如果真 (取代码 (c, ) ≤ 取代码 (“1”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))<br />             d ＝ 到数值 (c)<br />         .如果真结束<br />         s ＝ s ＋ 求次方 (2, b － 1) × d<br />     .变量循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (s)<br /> <br /> .子程序 字节集到十六进制_, 文本型<br /> .参数 初始字节集, 字节集, , 用于转换的字节集<br /> .局部变量 进制文本, 文本型<br /> .局部变量 次数, 整数型<br /> .局部变量 temp, 文本型<br /> <br /> .计次循环首 (取字节集长度 (初始字节集), 次数)<br />     temp ＝ 取十六进制文本 (取字节集数据 (取字节集中间 (初始字节集, 次数, 1), 3, ))<br />     .如果真 (取文本长度 (temp) ＝ 1)<br />         temp ＝ “0” ＋ temp<br />     .如果真结束<br />     进制文本 ＝ 进制文本 ＋ temp<br /> .计次循环尾 ()<br /> 返回 (进制文本)

2494167678

支持开源~！感谢分享

ruanjiahui

谢谢分享~~~6666

神2

看代码好惨，这个换E2EE应该几行代码搞定

kyo9766

可以极大的方便，重复代码的书写，感谢分享

美髯公

这么好的素材，一定得收藏好了

w55304557

看了下，很好1

gaoqing

谢谢分享啊

perter

666666666666666666666666

perter

作者吱吱吱吱吱吱吱吱吱吱吱吱