📄 login.ibas
字号:
'
'
register "/Login"
include "word.ibas"
sub show_content()
dim rss
rss= ado_open_record("SELECT * FROM 文件列表 ORDER BY 用户名 asc, 上载时间 asc")
if rss>0 then
{"<center><hr><font size=4 color= 0xAAAAAA>所有文件列表<br><table border align=center>
<tr><td>上载人</td><td>文件介绍</td><td>上载时间</td><td>下载</td></tr>"}
while ado_is_eof(rss)=0
{"<tr><td>" +
ado_get_string$(rss, "用户名")+"</td><td>"+
ado_get_string$(rss, "文件名称")+"</td><td>"+
ado_get_date$(rss, "上载时间")+"</td><td>"+
"<a href=/?"+ ado_get_string$(rss, "文件完整目录")+">下载</a>"+
"</td>"}
ado_move_next(rss)
wend
{"</table></center>"}
end if
end sub
function updateid$( rs, name$, pass$)
dim md$,date$
if ado_is_eof(rs) =0 then
md$= md5$(pass$+ rand())
ado_add_string( rs, "用户标识码", md$)
ado_add_string( rs, "ip", net_get_ip$())
date$= get_time$()
ado_add_date(rs, "登录时间", date$)
' print name$;" 登录时间:";date$
if ado_update(rs)>0 then
updateid$= md$
else
print "update failed......"
end if
end if
end function
dim ptid,post$,name$,pass$,md$,rs
' main program
ptid= http_get_post(1024)
if ptid<=0 then exit
post$= ptr_write_string$(ptid)
name$=quoted_decode$(findaword$( post$, "Name=","&"))
pass$= quoted_decode$(findaword$( post$, "Password=","&"))
{"<html><body><font size=3 color= blue><br>"}
'print "finished"
rs=ado_open_record("select * from 用户登记表 where 用户名='"+ name$+"' AND 密码='"+md5$(pass$) +"' ")
'print "finished 1"
if ado_is_eof(rs) then
{"<br>"+name$+" 不存在,或者密码错误!"}
{"<br><hr><a href='/register'>重新注册</a>"}
else
md$=updateid$(rs, name$, pass$)
'print "finished 2"
if md$="" then
{" 系统错误 "}
else
{"<font size=2 color=0xAA5500 align=left>欢迎"+ name$+" <a href='upload?name="+name$+"&id="+ md$+"'>上载新文件</a></font>"}
{"<font size=2 color=0x0005AA align=right>......<a href='search?name="+name$+"&id="+ md$+"'>站内搜索</a></font>"}
show_content()
{"<hr><center><a href='/Logout?name="+name$+"&id="+md$+"'>注销</a>"}
end if
end if
{"<br><hr><h5><center>中国网络工作小组 @ 2006.2</center></body></html>"}
http_send_flush()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -