📄 saveupload_adv.asp
字号:
<tr>
<td align="center" valign="middle"><hr width="100%" size=1 style="border:solid 2px #888888;">
<font color="#666666" face='Tahoma, 黑体,MS Shell Dlg" style="FONT-FAMILY: "Tahoma","MS Shell Dlg"; FONT-SIZE: 12px ;'>
<%= FormatNumber((timer()-startime)*1000,0)&"ms" %></font><hr width="100%" size=1 style="border:solid 1px #888888;"></td>
</tr></table><br>
<table>
<td align="left"> </td>
<br>
<script language="javascript">
window.upstats.innerHTML=('');
if(window.opener&&window.opener.refreshWindow)
{
window.opener.refreshWindow();
}
</script>
<table width="100%" cellpadding=0 border=0 cellspacing=0 align="center">
<tr>
<td align="center" valign="middle"><hr width="100%" size=1 style="border:solid 2px #888888;">
<font color="#666666" face='Tahoma, 黑体,MS Shell Dlg" style="FONT-FAMILY: "Tahoma","MS Shell Dlg"; FONT-SIZE: 12px ;'>
<%= FormatNumber((timer()-startime)*1000,0)&"ms" %></font><hr width="100%" size=1 style="border:solid 1px #888888;"></td>
</tr></table><br>
<table width="98%" cellpadding=0 border=0 cellspacing=0 align="center">
<tr>
<td align="center" valign="middle"><hr width="100%" size=1 style="border:solid 2px #888888;">
<hr width="100%" size=1 style="border:solid 1px #888888;"></td>
</tr></table><br>
</body>
<% Response.Flush()
End SUB
sub SA_FileUpinfo()
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.SaveAs "C:\temp\upload.out"
upl.Form("descrip") 'Form description
upl.TotalBytes 'Total Bytes Written
upl.Form("f1").SaveAs "C:\temp\upload1.out" '表单保存
upl.Form("f2").SaveAs "C:\temp\upload2.out" '表单保存
upl.Form("f2").TotalBytes
upl.MaxBytes = 1000 '--- limit the upload size to 1000 bytes
upl.ServerName 'Server Filename:
Request.TotalBytes 'Total Bytes Transmitted by you
'按原文件名保存到指定路径的方
upl.Path = "d:\uploads"
upl.Form("file1").Save
upl.Form("file2").Save
upl.Form("FILE1").ContentType
upl.Form (["Form_element_name"])
upl.FormEx (["formelementname"])
upl.Form("FILE1").IsEmpty
upl.Form("FILE1").OverWriteFiles=true
upl.Form("FILE1").UseMemory
'This property lets SA-FileUp store uploaded data in memory until the user chooses to save it.
upl.Form("FILE1").UserFilename
objFileUp.BufferSize[=Long] '上传缓冲,增大能提高速度
objFileUp.CodePage[=Language Code as Long] '编码
objFile.SaveInVirtual "/BadApps/No.txt"
'---
Response.Write("<TABLE>")
For Each x in upl.Form
Response.Write("<TR><TD ALIGN=""RIGHT"">" & x & "</TD><TD>'" & upl.Form(x) & "'</TD></TR>")
Next
Response.Write("</TABLE>")
'事务回滚
'< %@ TRANSaction=Required LANGUAGE="VBScript" % >
'< %
' set upl = Server.CreateObject ("SoftArtisans.FileUp")
' upl.Path = "d:\uploads"
' upl.Form("file1").Save
' upl.Form("file2").Save
' The Transacted Script Abort Handler. This sub-routine
' will be called if the script transacted aborts
''Sub OnTransactionAbort()
' Response.Write "<p><b>The Transaction has aborted</b>."
' Response.Write "No uploaded files were saved."
''end sub
'取文件类型
FName = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
FName = Mid(upl.Form("f1"), InstrRev(upl.UserFilename, "\") + 1)
FName = Mid(upl.Form("f1").UserFilename, InstrRev(upl.UserFilename, "\") + 1)
'--- This line parses out the Content type.
'---
FCONT = upl.ContentType
'--- This would equal to
'--- "image/pjpeg"
'--- "image/gif"
'--- "text/plain", etc.
'--- You can then use the Select Case Condition to restrict the file type.
Select Case LCase(FCONT)
Case "image/gif"
upl.Save
Response.Write "<P>" & FName & " has been saved."
Case "image/pjpeg"
upl.Save
Response.Write "<P>" & FName & " has been saved."
Case Else
upl.delete
Response.Write "<P>" & "You are restricted to only upload gif and Jpeg files.<BR>"
Response.End
End Select
end sub
SUB Ado_upload()
dim upload,file,formName,formPath
dim mMax,m,calcYes,action,calcNo,fileExt
dim ServerIP,FileStrings,Strings,Arr
ServerIP=Request.ServerVariables("SERVER_NAME")
calcYes=0:calcNo=0:mMax=0
set upload=new upBox
if upload.isForm("filepath")="" then
set upload=nothing
Response.write "<script language=JavaScript>window.upstats.innerHTML=('');</script>"
GetError "<br>上传目的目录不能为空!"
Response.end
else
formPath=upload.isForm("filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/"
action=CheckFolder(formpath,1)
if action<>"True" then
Response.write "<script language=JavaScript>window.upstats.innerHTML=('');</script>"
GetError "<br>发生错误! "&action
end if
end if
Call ChkUseSize()
dim upSize
upSize=0
For each formName in upload.isFile
set file=upload.isFile(formName)
'response.write file.FilePath
if file.FileSize>0 then
action=CheckFile(file.FileName,0,"01")
if action="True" then
upSize=upSize+file.FileSize
newSize=newSize+FixSize(formPath&file.FileName,"file","upload",file.FileSize)
file.SaveAs Server.mappath(formPath&file.FileName)
Strings="http://"&ServerIP&formPath&File.FileName
Response.write "<tr bgcolor=#D4D0c8 bordercolor=#D4D0c8>"&_
"<td align=right ><nobr> "&_
"<img src=pic/upt.gif width=25 height=16 vspace=0>"&file.FileSize&"字节__<font color=#000077>"&file.FilePath&file.FileName&" </font></td>"&_
"<td ><img src=pic/ok.gif width=25 height=16 vspace=0></td>"&_
"<td align=left><font color=#008800>"
Response.write " "&Strings
Response.write " </font></nobr></td></tr>"
calcYes=calcYes+1
mMax=mMax+1
FileStrings=FileStrings+Strings+"|"
else
Response.write "<tr bgcolor=#D4D0c8 bordercolor=#D4D0c8>"&_
"<td align=right ><nobr> "&_
"<img src=pic/upt.gif width=25 height=16 vspace=0>"&file.FileSize&"字节__<font color=#000077>"&file.FilePath&file.FileName&" </font></td>"&_
"<td><img src=pic/err.gif width=25 height=16 vspace=0></td><td align=left><font color=#cc0000>"&_
"</font> "&action&"</nobr></td></tr>"
calcNo=calcNo+1
end if
end if
next
set file=nothing
set upload=nothing
'if upSize>0 then
' dim newSize
' newSize=Fso.GetFolder(server.mappath(UserPath)).size
Call UpdateUseSize(newSize+useSize)
'end if
'========列表显示加入UBB代码
'========images图像
Response.write "<tr bgcolor=#D4D0c8 bordercolor=#D4D0c8><td colspan=3 height=8></td></tr>"&_
"<tr><td height=24 colspan=3 bordercolorlight=#666666 bordercolordark=#ffffff bgcolor=#D4D0c8> ●加上UBB代码如下：</td>"&_
"</tr>"&_
"<tr bgcolor=#D4D0c8 bordercolor=#D4D0c8><td colspan=3 height=10></td>"&_
"</tr>"
Arr=split(FileStrings,"|")
For m=0 to mMax-1
fileExt=lcase(right(Arr(m),4))
if fileEXT=".gif" or fileEXT=".jpg" or fileEXT=".png" or fileEXT=".bmp" then
Response.write "<tr bgcolor=#D4D0c8 bordercolor=#D4D0c8><td align=left colspan=3><nobr> "
Response.write "<font color=#008800> [img]"&Arr(m)
Response.write "[/img]</font></nobr></td></tr>"
''该句把上传结果写回发贴父级窗口!!! ''
'Response.write "<script>parent.frmAnnounce.Content.value+='[img]http://"&ServerIP&""&formPath&File.FileName&"[/img]'</sc ript>"
end if
next
'========other列表显示其它类
Response.write "<tr bgcolor=#D4D0c8 bordercolor=#D4D0c8><td colspan=3 ><hr width='95%' size=1></td></tr>"
For m=0 to mMax-1
fileExt=lcase(right(Arr(m),4))
if fileEXT<>".gif" and fileEXT<>".jpg" and fileEXT<>".png" and fileEXT<>".bmp" then
Response.write "<tr bgcolor=#D4D0c8 bordercolor=#D4D0c8><td align=left colspan=3><nobr> "
Response.write "<font color=#008800> [url]"&Arr(m)
Response.write "[/url]</font></nobr></td></tr>"
'Response.write "<script>parent.frmAnnounce.Content.value+='[url]http://"&ServerIP&""&formPath&File.FileName&"[/url]'</sc ript>"
end if
next
Response.write "<tr bgcolor=#D4D0c8 bordercolor=#D4D0c8><td colspan=3 height=15></td></tr>"
Response.write "<tr><td height=30 colspan=2> ●正确上传:<font color=#ffff00><b>"&calcYes&"</b></font> ,上传失败:<font color=#ff0000><b>"&calcNo&"</b></font> <input type=button class='bt1' onClick='window.close();' value='关 闭'></td>"
%>
<% Response.Flush()
End SUB
SUB Footer()
%>
<%End SUB
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -