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 + -
显示快捷键?