模板
教程
環境
性能
功能
管理
asp+xml上傳文件
<font size=18>test.htm上傳文件表單頁面代碼：
<HTML>
<HEAD>
<TITLE>File Send</TITLE>
</HEAD>
<BODY>
<INPUT id=filename name=filename type=file>
<INPUT id=btn_send name="btn_send" type=button value="FILE SEND">
<DIV id=div_message>Ready</div>
</BODY>
</HTML>
<SCRIPT LANGUAGE=javascript>
// 上傳函數
function btn_send.onclick()
{
if (filename.value=="")
{
alert("文件不存在，或文件內容為空。");
return false;
}
//創建 ADO-stream 對象
var ado_stream = new ActiveXObject("ADODB.Stream");
//創建包含默認頭信息和根節點的 XML文檔
var xml_dom = new ActiveXObject("MSXML2.DOMDocument");
xml_dom.loadXML('<?xml version="1.0" ?> <root/>');
//指定數據類型
xml_dom.documentElement.setAttribute("xmlns:dt", "urn:schemas-microsoft-com:datatypes");
//創建一個新節點，設置其為二進制數據節點
var file_body = xml_dom.createElement("file_body");
file_body.dataType = "bin.base64";
//打開Stream對象，讀源文件
ado_stream.Type = 1; // 1=adTypeBinary
ado_stream.Open();
ado_stream.LoadFromFile(filename.value);
//將文件內容存入XML節點
file_body.nodeTypedvalue = ado_stream.Read(-1); // -1=adReadAll
ado_stream.Close();
xml_dom.documentElement.appendChild(file_body);
//
//創建一個新節點，設置其為字符串型數據
var file_name = xml_dom.createElement("file_name");
file_name.dataType = "string";
//將文件名存儲在此節點
file_name.nodeTypedvalue = filename.value.toString();
xml_dom.documentElement.appendChild(file_name);
//
//可以創建多個二進制節點，一次上傳多個文件
//把XML文檔發送到Web服務器
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.open("POST","./test.asp",false);
xmlhttp.send(xml_dom);
//顯示服務器返回的信息
div_message.innerHTML = xmlhttp.ResponseText;
}
</SCRIPT>
<font size=18>test.asp上傳文件處理程序代碼：
<%@ LANGUAGE=VBScript%>
<%
Option Explicit
Response.Expires = 0
' 定義變量和對象。
dim ado_stream
dim xml_dom,filename
dim xml_file1,xml_file2
'創建 Stream 對象
set ado_stream = Server.CreateObject("ADODB.Stream")
'從Request對象創建 XMLDOM對象
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")
xml_dom.load(request)
'讀出文件的文件名
set xml_file2 = xml_dom.selectSingleNode("root/file_name")
filename = ParseFileName(Cstr(xml_file2.nodeTypedvalue))
'讀出包含二進制數據的節點
set xml_file1 = xml_dom.selectSingleNode("root/file_body")
' 打開Stream對象，把數據存入其中
ado_stream.Type = 1 ' 1=adTypeBinary
ado_stream.open
ado_stream.Write xml_file1.nodeTypedvalue
' 文件存盤
dim filepath
if right(server.mappath("upload"),1)<>"\" then
filepath = Server.mappath("upload") + "\" + filename
else
filepath = server.mappath("upload") + filename
end if
ado_stream.SaveToFile filepath,2 ' 2=adSaveCreateOverWrite
ado_stream.close
' 銷毀對象
set ado_stream = Nothing
set xml_dom = Nothing
' 向瀏覽器返回信息
Response.Write "Upload suclearcase/" target="_blank" >ccessful!"+ filename
Function ParseFileName (sFileIn)
Dim I
For I = Len(sFileIn) To 1 Step -1
If InStr("\", Mid(sFileIn, I, 1)) Then Exit For
Next
ParseFileName = Mid(sFileIn, I + 1, Len(sFileIn) - I)
End Function
%>
