本地PHP搭建简单测试服务器及VBscript接口测试脚本

由于项目中使用http通信，并且服务平台与终端开发不在一个地方，因此，当平台因为某种原因停机，常常就会影响到终端的工作，因此，需要一个最简单的方法搭建一个本地服务器，用来测试终端，我这里使用的终端OS平台是windows mobile。使用PHP来搭建这样一个简单的服务器，用来测试项目中的通信和接口。
首先可以下载一个FleaPHP，这是一个可以自动帮你配置apach+php的集成环境，当然你也可以自己手动配置，那么就要分别下载apach和PHP5，而且配置起来蛮曲折的，主要是把各个主要文件的路经设置妥当。这部分我就不说了。
建一个PHP文件，用来接受处理http通信，代码很简单：
<?php
echo "running";
foreach (getallheaders() as $name => $value)
{
if($name=='action'&&$value=="getContent ")
{
header('HTTP/1.1 200 OK');
header('result-code:0');
header('TimeStamp: 2009-12-15');
header('APIVersion:1.0.0');
header('Content-Type: application/xml;charset=UTF-8');
$file = fopen("getContent.xml","r");
while(!feof($file))
{
echo fgets($file);
}
fclose($file);
}
｝
?>
这里用来处理http通信，getContent就是接口名称，action是接口的key，在终端发出http头要定义“action”，”getContent”这样的匹配值！getContent.xml是XML文件，请求的数据都在里面，代码执行完之后会把这个XML的数据发回给终端。这个头会遍历整个请求头，因此请求头不要太啰嗦。另外终端不要试图使用127.0.0.1或localhost这样的地址访问本地服务器。直接使用服务器分配到的IP访问，另外还要注意一点就是大小写的配置，你可以配置不区分大小写，如果不知道配，就直接看往来的数据，看看是否有大小写不匹配的地方。顺带贴一个.vbs文件用来测试服务器:
'写文件
Sub CreateAFile(ByVal httpInfo)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("E://Bodyfile.txt", True)
MyFile.WriteLine(httpInfo)
MyFile.Close
End Sub

'----------------------------服务器请求-----------------------------------------
Dim httpUrl '定义变量
httpUrl = "http://127.0.0.1:80/mobile.php/portapi"'请求URL
Set objXMLhttp = CreateObject("Microsoft.XMLHTTP") '建立Microsoft.XMLHTTP对象
objXMLhttp.Open "get",httpUrl,false '打开GET/POST连接
'-----------------------设置发送头信息------------------------------------------
objXMLhttp.SetRequestHeader "Content-Type", "application/xml" '内容类型
objXMLhttp.SetRequestHeader "Action", getContent'请求动作(获取系统书签)
'-------------------------------------------------------------------------------
objXMLhttp.send "<Request></Request>" '发送请求数据

CreateAFile(objXMLhttp.ResponseText)'调用子过程写文件

'-----------------------信息长度最大为1024才可以用一下方法显示-----------------
WScript.Echo(objXMLhttp.getAllResponseHeaders)'返回所有头信息
WScript.Echo(objXMLhttp.ResponseText)'返回所以BODY信息

InputBox "欢迎使用服务器接口测试工具","全部头信息",objXMLhttp.getAllResponseHeaders
InputBox "欢迎使用服务器接口测试工具","全部体信息",objXMLhttp.ResponseText