📄 upload_id.asp
字号:
<!--#include file='upload_config_ID.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 &"、文件上传出现: 冲突设定错误(FSO和上传模式冲突)<br>"
Case "FsoError"
Response.Write i+1 &"、文件上传出现: FSO设定错误(该主机无FSO权限,但设定时设置为有FSO权限模式)<br>"
Case "PathError"
Response.Write i+1 &"、文件上传出现: 文件保存路径错误(该路径不存在且未设置FSO权限或无FSO权限进行自动创建)<br>"
Case "ReFileError"
Response.Write i+1 &"、文件上传出现: 文件重名错误(该文件在服务器已经存在或存在同名文件且设置为报错模式上传)<br>"
Case "SizeError"
Response.Write i+1 &"、文件上传出现: 文件超过大小错误(该文件超过指定最大上传尺寸:"& maxfilesize &" K bytes)<br>"
Case "FixError"
Response.Write i+1 &"、文件上传出现: 文件类型错误(该类型文件被限制上传)<br>"
Case Else
UpFlag = True
IF FileList <> "" then
FileList = FileList &","& Trim(PerFileListN(i))
Else
FileList = Trim(PerFileListN(i))
End IF
Response.Write "<script>parent.xginfo.imageid.value='"&PerFilenameN(0)&"'</script>上传成功"
'Response.Write "<script src=uploadmdb.asp?strFileName="&PerFilenameN(0)&"&bytex="&PerFilenameN(1)&"></script>"
'Response.Write 1 &"、文件:"& PerFilenameN(0) &" ["& PerFilenameN(1) &" Bytes]已上传<br><script>parent.newfile.nl.value+='[IMG]../../images/files/down.gif[/IMG][URL=../../upload/"&PerFilenameN(0)&"]下载[/URL]'</script>"
End Select
End If
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -