上传控件 Xupload 2.1

Xupload是客户端上传控件，服务器端使用Aspupload，下载无限制版的Xupload.ocx

更多信息请参考：http://www.aspupload.com/xupload.html

示例代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%if request("act") = "up" then%><OBJECT RUNAT=Server ID=Upload PROGID="Persits.Upload.1"></OBJECT>
<% nCount = Upload.Save(server.MapPath("tmp"))%><% = nCount %> 个文件已经上传!<%Response.end
end if%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Xupload - 51windows.Net</title>
<style>

</style>
</head>
<body style="margin:2px;background:buttonface;">
<SCRIPT LANGUAGE="VBScript">
Sub Select_OnClick
	UploadCtl.Select
End Sub

Sub SelectFolder_OnClick
	UploadCtl.SelectFolder
End Sub

Sub Remove_OnClick
	UploadCtl.RemoveHighlighted
End Sub

Sub RemoveAll_OnClick
	UploadCtl.RemoveAll
End Sub
Sub Upload_OnClick
	UploadCtl.RemoveAllFormItems
	UploadCtl.Upload
End Sub
</SCRIPT>
<OBJECT WIDTH="100%" HEIGHT="84%" ID="UploadCtl" CLASSID="CLSID:E87F6C8E-16C0-11D3-BEF7-009027438003" CODEBASE="XUpload.ocx">
<PARAM NAME="EnablePopupMenu" VALUE="true">
<PARAM NAME="Server" VALUE="<% = Request.ServerVariables("SERVER_NAME") %>">
<PARAM NAME="Script" VALUE="<% = Request.ServerVariables("SCRIPT_NAME") %>?act=up">