网络云记事本POST操作源码增加注册功能

.子程序 添加记事, 文本型, 公开, 成功返回true，失败返回false
.参数 title, 文本型, , 标题
.参数 content, 文本型, , 内容
.参数 categoryid, 文本型, 可空, 可空，默认为 ID_默认分类 。 常量 #ID_
.参数 tags, 文本型, 可空, 可空，标签
.局部变量 date, 文本型

date ＝ “title=” ＋ URLEncodeUtf8 (title) ＋ “&content=%3Cp%3E%26nbsp%3B” ＋ URLEncodeUtf8 (content) ＋ “%3C%2Fp%3E&categoryid=” ＋ 选择 (是否为空 (categoryid), #ID_默认分类, categoryid) ＋ “&tags=” ＋ 选择 (是否为空 (tags), “”, URLEncodeUtf8 (tags)) ＋ “&content_org=&action=save&id=&draftid=&isaddex=0”
http.Open (“POST”, “http://www.******.cn/api/note/save/”)
http.SetAccept (“application/json, text/javascript, */*”)
http.SetContentType (“application/x-www-form-urlencoded”)
http.SetReferer (“http://www.******.cn/note/add”)
http.SetXMLHttpRequest ()
http.Send (date)
str ＝ http.GetResponseText ()
调试输出 (“添加记事：” ＋ str)
.如果真 (寻找文本 (str, “true”, , 假) ≠ -1)
返回 (“true”)
.如果真结束
返回 (“false”)