📄 logout.ibas
字号:
' 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⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -