📄 upload.ibas
字号:
' Write iBas code here!
register "/upload"
include "word.ibas"
sub uploadfile(name$)
{"<table class=show_border bgcolor=f0f0f0><tr><td><font color=green>请勿肆意灌水,谢谢!</font>
<tr><td><form name='form1' method=post action=uploadfile enctype='multipart/form-data'>
输入介绍:<br><center><textarea id=text name=text rows=10 cols=80 wrap=physicle tabindex=2'>简介</textarea></td></tr>
<tr><td class=post align=center>上载附件: <input type=file name=up>
<hr><input type=submit value='开始上载'></td></tr></table></form>"}
end sub
' main program
dim url$,mdpass$,name$,rs
{"<html><meta HTTP-EQUIV='Content-Type' CONTENT='text/html; charset=gb2312'><title>上载文件</title><body>"}
Url$ = http_get_value$("Url")
mdpass$= findaword$( url$,"id=","&")
name$= findaword$( url$,"name=","&")
rs= ado_open_record("SELECT * from 用户登记表 where 用户名='"+name$+"' and 用户标识码='"+mdpass$+"'")
' 强制权限则加上这行
' and 用户类型=1")
if rs>0 then
if ado_is_eof(rs)<=0 then
{"欢迎 <font color=red>"+name$+"</font> 上载新文件.<br>"}
uploadfile(name$)
else
{"<font size= 5 color=red><center>目前您还不能上传文件!</font>"}
end if
end if
{"</body></html>"}
http_send_flush()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -