xu_demo2.asp

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

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

myUpload.SetAllowExt("bmp;jpg;jpeg;gif;png;tif;tiff")
myUpload.SetOverlayMode(true) ' 覆盖同名文件
myUpload.InitParameters()

If myUpload.IsUploadFile Then
	' 将文件保存在文件夹 ../uploadfile/images 下
	Dim filename
	filename = myUpload.CreateFileName("../uploadfile/images","",myUpload.Form("xu_filename"))
	If filename <> "" Then filename = myUpload.SaveToFile(filename)
	If filename <> "" Then
		filename = myUpload.CreateFileURL("../uploadfile/images","",filename)
		myUpload.Out(filename)
	End If
End If
%>