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"
%>