📄 list.ibas
字号:
' Write iBas code here!
register "/list"
include "word.ibas"
sub show_content(name$)
dim rss
rss= ado_open_record("SELECT * FROM 文件列表")
if rss>0 then
{"<center><hr><font size=3 color=0x003300>所有文件列表<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
' main program
dim post$,name$,id$,rs
'print post$
post$= http_get_value$("Url")
name$= quoted_decode$(findaword$( post$, "name=","&"))
id$= quoted_decode$(findaword$( post$, "id=","&"))
{"<html><body><font size=3 color= blue><br>"}
rs=ado_open_record("select * from 用户登记表 where 用户名='"+ name$+"' AND 用户标识码='"+id$ +"' AND ip='"+net_get_ip$()+"'")
if ado_is_eof(rs) then
{"<br>"+name$+"身份信息不正确!请重新登录."}
{"<br><hr><a href=/>重新登录</a>"}
else
{"<font size=2 color=0xAA5500 align=left>欢迎"+ name$+" <a href='upload?name="+name$+"&id="+ id$+"'>上载新文件</a></font>"}
{"<font size=2 color=0x0005AA align=right>......<a href='search?name="+name$+"&id="+ id$+"'>站内搜索</a></font>"}
show_content(name$)
{"<hr><center><a href='/Logout?name="+name$+"&id="+id$+"'>注销</a>"}
end if
{"<br><hr><h5><center>中国网络工作小组 @ 2006.2</center></body></html>"}
http_send_flush()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -