xu_demo4.asp

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

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

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

' 检查用户名和密码
If NOT myUpload.IsError Then
	If myUpload.Form("username") <> "guest" Then
		myUpload.OutErr("输入的用户名不正确，请重新输入。")
	ElseIf myUpload.Form("password") <> "8888" Then
		myUpload.OutErr("输入的密码不正确，请重新输入。")
	End If
End If

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
%>