📄 index.ibas
字号:
'Write Ibas code here!
Using stdlib,webserver
Register "/"
'
include "const.ibas"
sub Root()
{"
<html><title>VM sample!</title>"+HTTP_CR$+"<body>
<h1><center>LONG LIVE PRC !!!
<h6>light test
<h4><center>Copyright 2006 @ Richard</center>
<h6><center>Debug version 0.2</center>
<form action=Login target=_top method=post name=form1><table border align=center>
<tr><td>ID/用户名：<input type=text name=Name size=10></td><td>Password/密码：
<input type=password name=Password maxlength=12 size=10></td><td><input type=submit value=Login name=Login size=10></td><script language=javascript><!-- document.form1.Name.focus(); --></script>
<td><a href='register'>注册</a></td></tr>
</table></form>
<p><center><img src='/?./root/bird.jpg' width=200 height=200>
<p><p><a href='Test'>测试代码</a><hr>
<p><p><a href='Test2'>测试代码2</a><hr>
<script language=javascript><!--
document.form1.Name.focus(); --></script>
</body></html>
"}
http_send_flush()
end sub
' main program here
dim url$,index,rs
if http_get_value$("Method")<>"GET" then end
url$= http_get_value$("Url")
if Url$="/" then
print "/"
root()
else
index= instr(url$, "?",1)
if index>0 then
url$=mid$(url$, index+1, -1)
end if
print "Url=";url$
url$= quoted_decode$(url$)
print url$
rs= ado_open_record("SELECT * FROM 文件列表 WHERE 文件完整目录='"+url$+"'")
if ado_is_eof(rs)=0 then http_send_file( url$)
end if
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -