<!--#include file="conn.asp"-->
<!--#include file ="upload.inc" -->
<%
On Error Resume Next '遇有错误仍继续执行 
Server.ScriptTimeOut=60*10
Set fs = Server.CreateObject( Const_ScriptFileSystem )

	set upload=new upload_5xsoft
		strUpdate=""
		
		'================网站LOGO===================
		if upload.form("txtLogoHref")<>"" then
			strUpdate=strUpdate & ", w_Logohref='" & upload.form("txtLogoHref") & "', w_LogoTitle='" & upload.form("txtLogoTitle") & "' "
		end if
		
		set file=upload.file("fileLogo")

		if file.filesize>1024*1024 then
			ShowMsg "对不起，文件太大，上传文件不能大于1MB！"
		end if
		
		if file.filesize>0 then         ''如果 filesize > 0 说明有文件数据
			'检查扩展名
			CheckExeName(right(file.filename,4))
			strFileName=server.mappath("home/" & trim(Session("UserName")) & "/UpFile/weblogo"& right(file.filename,4))
			
			file.saveas strFileName   ''保存文件
			strUpdate=strUpdate & ", w_Logo='UpFile/weblogo"& right(file.filename,4)&"'"
			
		end if
		

		'================网站名称Company===================
		strUpdate=strUpdate & ", w_CompanyText='" & upload.form("txtCompany") & "', w_UserComText=0" & upload.form("chkUserText")

		set file=upload.file("fileCompany")
		if file.filesize>1024*1024 then
			ShowMsg "对不起，文件太大，上传文件不能大于1MB！"
		end if
		if file.filesize>0 then         ''如果 filesize > 0 说明有文件数据
			'检查扩展名
			CheckExeName(right(file.filename,4))
			strFileName=server.mappath("home/" & trim(Session("UserName")) & "/UpFile/Company"& right(file.filename,4))
			
			file.saveas strFileName   ''保存文件
			strUpdate=strUpdate & ", w_Company='UpFile/Company"& right(file.filename,4)&"'"
			
		end if

		

		'================网站横幅(Banner)===================
		set file=upload.file("fileBanner")
		if file.filesize>1024*1024 then
			ShowMsg "对不起，文件太大，上传文件不能大于1MB！"
		end if
		if file.filesize>0 then         ''如果 filesize > 0 说明有文件数据
			'检查扩展名
			CheckExeName(right(file.filename,4))
			strFileName=server.mappath("home/" & trim(Session("UserName")) & "/images/Banner" & right(file.filename,4))
			
			file.saveas strFileName   ''保存文件
			strUpdate=strUpdate & ", w_Banner='images/Banner" & right(file.filename,4) & "' "
			
		end if
		
		if strUpdate="" then response.Redirect("Admin_website.asp")
		strUpdate=" Set m_id=m_id " & strUpdate
		strSQL="Update website " & strUpdate & " Where m_id=" & trim(Session("UserID"))
		'response.write strSQL
		conn.execute strSQL,0,1
		response.Redirect("Admin_website.asp")
%>
<%
Sub CheckExeName(strExeName)
	ExeName=".gif,.jpg,.swf,.png"
	if Instr(ExeName,Lcase(strExeName))<=0 then
		ShowMsg "文件格式不对，这里只能上传：" & ExeName & "　格式的文件！"
	end if
End Sub

'设置文件属性
'------------------------------------------------------
'strFileName－文件名（包括路径）
'intValue－属性值：如下表
'Normal 	0 普通文件。没有设置任何属性。 
'ReadOnly 	1 只读文件。可读写。 
'Hidden 	2 隐藏文件。可读写。 
'System 	4 系统文件。可读写。 
'Volume 	8 磁盘驱动器卷标。只读。 
'Directory 	16 文件夹或目录。只读。 
'Archive 	32 上次备份后已更改的文件。可读写。 
'Alias 		64 链接或快捷方式。只读。 
'Compressed 128 压缩文件。只读。 
Sub SetAttributes(strFileName,intValue)
	if Fs.FileExists(strFileName) then
		Set objFile=Fs.GetFile(strFileName)
		objFile.Attributes=intValue
	end if
End Sub
'------------------------------------------------------

%>