<%@language=vbscript codepage=936 %>
<%
const upload_type=0 '�ϴ�������0=��������ϴ��࣬1=FSO�ϴ� 2=lyfupload��3=aspupload��4=chinaaspupload
dim upload,oFile,formName,SavePath,filename,fileExt,oFileSize
dim EnableUpload
dim arrUpFileType
dim ranNum
dim msg,FoundErr
dim PhotoUrlID
msg=""
FoundErr=false
EnableUpload=false
%>
<%
if EnableUploadFile="No" then
response.write "ϵͳδ�����ļ��ϴ�����"
else
if session("AdminName")="" then
response.Write("���¼����ʹ�ñ����ܣ�")
else
select case upload_type
case 0
call upload_0() 'ʹ�û���������ϴ���
case else
'response.write "��ϵͳδ���Ų������"
'response.end
end select
end if
end if
%>
<%Const UpFileType="gif|jpg|bmp|png|swf|doc|rar" '�������ϴ��ļ�����
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
PhotoUrlID=Clng(trim(upload.form("PhotoUrlID")))
if PhotoUrlID>0 then
SavePath = "../UploadFiles" '����ϴ��ļ���Ŀ¼
else
SavePath = "../UploadFiles" '����ϴ��ļ���Ŀ¼
end if
if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '��Ŀ¼���(/)
for each formName in upload.file '�г������ϴ��˵��ļ�
set ofile=upload.file(formName) '����һ���ļ�����
oFileSize=ofile.filesize
if oFileSize<100 then
msg="����ѡ����Ҫ�ϴ����ļ���"
FoundErr=True
else
select case PhotoUrlID
case 0
if oFileSize>(MaxFileSize*1024) then
msg="�ļ���С���������ƣ����ֻ���ϴ�" & CStr(MaxFileSize) & "K���ļ���"
FoundErr=true
end if
case 1
if oFileSize>(10000*1024) then
msg="�ļ���С���������ƣ����ֻ���ϴ�10M���ļ���"
FoundErr=true
end if
end select
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
msg="�����ļ����Ͳ������ϴ���\n\nֻ�����ϴ��⼸���ļ����ͣ�" & UpFileType
FoundErr=true
end if
strJS="" & vbcrlf
response.write strJS
set file=nothing
next
set upload=nothing
end sub
%>