upfile_flash.asp

直接附加数据库！ 修改 Include/ Class_Main.asp 为自己信息 后台admin admin 绍兴人才网程序

<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<!--#include file="Web_Session.asp" -->
<!--#include file="upload_ccie.inc"-->

<%
set upload=new upload_file
if upload.form("act")="uploadfile" then
	filepath=trim(upload.form("filepath"))
	filelx=trim(upload.form("filelx"))
	
	i=0
	for each formName in upload.File
		set file=upload.File(formName)
 
 fileExt=lcase(file.FileExt)	'得到的文件扩展名不含有.
 if file.filesize<100 then
 	response.write "<span style=""font-family: 宋体; font-size: 9pt"">请先选择你要上传的文件！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
	response.end
 end if
 if (filelx<>"wmv") and (filelx<>"jpg") and (filelx<>"swf") And (filelx<>"rar") then 
 	response.write "<span style=""font-family: 宋体; font-size: 9pt"">该文件类型不能上传！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
	response.end
 end if
 if filelx="wmv" then
	if fileext<>"wmv"  then
		response.write "<span style=""font-family: 宋体; font-size: 9pt"">只能上传.WMV文件！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
		response.end
	end if
 end if
 
 if filelx="rar" then
	if fileext<>"rar"  then
		response.write "<span style=""font-family: 宋体; font-size: 9pt"">只能上传.Rar文件！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
		response.end
	end if
 end if
 
 if filelx="jpg" then
	if fileext<>"gif" and fileext<>"jpg" and fileext<>"png"  then
		response.write "<span style=""font-family: 宋体; font-size: 9pt"">只能上传jpg或gif格式的图片！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
		response.end
     	end if
 end if

 if filelx="swf" then
	if fileext<>"swf"  then
		response.write "<span style=""font-family: 宋体; font-size: 9pt"">只能上传.Swf文件！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
		response.end
	end if
 end if

 if filelx="wmv" then
	if file.filesize>(10000*1024) then
		response.write "<span style=""font-family: 宋体; font-size: 9pt"">最大只能上传 10M 的文件！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
		response.end
	end if
 end if
 
 if filelx="rar" then
	if file.filesize>(30000*1024) then
		response.write "<span style=""font-family: 宋体; font-size: 9pt"">最大只能上传 30M 的文件！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
		response.end
	end if
 end if
 
 if filelx="jpg" then
	if file.filesize>(1000*1024) then
		response.write "<span style=""font-family: 宋体; font-size: 9pt"">最大只能上传 1000K 的图片文件！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
		response.end
	end if
 end if
  if filelx="swf" then
	if file.filesize>(5000*1024) then
		response.write "<span style=""font-family: 宋体; font-size: 9pt"">最大只能上传 5000K 的文件！　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
		response.end
	end if
 end if
 
'检测-----
 if CheckFileExt(filelx)=false then
   	response.write "请不要上传非法文件!"
	response.end
 end if
 
 '///sFile=file.filepath&file.filename
 '///set MyFile=server.createobject("Scripting.FileSystemObject")
 '///set MyText=MyFile.Opentextfile(sFile,1,true)
 '///sTEXTAll=lcase(mytext.readAll)
 '///mytext.close
 '///set MyFile=nothing
 '///sstr="10|.getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|.wscript.shell|script.encode|object|Adodb.Stream"
 '///sNostring=split(sstr,"|")
 '///for i=1 to sNostring(0)
 '/// if instr(sTextAll,sNostring(i))<>0 then
 '///  response.write "文件中含有非法字符！为了网站的安全，不能上传"
 '///  response.end
   
 '/// end if
 '///next
'检测结束-----
 randomize
 ranNum=int(90000*rnd)+10000
 filename=filepath&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)   ''保存文件
  file.SaveToFile Server.mappath(FileName)
  'response.write file.FileName&"　　上传成功!　　<br>"
  'response.write "新文件名："&FileName&"<br>"
  'response.write "新文件名已复制到所需的位置，可关闭窗口！"
  if filelx="swf" then
      response.write "<script>window.opener.document."&upload.form("FormName")&".size.value='"&int(file.FileSize/1024)&" K'</script>"
  end if
  response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".value='"&FileName&"'</script>"
%>
<%
 end if
 set file=nothing
	next
	set upload=nothing
end if
%>
<script language="javascript">
window.alert("文件上传成功!请不要修改生成的链接地址！");
window.close();
</script>
<%

set rs=nothing

call closedb
%>