Case "receive.htm"if e.Files.Keys.count > 0 then
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")
else
e.WriteString("请添加文件！")
end if
End Select
js
function afterSubmit(result){
hide("tst1");
if (result=='OK') {
show("tst2");
location="upload.htm";
}
else{
alert(result);
show("tst3",2000);
}
}
加好友 
发短信
Post By：2020/10/26 16:06:00 [显示全部帖子]
