saveinterfaceset.asp

精美OA网络办公系统,带PSD文件.可任意修改.

<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><!--#INCLUDE FILE="../HXINCLUDE/HX_photo.asp"--><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%if WS_S.MemberPriv("WS_SystemSetOAInterFaceSet")<>1 then HX_GoBack "对不起,您的权限不够!",""
ColumnName="":Tablename="HX_InteFaceSet":Orderby=""
   set upload=new upload_file
   call WS_S.ChkIsOuter()
   filepath="../hximages/"
	 for each formName in upload.File
	     set file=upload.File(formName)
         fileExt=lcase(file.FileExt)	'得到的文件扩展名不含有.
         if file.filesize<100 then
	       response.write "<script language=javascript>alert('请先选择你要上传的文件！');history.go(-1);</script>"
	       response.end
         end if  
	     if fileext<>"gif" and fileext<>"jpg" and fileext<>"tif" and fileext<>"bmp" and fileext<>"png" then
		     fileExt="gif"
		     response.write "<script language=javascript>alert('只能上传JPG，JPEG，GIF，TIF,BMP,PNG格式的图片！');history.go(-1);</script>"
		     response.end
          end if
	      if file.filesize>(1000*1024) then
		   response.write "<script language=javascript>alert('图片文件大小不能超过1m！');history.go(-1);</script>"
		    response.end
	      end if
           filename=filepath&"HX_banner."&fileExt 
           if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
		       FileSeverPath=Server.mappath(FileName)
               file.SaveToFile FileSeverPath
	           if WS_S.HX_ScanFile(FileSeverPath) then
                WS_S.CheckFile FileSeverPath,True 
                HX_GoBack "对不起,您上传的文件中含有木马程序,所以不能上传!",""
               end if
           end if
           set file=nothing
       next
      set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
      if rs.recordcount<=0 then
       rs.addnew
      end if	 
       msg="界面设置修改成功!"
	   WS_InterNetExploertop=upload.form("WS_InterNetExploertop")
	   WS_ICOWidth=upload.form("WS_ICOWidth")
	   WS_ICOHeight=upload.form("WS_ICOHeight")
	   WS_InterNetExploerStatus=upload.form("WS_InterNetExploerStatus")
	   rs("WS_InterNetExploertop")=WS_InterNetExploertop
	   rs("WS_InterNetExploerStatus")=WS_InterNetExploerStatus
	   rs("WS_ICOWidth")=WS_ICOWidth
	   rs("WS_ICOHeight")=WS_ICOHeight
       rs.update
call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
HX_GoBack msg,"OAInterFaceSet.asp"  
%>