www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/editor_Upfile_Article.asp
<!--#include file="opendb.asp" -->
<!--#include file="editor_Upfile_class.asp"-->
<%Call CheckAdmin()
Dim MaxFileSize,UpFileType,i,strJS
MaxFileSize=GetCnkConfig("MaxUpfileSize") '上传文件大小限制(大小为K）
Const SaveUpFilesPath="../upfiles/" '存放上传文件的目录
UpFileType="rar|zip|gif|jpg|png|swf|mid|mp3" '允许的上传文件类型
const upload_type=0 '上传方法：0=无组件上传类，1=FSO上传 2=lyfupload，3=aspupload，4=chinaaspupload
dim upload,oFile,formName,SavePath,filename,fileExt
dim ImgWidth,ImgHeight,AlignType
dim EnableUpload
dim arrUpFileType
dim ranNum
dim upmsg,FoundErr
upmsg=""
FoundErr=false
EnableUpload=false
SavePath = SaveUpFilesPath '存放上传文件的目录
'if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<%
call upload_0() '使用化境无组件上传类
%>
</body>
</html>
<%
sub upload_0() '使用化境无组件上传类
set upload=new upfile_class ''建立上传对象
upload.GetData(104857600) '取得上传数据,限制最大上传100M
if upload.err > 0 then '如果出错
select case upload.err
case 1
response.write "请先选择你要上传的文件！"
case 2
response.write "你上传的文件总大小超出了最大限制（100M）"
end select
response.end
end if
ImgWidth=trim(upload.form("ImgWidth"))
ImgHeight=trim(upload.form("ImgHeight"))
AlignType=trim(upload.form("AlignType"))
if ImgWidth="" then
ImgWidth=0
else
ImgWidth=Clng(ImgWidth)
end if
if ImgHeight="" then
ImgHeight=0
else
ImgHeight=Clng(ImgHeight)
end if
if AlignType="" then
AlignType=0
else
AlignType=Clng(AlignType)
end if
for each formName in upload.file '列出所有上传了的文件
set ofile=upload.file(formName) '生成一个文件对象
if ofile.filesize<100 then
upmsg="请先选择你要上传的文件！"
FoundErr=True
end if
if ofile.filesize>(MaxFileSize*1024) then
upmsg="文件大小超过了限制，最大只能上传" & CStr(MaxFileSize) & "K的文件！"
FoundErr=true
end if
fileExt=lcase(ofile.FileExt)
arrUpFileType=split(UpFileType,"|")
for i=0 to ubound(arrUpFileType)
if fileEXT=trim(arrUpFileType(i)) then
EnableUpload=true
exit for
end if
next
if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" then
EnableUpload=false
end if
if EnableUpload=false then
upmsg="这种文件类型不允许上传！\n\n只允许上传这几种文件类型：" & UpFileType
FoundErr=true
end if
strJS="<SCRIPT language=javascript>" & vbcrlf
if FoundErr<>true then
randomize
ranNum=int(900*rnd)+100
filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
ofile.SaveToFile Server.mappath(FileName) '保存文件
Call ChkHackWord(FileName)
upmsg="上传文件成功！"
strJS=strJS & "parent.HtmlEdit.focus();" & vbcrlf
strJS=strJS & "var range = parent.HtmlEdit.document.selection.createRange();" & vbcrlf
select case FileExt
case "jpg","gif","png","bmp"
strJS=strJS & "range.pasteHTML('<img src=" & filename
if cint(ImgWidth)>600 then '原是>0,Asean加上Cint
'strJS=strJS & " width=" & ImgWidth
strJS=strJS & " width=600" '不用他原来的上一句---Asealeung
end if
'if cint(ImgHeight)>0 then
' strJS=strJS & " height=" & ImgHeight
'end if
'select case AlignType '这几行暂rem掉, 影响美---Aseanleung
' case 0,1
' strJS=strJS & " align=left"
' case 2
' strJS=strJS & " align=center"
' case 3
' strJS=strJS & " align=right"
'end select
strJS=strJS & " border=0 onload=if(!(this.width<600))this.width=600>');" & vbcrlf
case "swf"
strJS=strJS & "range.pasteHTML('<object classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"
if ImgWidth>0 then
strJS=strJS & " width=" & ImgWidth
end if
if ImgHeight>0 then
strJS=strJS & " height=" & ImgHeight
end if
strJS=strJS & "><param name=movie value=" & FileName & ">"
strJS=strJS & "<param name=quality value=high>"
strJS=strJS & "<embed src=" & FileName & " quality=high pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash type=application/x-shockwave-flash"
if ImgWidth>0 then
strJS=strJS & " width=" & ImgWidth
end if
if ImgHeight>0 then
strJS=strJS & " height=" & ImgHeight
end if
strJS=strJS & "></embed></object>');" & vbcrlf
case else
strJS=strJS & "range.text='[upload=" & FileExt & "]" & FileName & "[/upload]';" & vbcrlf
end select
' strJS=strJS & "parent.parent.AddItem('" & filename & "')" & vbcrlf
end if
strJS=strJS & "alert('" & upmsg & "');" & vbcrlf
strJS=strJS & "history.go(-1);" & vbcrlf
strJS=strJS & "parent.HtmlEdit.focus();" & vbcrlf
strJS=strJS & "</script>"
response.write strJS
set ofile=nothing
next
set upload=nothing
end sub
%>