?? upfile.asp
字號:
<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>????</title>
</head>
<body>
<%
''??????????????
Function MakeFileName()
Dim fname
fname = Now()
fname = Trim(fname)
fname = Replace(fname, "-", "")
fname = Replace(fname, "/", "")
fname = Replace(fname, " ", "")
fname = Replace(fname, ":", "")
fname = Replace(fname, "PM", "")
fname = Replace(fname, "AM", "")
fname = Replace(fname, "??", "")
fname = Replace(fname, "??", "")
MakeFileName = fname
End Function
Dim upload,file,formName,formPath
Dim i,l,fileType,NewFileName,filenamelist
'???????
NewFileName = MakeFileName()
'??????
Set upload = New upload_5xsoft
'??????
formPath = Server.MapPath("images")&"/"
'??????????
For Each formName in upload.objFile
'????????
Set file = upload.file(formName)
'?? FileSize > 0 ???????
If file.FileSize>0 Then
'???????
fileType = file.FileName '????????
i = instr(fileType,".") '?????? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -