#scp
#L脚本语言实现HTTP服务器#这个HTTP服务器可以实现简单的静态html web网站
定义:字符串,string1,"hello webserver!"
定义:字符串,string2,""
定义:字符串,string3,""
定义:字符串,getstr,"GET"
定义:字符串,httpver,"HTTP/1.1"
定义:地址,addr2,127.0.0.1,80
定义:字符串,strrootpath,H:\
定义:整数,length,0
定义:整数,pos,0
定义:整数,pos2,0
定义:网络连接,conn2,TCP
定义:函数,发送文件内容,我的文件名
定义:字符串,strfilename,""
连接:字符串,strfilename,strrootpath
连接:字符串,strfilename,我的文件名
显示:strfilename
打开:文件,file1,strfilename
定义:字符串,文件内容
读取:文件,file1,文件内容
发送:conn2,文件内容
关闭:文件,file1
结束
定义:函数,routine
监听:conn2,addr2
接收:conn2,string2
#从收到的HTTP请求中找到文件名
查找:字符串,string2,getstr,pos
查找:字符串,string2,httpver,pos2
pos+=5
pos2-=5
取子串:string3,string2,pos,pos2
#从root文件夹中读取文件并发送
取大小:字符串,string3,length
如果:length>0,调用:函数,发送文件内容,string3
关闭:网络连接,conn2
结束
当:1,调用:函数,routine