服务端没有返回“OK”两个字符
if (result=='OK') { //返回OK,表示成功
show("tst2");
location="upload.htm";
}
else{
show("tst3",2000);
}
---------
Case "receive.htm"
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"d:\web\uploadfiles\" & fln) '保存接收到的文件
Next
Next
e.WriteString("OK") ‘返回OK,表示成功