📄 newsupfile.asp

📁 ASP源程序采用天空软件小偷中心核件制成

💻 ASP

字号:

<!--#include FILE="upload.inc"-->
<html>
<head>
<title>文件上传</title>
</head>
<LINK href="inc/hy801.css" rel=stylesheet>
<body bgcolor="#cccccc">
<%
dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_yfly ''建立上传对象

 formPath=upload.form("filepath")
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/" 

response.write "<body bgcolor="""&Tablebodycolor&""" leftmargin=5 topmargin=3>"

iCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.filesize<100 then
 	response.write "<font size=2>请先选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
	response.end
 end if
 	
 if file.filesize>1000000 then
 	response.write "<font size=2>文件大小超过了限制 "&uploadsize&"K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
	response.end
 end if
 
 

fileExt=lcase(right(file.filename,4))
uploadsuc=false
'Forumupload=split(Forum_upload,",")

if fileEXT=".gif" or fileEXT=".jpg" then
    uploadsuc=true
   	else
	uploadsuc=false
	end if

if uploadsuc=false then
 	response.write "<font size=2>文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
	response.end
end if

 randomize
 ranNum=int(90000*rnd)+10000
 filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt

 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  file.SaveAs Server.mappath(FileName)   ''保存文件
 filename="news/"&FileName
response.write "<script>parent.myform.tuaddress.value='"&filename&"';parent.myform.txtcontent.value+='[img]"&FileName&"[/img]';</script>"
		
 end if
 set file=nothing
next
set upload=nothing  ''删除此对象

'Htmend iCount&" 个文件上传结束!"
call upend()

sub upend()
response.write "<font size=2>文件上传成功 [ <a href=# onclick=javascript:parent.myform.tuaddress.value='';history.go(-1)>继续上传</a> ]</font>"
response.end
end sub

'sub HtmEnd(Msg)
' set upload=nothing
 ' response.write "<font size=2>文件上传成功 [ <a href=# onclick=history.go(-1)>继续上传</a> ]</font>"
' response.end
'end sub


%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -