xu_demo5.asp

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

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

myUpload.SetStatURL("upstat.asp?tag=") ' 上传文件统计页面
myUpload.SetAllowExt("bmp;jpg;jpeg;gif;png;tif;tiff")
myUpload.SetThumbImage("100*100") ' 缩略图参数：width * height
myUpload.SetOverlayMode(false) ' 不覆盖同名文件
myUpload.InitParameters()

If myUpload.IsUploadFile Then
	If NOT myUpload.HasThumbImage Then
		myUpload.OutErr("非图形文件，上传错误")
	Else
		' 将文件保存在文件夹 ../uploadfile/images 下
		Dim filename
		filename = myUpload.CreateFileName("../uploadfile/images","",myUpload.Form("xu_filename"))
		If filename <> "" Then filename = myUpload.SaveToFile(filename)
		If filename <> "" Then myUpload.SaveThumbToFile(filename & "-thumb.jpg")
		If filename <> "" Then
			filename = myUpload.CreateFileURL("../uploadfile/images","",filename)
			myUpload.Out(filename)
		End If
	End If
End If
%>