演示一个简单WEB服务器,网页的文字图形音乐都能展示的目标基本实现。

0ximi · 发表于 2017-12-6 22:52:06

/*
演示一个简单WEB服务器，网页的文字图形音乐都能展示的目标基本实现。
未来目标：1、完善路由函数
2、实现GET POST数据上传
3、数据能实现sqlite3存储
*/
// 导入调试库、线程库、simpleHttpServer库、网卡库
import console;
import process;
import wsock.tcp.simpleHttpServer;
import inet.adapter;
// 确定本机IP 用于服务器绑定IP
for adptInfo in inet.adapter.each() {
if ( string.match(adptInfo.description ,"本地连接")){
webIp = adptInfo.currentIpAddress;
break ;
}elseif( string.match(adptInfo.description ,"无线网络连接") ){
webIp = adptInfo.currentIpAddress;
break ;
}
}
//启动 ip为webIp，端口为80的服务器线程。
var srvHttp = wsock.tcp.simpleHttpServer( webIp ,80);
//cmd模式显示 url连接 ,WIN系统调出默认浏览器测试网页情况效果。
console.log(srvHttp.getUrl());
process.execute(srvHttp.getUrl());
//服务器响应后各种处理步骤，放在匿名函数function(response,request)内。
srvHttp.run(
function(response,request){
//导入输入输出库、字符串操作库、url解析库
import io;
import string;
import inet.url;
import console;
/*
设计路由函数：
参数：url
返回：目标路径、目标文件类型、错误标记、错误页面
*/
var UrlRouter =function(url){
var errorFlag = false;
//计算目标路径
var sfile = url;
if( sfile == "/" || sfile ="/main.aardio"){
sfile = "d:\web\index.html";
}else{
sfile = "d:\web" + string.replace(sfile,"/","");
}
//计算目标文件类型
var ctType ="";
if(string.match(sfile,".")){}else{sfile = sfile+".*"};
ext = string.split( sfile,'.')[2];
select(ext) {
case "html" { ctType ="text/html"; }
case "htm" { ctType ="text/html"; }
case "xml" { ctType ="text/xml"; }
case "js" { ctType ="application/x-javascript";}
case "css" { ctType ="text/css";}
case "txt" { ctType ="text/plain";}
case "jpg" { ctType ="image/jpeg";}
case "png" { ctType ="image/image/png";}
case "gif" { ctType ="image/image/gif";}
case "ico" { ctType ="image/image/x-icon";}
case "bmp" { ctType = "application/x-bmp";}
case "*" { ctType ="application/octet-stream";}
else {
ctType ="application/octet-stream";
}
}
//目标文件不存在404处理
var fullpath = io.exist( sfile );
if( ! fullpath ){
var page404 = /*
<!DOCTYPE html><html><head><title>404错误 - HTTP made by Aardio</title><body> "don't busy on trying, maybe you just took a wrong way of opening." -- kindly tip from 404</body></head></html>
*/
errorFlag = true;
errhtml = page404;
}
return sfile, ctType, errorFlag, errhtml;
};
/*
服务器响应后各种处理步骤：
第一步，通过获取到的请求响应request对象的url属性，分解出url中的path。
第二步，将path传去路由函数，为了获取目标路径、目标文件类型、错误标记、错误页面等结果。
第三步，依据路由函数返回的结果。
回复对象的contentType属性设置为路由函数返回的目标文件类型。
回复对象的传送数据：错真就传错误页面，错假就传目标文件的二进制数据。
回复对象的其他属性按simpleHttpServer内置默认的。
*/
var url = request.url ;
var urlArray = inet.url.split( url );
var urlPath = urlArray.path;
console.log(urlPath);
var sfile, ctType, err, errdate = UrlRouter(urlPath);
if(err){
response.writeBuffer( errdate ,string.len(errdate));
}else {
var file = io.file(sfile,"rb");
while(
var buf;
buf,readSize = file.read(1024);
buf
){
response.contentType = ctType;
response.writeBuffer(buf,readSize) ;
}
file.close();
}
response.close();
})

复制代码

0ximi · 发表于 2017-12-6 23:02:48

网站目录为：d:\web

zhoubujin · 发表于 2017-12-6 23:17:55

JacenHe · 发表于 2017-12-7 00:49:34

代码是写的很不错，

不过这些功能，不是 wsock.tcp.simpleHttpServer 内部都已提供了吗？！
象URL解析，MIME获取这些都已经在request对象里有了呀。

如果要做路由，只要判断 request.contentType ，根据 request.path 作出应答就可以。
普通的文件下载，或者 aardio模板解析输出，用 response.loadcode( request.path ); 就可以了。

获取文件的MIME类型，可以用这个函数
fsys.mime.fromFile(".html")

0ximi · 发表于 2017-12-7 12:46:53

第52句复制过程丢失了"\"，应纠正为 sfile = "d:\web" + string.replace(sfile,"/","\");

因为inet,wsock，simpleHttpServer库读得不深入，这个演示是东边看点，西边看点，
尽量多了解WEB服务器原理后，看着《VB6之HTTP服务器的实现 - lichmama - 博客园》
https://www.cnblogs.com/lichmama/archive/2014/07/06/3828543.html。
试着将它翻译为aardio代码，当中除了碰到mswinsock.getData()函数问题;
还卡住在二进制数据传不全，乱码。感觉一些原理多多少少知道一点点，翻译代码也基本弄出来，能出404页面，乱码页。
最后才考虑到全部用aardio代码库去实现，参考simpleHttpServer的文件服务器代码、
aardio\codes\范例程序\网络应用\wsock\传送文件\服务端.aardio 以及VB6之HTTP服务器的实现悟出的东西，凑出来的代码。

JacenHe · 发表于 2017-12-7 13:13:36

0ximi 发表于 2017-12-7 12:46
第52句复制过程丢失了"\"，应纠正为 sfile = "d:\web" + string.replace(sfile,"/","\");

因为inet,wsoc ...

仅仅是实现一个HTTP服务器没有几句代码的，
HTTP协议可以想简单一点就是发个字符串的事，不要去想的很复杂。

wsock.tcp.simpleHttpServer 是要构建一个兼容FastCGI的开发环境，例如提供兼容的request,response对象，虽然他的名字叫simpleHttpServer ，还是实现了不少东西，例如多线程，304检测这些（避免重复请求下载未更改的文件），断点续传，POST，文件上传..........，虽然叫simpleHttpServer ，但是可以直接在里面开发网站，如果用VB6来打比方 - 相当于用VB6实现一个支持ASP开发的HTTP服务器。

hejin8288 · 发表于 2017-12-10 14:45:17

有用,顶一下!

hejin8288 · 发表于 2017-12-10 17:23:02

Jacen.He 发表于 2017-12-7 13:13
仅仅是实现一个HTTP服务器没有几句代码的，
HTTP协议可以想简单一点就是发个字符串的事，不要去想的很复杂 ...

Jacen,是不所有的干活都要放到 server.run(
function(response,request){
//response.loadcode( request.path ); //参数可以省略
response.write("AAAAAAAAAAAAAAAA");

}
);
里面操作?

JacenHe · 发表于 2017-12-10 17:27:37

hejin8288 发表于 2017-12-10 17:23
Jacen,是不所有的干活都要放到 server.run(
function(response,request){
//response.loadcode( r ...

run函数只是启动器，
你用你注释掉的 response.loadcode( request.path ); 就可以加载网址里请求路径对应的代码了。

hejin8288 · 发表于 2017-12-10 17:33:32

Jacen.He 发表于 2017-12-10 17:27
run函数只是启动器，
你用你注释掉的 response.loadcode( request.path ); 就可以加载网址里请求路径对 ...

Jacen回复的好快!
我是说,比如我写了一个读取数据库表记录的function dbTest(){}函数,那我的这个dbTest要放到哪里调用,是不是只写在server.run(
function(response,request){
})里?

JacenHe · 发表于 2017-12-10 19:00:04

hejin8288 发表于 2017-12-10 17:33
Jacen回复的好快!
我是说,比如我写了一个读取数据库表记录的function dbTest(){}函数,那我的这个dbTest ...

你要在run函数里调用dbTest，
并不需要把dbTest写在run里面。

前面我已经回复过你这个问题了，run只是一个线程启动函数。
你可以把server.run 理解成IIS, 你自己的代码就是PHP，要要执行PHP，你写PHP文件里就可以了，并不需要去纠结怎么把他写到IIS的代码里。

先去看一下入门教程，
得到别人的回复，去思考一下，动一下手，不要不停的追问。

hejin8288 · 发表于 2017-12-10 22:30:28

Jacen.He 发表于 2017-12-10 19:00
你要在run函数里调用dbTest，
并不需要把dbTest写在run里面。

好的,谢谢!

		自动登录	找回密码
密码			注册会员