求救一下~~~数组成员引用下标超出定义范围~~~是那里错误

zhu20004

1. .版本 2
   
2. .支持库 internet
   
3. .支持库 iext
   
4. 
   
5. .程序集 窗口程序集2
   
6. .程序集变量 数字, 整数型
   
7. .程序集变量 WEB空间, 文本型
   
8. .程序集变量 临时登录_登录模式, 文本型
   
9. .程序集变量 临时登录_指定免费时间, 文本型
   
10. .程序集变量 公告, 文本型
    
11. .程序集变量 是否提示公告内容, 文本型
    
12. .程序集变量 系统版本, 文本型
    
13. .程序集变量 页面公告, 文本型
    
14. .程序集变量 个数, 整数型
    
15. 
    
16. .子程序 __启动窗口_创建完毕
    
17. 
    
18. 加载皮肤 (11)
    
19. 加载Aero特效 ()
    
20. WEB空间 ＝ “http://127.0.0.1:3031/”  ' WEB空间的地址.如果是域名的话请写入域名地址.如http://www.baidu.com/ 注意：最后一定要加上“/”符号
    
21. 读取管理端配置 ()
    
22. 
    
23. .子程序 读取管理端配置
    
24. .局部变量 读WEB空间管理端配置, 文本型
    
25. .局部变量 数据组, 文本型, , "0"
    
26. 
    
27. 网络验证 ()
    
28. 读WEB空间管理端配置 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “读取配置信息.asp?防IE输入验证=cc”))
    
29. 数据组 ＝ 分割文本 (读WEB空间管理端配置, “|々|”, )
    
30. 公告 ＝ 数据组 [3]
    
31. 是否提示公告内容 ＝ 数据组 [5]
    
32. 系统版本 ＝ 数据组 [6]
    
33. 页面公告 ＝ 数据组 [7]
    
34. .如果真 (系统版本 ≠ “v2.5”)
    
35.     信息框 (“系统检测有新的版本程序已发布,请到指定的地方下载最新版本.”, #信息图标, “公告”)
    
36.     结束 ()
    
37. .如果真结束
    
38. .如果真 (是否提示公告内容 ＝ “客户端启动后提示公告内容”)
    
39.     .如果 (公告 ＝ “”)
    
40.         信息框 (“管理员没设置任何公告内容.”, #信息图标, “公告”)
    
41.     .否则
    
42.         公告信息.标题 ＝ 页面公告
    
43.         信息框 (公告, #信息图标, “公告”)
    
44.     .如果结束
    
45. 
    
46. .如果真结束
    
47. 
    
48. 
    
49. .子程序 网络验证
    
50. .局部变量 检测WEB空间网络, 文本型
    
51. 
    
52. 检测WEB空间网络 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “验证网络.asp”))
    
53. .如果 (寻找文本 (检测WEB空间网络, “网络连接失败”, , 假) ≠ -1)
    
54. 
    
55. .否则
    
56.     信息框 (“网络连接错误”, #错误图标, “连接错误”)
    
57.     结束 ()
    
58. .如果结束
    
59. 
    
60. 
    
61. .子程序 _会员登录_会员用户登录_被单击
    
62. .局部变量 读WEB空间会员登录, 文本型
    
63. .局部变量 数据组, 文本型, , "0"
    
64. 
    
65. 网络验证 ()
    
66. 读WEB空间会员登录 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “会员用户登录.asp?防IE输入验证=cc&用户帐号=” ＋ 会员登录_会员帐号.内容 ＋ “&用户密码=” ＋ 会员登录_会员密码.内容))
    
67. .如果 (寻找文本 (读WEB空间会员登录, “登录成功,欢迎使用小聪制作的网络验证.”, , 假) ≠ -1)
    
68.     会员登录_会员帐号.禁止 ＝ 真
    
69.     会员登录_会员密码.禁止 ＝ 真
    
70.     会员登录_会员用户登录.禁止 ＝ 真
    
71.     选择夹1.禁止 ＝ 真
    
72.     信息框 (“会员登录成功.”, #信息图标, “登录”)
    
73.     数据组 ＝ 分割文本 (读WEB空间会员登录, “|々|”, )
    
74.     绑定的游戏帐号 ＝ 数据组 [3]
    
75.     _启动窗口.可视 ＝ 假
    
76.     .判断循环首 (进程是否存在 (“DNF.exe”))
    
77.         载入 (窗口2, , 真)
    
78.         跳出循环 ()
    
79.     .判断循环尾 ()
    
80. 
    
81. .否则
    
82.     信息框 (读WEB空间会员登录, #信息图标, “提示”)
    
83. .如果结束
    
84. 
    
85. 
    
86. .子程序 _注册用户_检测帐号是否存在_被单击
    
87. .局部变量 读WEB空间检测帐号, 文本型
    
88. 
    
89. 网络验证 ()
    
90. 读WEB空间检测帐号 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “检测帐号是否存在.asp?防IE输入验证=cc&注册帐号=” ＋ 注册用户_注册帐号.内容))
    
91. .如果 (寻找文本 (读WEB空间检测帐号, “恭喜,该帐号目前未被注册.”, , 假) ≠ -1)
    
92.     信息框 (读WEB空间检测帐号, #信息图标, “提示”)
    
93.     注册用户_注册密码.禁止 ＝ 假
    
94.     注册用户_确认密码.禁止 ＝ 假
    
95.     注册用户_绑定帐号.禁止 ＝ 假
    
96.     注册用户_注册用户信息.禁止 ＝ 假
    
97. .否则
    
98.     信息框 (读WEB空间检测帐号, #信息图标, “提示”)
    
99. .如果结束
    
100. 
     
101. 
     
102. .子程序 _注册用户_注册用户信息_被单击
     
103. .局部变量 读WEB空间注册用户, 文本型
     
104. 
     
105. 网络验证 ()
     
106. 读WEB空间注册用户 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “注册会员帐号.asp?防IE输入验证=cc&注册帐号=” ＋ 注册用户_注册帐号.内容 ＋ “&注册密码=” ＋ 注册用户_注册密码.内容 ＋ “&确认密码=” ＋ 注册用户_确认密码.内容 ＋ “&绑定帐号=” ＋ 注册用户_绑定帐号.内容))
     
107. .如果 (寻找文本 (读WEB空间注册用户, “成功注册会员用户.”, , 假) ≠ -1)
     
108.     信息框 (读WEB空间注册用户, #信息图标, “提示”)
     
109.     注册用户_注册帐号.内容 ＝ “”
     
110.     注册用户_注册密码.内容 ＝ “”
     
111.     注册用户_确认密码.内容 ＝ “”
     
112.     注册用户_绑定帐号.内容 ＝ “”
     
113.     注册用户_注册密码.禁止 ＝ 真
     
114.     注册用户_确认密码.禁止 ＝ 真
     
115.     注册用户_绑定帐号.禁止 ＝ 真
     
116.     注册用户_注册用户信息.禁止 ＝ 真
     
117. .否则
     
118.     信息框 (读WEB空间注册用户, #信息图标, “提示”)
     
119. .如果结束
     
120. 
     
121. 
     
122. .子程序 _注册用户_重置用户信息_被单击
     
123. 
     
124. 注册用户_注册帐号.内容 ＝ “”
     
125. 注册用户_注册密码.内容 ＝ “”
     
126. 注册用户_确认密码.内容 ＝ “”
     
127. 注册用户_绑定帐号.内容 ＝ “”
     
128. 注册用户_注册帐号.获取焦点 ()
     
129. 
     
130. 
     
131. .子程序 _修改密码_修改用户信息_被单击
     
132. .局部变量 读WEB空间修改密码, 文本型
     
133. 
     
134. 网络验证 ()
     
135. 读WEB空间修改密码 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “会员修改密码.asp?防IE输入验证=cc&用户帐号=” ＋ 修改密码_用户帐号.内容 ＋ “&旧的密码=” ＋ 修改密码_旧的密码.内容 ＋ “&新的密码=” ＋ 修改密码_新的密码.内容 ＋ “&确认密码=” ＋ 修改密码_确认密码.内容))
     
136. 信息框 (读WEB空间修改密码, #信息图标, “提示”)
     
137. 
     
138. 
     
139. .子程序 _充值用户_充值用户信息_被单击
     
140. .局部变量 读WEB空间充值用户信息, 文本型
     
141. 
     
142. 网络验证 ()
     
143. 读WEB空间充值用户信息 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “充值会员用户.asp?防IE输入验证=cc&会员帐号=” ＋ 充值用户_会员帐号.内容 ＋ “&会员密码=” ＋ 充值用户_会员密码.内容 ＋ “&充值号码=” ＋ 充值用户_充值卡号.内容 ＋ “&充值密码=” ＋ 充值用户_充值密码.内容))
     
144. 信息框 (读WEB空间充值用户信息, #信息图标, “提示”)
     
145. 
     
146. 
     
147. .子程序 _转绑查询_单选框1_被单击
     
148. 
     
149. 转绑查询_原游戏帐号.内容 ＝ “”
     
150. 转绑查询_原游戏帐号.禁止 ＝ 假
     
151. 转绑查询_转绑游戏帐号.内容 ＝ “”
     
152. 转绑查询_转绑游戏帐号.禁止 ＝ 假
     
153. 转绑查询_查看用户时间.可视 ＝ 假
     
154. 转绑查询_确定转绑游戏帐号.可视 ＝ 真
     
155. 
     
156. 
     
157. .子程序 _转绑查询_单选框2_被单击
     
158. 
     
159. 转绑查询_原游戏帐号.内容 ＝ “”
     
160. 转绑查询_原游戏帐号.禁止 ＝ 真
     
161. 转绑查询_转绑游戏帐号.内容 ＝ “”
     
162. 转绑查询_转绑游戏帐号.禁止 ＝ 真
     
163. 转绑查询_查看用户时间.可视 ＝ 真
     
164. 转绑查询_确定转绑游戏帐号.可视 ＝ 假
     
165. 
     
166. 
     
167. .子程序 _转绑查询_确定转绑游戏帐号_被单击
     
168. .局部变量 读WEB空间转绑查询, 文本型
     
169. 
     
170. 网络验证 ()
     
171. 读WEB空间转绑查询 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “转绑和查询.asp?防IE输入验证=转绑功能&用户帐号=” ＋ 转绑查询_用户帐号.内容 ＋ “&用户密码=” ＋ 转绑查询_用户密码.内容 ＋ “&原游戏帐号=” ＋ 转绑查询_原游戏帐号.内容 ＋ “&转绑游戏帐号=” ＋ 转绑查询_转绑游戏帐号.内容))
     
172. 信息框 (读WEB空间转绑查询, #信息图标, “提示”)
     
173. 
     
174. 
     
175. .子程序 _转绑查询_查看用户时间_被单击
     
176. .局部变量 读WEB空间转绑查询, 文本型
     
177. 
     
178. 网络验证 ()
     
179. 读WEB空间转绑查询 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “转绑和查询.asp?防IE输入验证=查询功能&用户帐号=” ＋ 转绑查询_用户帐号.内容 ＋ “&用户密码=” ＋ 转绑查询_用户密码.内容))
     
180. 信息框 (读WEB空间转绑查询, #信息图标, “提示”)
     
181. 
     
182. 
     
183. .子程序 _按钮1_被单击
     
184. 
     
185. 信息框 (“欢迎您下次使用.”, 0, )
     
186. 销毁 ()
     
187. 结束 ()
     
188. 
     
189. 
     
190. .子程序 _友情链接_被选择
     
191. 
     
192. 打开网页 (“http://www.ahubao.com/”)
     
193. 
     
194. .子程序 _阿虎宝连接_被选择
     
195. 
     
196. 信息框 (“申请友情链接请联系您的上家就是卖您卡密的人！”, 0, “阿虎宝提示”)
     

复制代码

exit11

[e].版本 2
.支持库 spec

.子程序 读取管理端配置
.局部变量 读WEB空间管理端配置, 文本型
.局部变量 数据组, 文本型, , "0"

网络验证 ()
读WEB空间管理端配置 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “读取配置信息.asp?防IE输入验证=cc”))
数据组 ＝ 分割文本 (读WEB空间管理端配置, “|々|”, )
' ==============================================================
.判断开始 (取数组成员数 (数据组) ≥ 7)  ' 增加的判断
    公告 ＝ 数据组 [3]
    是否提示公告内容 ＝ 数据组 [5]
    系统版本 ＝ 数据组 [6]
    页面公告 ＝ 数据组 [7]
    .如果真 (系统版本 ≠ “v2.5”)
        信息框 (“系统检测有新的版本程序已发布,请到指定的地方下载最新版本.”, #信息图标, “公告”)
        结束 ()
    .如果真结束
    .如果真 (是否提示公告内容 ＝ “客户端启动后提示公告内容”)
        .如果 (公告 ＝ “”)
            信息框 (“管理员没设置任何公告内容.”, #信息图标, “公告”)
        .否则
            公告信息.标题 ＝ 页面公告
            信息框 (公告, #信息图标, “公告”)
        .如果结束

    .如果真结束

.默认
    调试输出 (读WEB空间管理端配置)
    信息框 (“检查错误”, 0, )
    返回 ()
.判断结束



.子程序 网络验证
.局部变量 检测WEB空间网络, 文本型

检测WEB空间网络 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “验证网络.asp”))
.如果 (寻找文本 (检测WEB空间网络, “网络连接失败”, , 假) ≠ -1)

.否则
    信息框 (“网络连接错误”, #错误图标, “连接错误”)
    结束 ()
.如果结束


.子程序 _会员登录_会员用户登录_被单击
.局部变量 读WEB空间会员登录, 文本型
.局部变量 数据组, 文本型, , "0"

网络验证 ()
读WEB空间会员登录 ＝ 到文本 (HTTP读文件 (WEB空间 ＋ “会员用户登录.asp?防IE输入验证=cc&用户帐号=” ＋ 会员登录_会员帐号.内容 ＋ “&用户密码=” ＋ 会员登录_会员密码.内容))
.如果 (寻找文本 (读WEB空间会员登录, “登录成功,欢迎使用小聪制作的网络验证.”, , 假) ≠ -1)
    会员登录_会员帐号.禁止 ＝ 真
    会员登录_会员密码.禁止 ＝ 真
    会员登录_会员用户登录.禁止 ＝ 真
    选择夹1.禁止 ＝ 真
    信息框 (“会员登录成功.”, #信息图标, “登录”)
    数据组 ＝ 分割文本 (读WEB空间会员登录, “|々|”, )
    ' ===================================================
    .判断开始 (取数组成员数 (数据组) ≥ 3)  ' 增加的数组成员数量判断
        绑定的游戏帐号 ＝ 数据组 [3]
        _启动窗口.可视 ＝ 假
        .判断循环首 (进程是否存在 (“DNF.exe”))
            载入 (窗口2, , 真)
            跳出循环 ()
        .判断循环尾 ()

    .默认
        调试输出 (读WEB空间会员登录)  ' 查看返回文本是否正常输出
        信息框 (“错误”, 0, )
        返回 ()
    .判断结束

.否则
    信息框 (读WEB空间会员登录, #信息图标, “提示”)[/e]

wang9606

数据组 ＝ 分割文本 (读WEB空间管理端配置, “|々|”, )
最好在这里 加上 取数组成员数(数据组)  判断一下有没有你引用到的那么多数组成员。

zhu20004

回复 2# wang9606


    不懂怎么弄了。。。5555555555

昙花不在痛

exit11 厉害呢，如果要读数据库里的信息，然后弹出怎么写呢？大侠