xu_demo3.asp

来自「插件介绍： XUploadFiles 是一个用于辅助网站进行文件上传的」· ASP 代码 · 共 23 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="xu_class.asp"-->
<%
Dim myUpload
Set myUpload = new XUpload_class

myUpload.SetOverlayMode(true) ' 覆盖同名文件
myUpload.InitParameters()

If myUpload.IsUploadFile Then
	' 将文件保存在文件夹 ../uploadfile/[subpath] 下
	Dim filename
	filename = myUpload.CreateFileName("../uploadfile",myUpload.Form("xu_subpath"),myUpload.Form("xu_filename"))
	If filename <> "" Then filename = myUpload.SaveToFile(filename)
	If filename <> "" Then
		filename = myUpload.CreateFileURL("../uploadfile",myUpload.Form("xu_subpath"),filename)
		' 输出：文件名 # 文件类型 # 文件大小
		myUpload.Out(filename)
		myUpload.OutErr("#" & myUpload.Form("xu_filetype"))
		myUpload.OutErr("#" & myUpload.Form("xu_filesize"))
	End If
End If
%>