upload.asp

来自「仿雅虎论坛静态生成html版 后台管理:admin/admin.asp 用户」· ASP 代码 · 共 25 行

ASP
25
字号
<!--#include file='upload_config.asp'-->
<!--#include file="../conn.asp"-->
<!--#include file="uploadx.asp"-->
<head>
<link rel="stylesheet" type="text/css" href="../css/style1.css">
</head>
<html>
<%
Dim fileName
Dim PerFileListN
Dim intPerFileListN
Dim PerFilenameN
Dim i
Dim Filelist
Dim UpFlag
SavType = 0					'取得报错方式
filename = SaveFile(FormFieldName, filePath, maxfilesize, SavType, FsoType, ForbidType)	'保存并取得文件名
If len(trim(filename))>0 then
	FileList = ""
	PerFileListN = Split(filename,",")
	intPerFileListN = Ubound(PerFileListN)
		PerFilenameN = Split(Trim(PerFileListN(i)),"|")
		Select Case Trim(PerFilenameN(0))
			Case "SetError"
				Response.Write i+1 &"

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?