📄 adduser.ibas
字号:
' Write iBas code here!
register "/registeruser"
include "word.ibas"
function isValidName(name$)
dim i,len,a$
if name$<>"" then
i=1
len=length(name$)
while i<=len
a$=mid$(name$,i,1)
if a$="*" or a$="/" or a$="\" or a$="?" then 'a$<"A" or a$>"z" then
isValidName=0
return
end if
i=i+1
wend
isValidName= 1
else
isValidName=0
end if
end function
dim ptid,name$,pass$,post$,rs
' main program
ptid= http_get_post(1024)
if ptid>0 then
post$= ptr_write_string$( ptid)
else
{"<html><body>POST data error!</body></html>"}
http_send_flush()
exit
end if
{"<html><body><center><font size=5 color= blue><br>"}
name$=quoted_decode$( findaword$( post$, "Name=","&"))
pass$= quoted_decode$( findaword$( post$, "Password=","&"))
if isValidName(name$)=1 then
rs=ado_open_record("select * from 用户登记表 where 用户名='"+ name$+"'")
if rs>0 and ado_is_eof(rs)<=0 then
{"<br>"+name$+" 已经存在"}
{"<br><hr><a href=register>重新注册</a>"}
else if ado_add_begin(rs)>0 then
ado_add_string(rs, "用户名", name$)
ado_add_string(rs, "用户标识码", "")
ado_add_string(rs, "密码", md5$(pass$))
if ado_update(rs)>0 then
{"<center>"+name$+": 恭喜注册成功!<br>我们将尽快审核你的申请,通过后您就具有上载的权限了,没完成审核前您具有除上载以外的所以权力.<hr><a href='/'>返回登陆</a>"}
else
{"注册失败!!内部错误"}
end if
else
{"无法注册,请重新输入注册信息"}
{"<br><hr><a href=register>重新注册</a>"}
end if
end if
http_send("</body></html>")
http_send_flush()
print "Register ";name$;" OK!"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -