logout.ibas

来自「用iBASIC语言编写的HTTP服务器源代码例子。」· IBAS 代码 · 共 35 行

IBAS
35 行
字号 
' Write iBas code here!
register "/Logout"
'
include "word.ibas"
DIM URL$,name$,id$,sql$,rs

Url$= http_get_value$("Url")
if find(Url$, "&",1) <=0 then end

name$=quoted_decode$( findaword$( Url$, "name=", "&"))
id$= quoted_decode$( findaword$(Url$, "id=", "&"))

sql$="select * from 用户登记表 where 用户名='"+ name$+"' AND 用户标识码='"+ id$ +"'"
rs=ado_open_record( sql$)

if rs<=0 then
	{"打开数据库失败"}
	http_send_flush()
	end
end if
if ado_is_eof(rs) then
	{"无效的用户信息"}
	http_send_flush()
	end
end if

ado_add_string( rs, "用户标识码", "")
'ado_add_String( rs, "用户名", name$)
if ado_update(rs)>0 then
	{"<html><body><center><font color=brown size=5>成功注销本次登录<br><hr><a href='/'>返回主页</a></body></html>"}
	http_send_flush()
else
	{"更新数据库信息失败"}
	http_send_flush()
end if

logout.ibas - 源码说明

本页面展示了「用iBASIC语言编写的HTTP服务器源代码例子。」中的 logout.ibas 源码文件，采用 IBAS 编程语言编写，共 35 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与iBASIC相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?