📄 searchfile.ibas
字号:
' Write iBas code here!
register "/searchfile"
'
include "word.ibas"
dim ptid,post$,refer$,name$,id$,rs,filename$,usid$,uploaduser$,sql$
dim rs2,i
ptid= http_get_post(1024)
if ptid<=0 then exit
post$=quoted_decode$(ptr_write_string$(ptid))
refer$=http_get_value$("Referer")
name$=findaword$(refer$, "name=", "&")
id$=findaword$(refer$, "id=", "&")
rs=ado_open_record("select * from 用户登记表 where 用户名='"+ name$+"' AND 用户标识码='"+id$ +"' AND ip='"+net_get_ip$()+"'")
if ado_is_eof(rs) then
{"<html><body><br>"+name$+"身份信息不正确!请重新登录.<br><hr><a href=/>重新登录</a></body></html>"}
http_send_flush()
exit
end if
filename$= findaword$( post$, "filename=","&")
usid$= findaword$( post$, "usid=","&")
uploaduser$= findaword$( post$, "who_upload=","&")
sql$= " WHERE 文件名称 LIKE '%"+filename$+"%'"
if usid$<>"" then sql$=sql$+ " AND 文件编码='"+usid$+"'"
if uploaduser$<>"" then sql$=sql$+ " AND 用户名='"+uploaduser$+"'"
rs2=ado_open_record("select * from 文件列表"+sql$)
{"<html><body>"}
{"<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(rs2)<=0
for i=1 to 15
{"<tr><td>" +
ado_get_string$(rs2, "用户名")+"</td><td>"+
ado_get_string$(rs2, "文件名称")+"</td><td>"+
ado_get_date$(rs2, "上载时间")+"</td><td>"+
"<a href=/?"+ ado_get_string$(rs2, "文件完整目录")+">下载</a>"+
"</td>"}
if ado_move_next(rs2)<=0 or ado_is_eof(rs2) then break
next i
'wend
{"</table></center>"}
{"<hr><center><a href='search?name="+name$+"&id="+ id$+"'>重新搜索</a>"}
{"</body></html>"}
http_send_flush()
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -