VML绘图板④简化的服务器端--server.php、server.asp

服务器端
************
* server.php
************
<?php
$s = $HTTP_RAW_POST_DATA;
$t = gettimeofday();
$n = $t[sec].$t[usec];
$filename = "vml/" .$n. ".txt";
$fp = fopen($filename,"w");
fwrite($fp,$s);
fclose($fp);
echo $s;
?

************
* server.asp
************
<%@ Language=VBScript %
<%
Response.expires=-1
dim xmlrec
set xmlrec=server.CreateObject("microsoft.xmldom")
xmlrec.async=false
xmlrec.load(Request)
xmlrec.save Server.MapPath(".")&"xxxx.xml"
%