📄 search.ibas
字号:
' Write iBas code here!
register "/search"
'
include "word.ibas"
sub search_file(name$, id$)
{"<form action=searchfile target=_top method=post name=form1><table border align=center>"}
{"<tr><td>文件名<input type=text name=filename size=30></td></tr>"}
{"<tr><td>信息码<input type=text name=usid size=30></td></tr>"}
{"<tr><td>上载人<input type=text name=who_upload size=30></td></tr>"}
{"<tr><td><center><input type=submit value=发送 name=searchfile></td></tr>"}
{"<script language=javascript><!-- document.form1.Name.focus(); --></script>"}
{"</table></form>"}
{"<hr>"}
writelink("返回","/Logout?name="+name$+"&id="+id$)
end sub
' main program
dim url$,name$,mdpass$,rs
{"<html><meta HTTP-EQUIV='Content-Type' CONTENT='text/html; charset=gb2312'><title>搜索文件</title><body>"}
Url$ = http_get_value$("Url")
name$= findaword$( url$,"name=","&")
mdpass$= findaword$( url$,"id=","&")
rs= ado_open_record("SELECT * from 用户登记表 where 用户名='"+name$+"' and 用户标识码='"+mdpass$+"'")
' 强制权限则加上这行
' and 用户类型=1")
if rs<=0 then
{"您登录的信息已经过期，请重新登录"}
http_send_flush()
exit
end if
{"<center><font size=5>请输入搜索信息:<hr>"}
search_file(name$, mdpass$)
http_send("</body></html>")
http_send_flush()
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -