ASP网络验证系统完整版

.子程序 效验连接, 逻辑型, 公开, 判断远程网络验证服务端是否正常(正常为真、异常为假)
.参数 效验地址, 文本型, , 此地址为统一服务端验证地址（如：http://127.0.0.1/）[头部和尾部必须有http://和/]
.局部变量 验证, 文本型
.局部变量 变量, 文本型, , "0"
.局部变量 随机, 文本型

服务端地址 ＝ 效验地址
随机 ＝ 到文本 (MD5 (到字节集 (取随机数 (1000, 9999))))
验证 ＝ XMLhttp (服务端地址 ＋ “api.asp”)
变量 ＝ 分割文本 (到文本 (XMLhttp (服务端地址 ＋ “time.asp?random=” ＋ 随机)), “ ”, )
.判断开始 (验证 ＝ MD5 (到字节集 (变量 [1] ＋ “date”)))