<% On Error Resume Next Set Conn=Server.CreateObject("Adodb.Connection") strConn="Driver={Microsoft Access Driver (*.Mdb)};Pwd=;Dbq=" & Server.MapPath("db/kaximodo2005.mdb") Conn.Open strConn %> <% set rs=server.createobject("adodb.recordset") sql="select * from const" rs.open sql,conn,1,1 if not rs.eof then Application("WebName")=rs("WebName") Application("WebUrl")=rs("WebUrl") Application("WebEmail")=rs("WebEmail") Application("Copyright")=rs("Copyright") Application("Ver")=rs("Ver") Application("Logo")=rs("Logo") Application("Banner")=rs("Banner") Application("BannerUrl")=rs("BannerUrl") Application("Max_List")=rs("Max_List") Application("Max_GoodList")=rs("Max_GoodList") Application("Max_FocusList")=rs("Max_FocusList") Application("Max_picList")=rs("Max_picList") Application("Placard")=rs("Placard") end if WebName=Application("WebName") WebUrl=Application("WebUrl") WebEmail=Application("WebEmail") Copyright=Application("Copyright") Ver=Application("Ver") Logo=Application("Logo") Banner=Application("Banner") BannerUrl=Application("BannerUrl") Max_List=Application("Max_List") Max_GoodList=Application("Max_GoodList") Max_FocusList=Application("Max_FocusList") Max_picList=Application("Max_picList") Placard=Application("Placard") rs.close set rs=nothing %> <% '-------------------------------------------------------------------- ' Microsoft ADO ' ' Copyright (c) 1996-1998 Microsoft Corporation. ' ' ' ' ADO constants include file for VBScript ' '-------------------------------------------------------------------- '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- CursorOptionEnum Values ---- Const adHoldRecords = &H00000100 Const adMovePrevious = &H00000200 Const adAddNew = &H01000400 Const adDelete = &H01000800 Const adUpdate = &H01008000 Const adBookmark = &H00002000 Const adApproxPosition = &H00004000 Const adUpdateBatch = &H00010000 Const adResync = &H00020000 Const adNotify = &H00040000 Const adFind = &H00080000 Const adSeek = &H00400000 Const adIndex = &H00800000 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- ExecuteOptionEnum Values ---- Const adAsyncExecute = &H00000010 Const adAsyncFetch = &H00000020 Const adAsyncFetchNonBlocking = &H00000040 Const adExecuteNoRecords = &H00000080 '---- ConnectOptionEnum Values ---- Const adAsyncConnect = &H00000010 '---- ObjectStateEnum Values ---- Const adStateClosed = &H00000000 Const adStateOpen = &H00000001 Const adStateConnecting = &H00000002 Const adStateExecuting = &H00000004 Const adStateFetching = &H00000008 '---- CursorLocationEnum Values ---- Const adUseServer = 2 Const adUseClient = 3 '---- DataTypeEnum Values ---- Const adEmpty = 0 Const adTinyInt = 16 Const adSmallInt = 2 Const adInteger = 3 Const adBigInt = 20 Const adUnsignedTinyInt = 17 Const adUnsignedSmallInt = 18 Const adUnsignedInt = 19 Const adUnsignedBigInt = 21 Const adSingle = 4 Const adDouble = 5 Const adCurrency = 6 Const adDecimal = 14 Const adNumeric = 131 Const adBoolean = 11 Const adError = 10 Const adUserDefined = 132 Const adVariant = 12 Const adIDispatch = 9 Const adIUnknown = 13 Const adGUID = 72 Const adDate = 7 Const adDBDate = 133 Const adDBTime = 134 Const adDBTimeStamp = 135 Const adBSTR = 8 Const adChar = 129 Const adVarChar = 200 Const adLongVarChar = 201 Const adWChar = 130 Const adVarWChar = 202 Const adLongVarWChar = 203 Const adBinary = 128 Const adVarBinary = 204 Const adLongVarBinary = 205 Const adChapter = 136 Const adFileTime = 64 Const adPropVariant = 138 Const adVarNumeric = 139 Const adArray = &H2000 '---- FieldAttributeEnum Values ---- Const adFldMayDefer = &H00000002 Const adFldUpdatable = &H00000004 Const adFldUnknownUpdatable = &H00000008 Const adFldFixed = &H00000010 Const adFldIsNullable = &H00000020 Const adFldMayBeNull = &H00000040 Const adFldLong = &H00000080 Const adFldRowID = &H00000100 Const adFldRowVersion = &H00000200 Const adFldCacheDeferred = &H00001000 Const adFldIsChapter = &H00002000 Const adFldNegativeScale = &H00004000 Const adFldKeyColumn = &H00008000 Const adFldIsRowURL = &H00010000 Const adFldIsDefaultStream = &H00020000 Const adFldIsCollection = &H00040000 '---- EditModeEnum Values ---- Const adEditNone = &H0000 Const adEditInProgress = &H0001 Const adEditAdd = &H0002 Const adEditDelete = &H0004 '---- RecordStatusEnum Values ---- Const adRecOK = &H0000000 Const adRecNew = &H0000001 Const adRecModified = &H0000002 Const adRecDeleted = &H0000004 Const adRecUnmodified = &H0000008 Const adRecInvalid = &H0000010 Const adRecMultipleChanges = &H0000040 Const adRecPendingChanges = &H0000080 Const adRecCanceled = &H0000100 Const adRecCantRelease = &H0000400 Const adRecConcurrencyViolation = &H0000800 Const adRecIntegrityViolation = &H0001000 Const adRecMaxChangesExceeded = &H0002000 Const adRecObjectOpen = &H0004000 Const adRecOutOfMemory = &H0008000 Const adRecPermissionDenied = &H0010000 Const adRecSchemaViolation = &H0020000 Const adRecDBDeleted = &H0040000 '---- GetRowsOptionEnum Values ---- Const adGetRowsRest = -1 '---- PositionEnum Values ---- Const adPosUnknown = -1 Const adPosBOF = -2 Const adPosEOF = -3 '---- BookmarkEnum Values ---- Const adBookmarkCurrent = 0 Const adBookmarkFirst = 1 Const adBookmarkLast = 2 '---- MarshalOptionsEnum Values ---- Const adMarshalAll = 0 Const adMarshalModifiedOnly = 1 '---- AffectEnum Values ---- Const adAffectCurrent = 1 Const adAffectGroup = 2 Const adAffectAllChapters = 4 '---- ResyncEnum Values ---- Const adResyncUnderlyingValues = 1 Const adResyncAllValues = 2 '---- CompareEnum Values ---- Const adCompareLessThan = 0 Const adCompareEqual = 1 Const adCompareGreaterThan = 2 Const adCompareNotEqual = 3 Const adCompareNotComparable = 4 '---- FilterGroupEnum Values ---- Const adFilterNone = 0 Const adFilterPendingRecords = 1 Const adFilterAffectedRecords = 2 Const adFilterFetchedRecords = 3 Const adFilterConflictingRecords = 5 '---- SearchDirectionEnum Values ---- Const adSearchForward = 1 Const adSearchBackward = -1 '---- PersistFormatEnum Values ---- Const adPersistADTG = 0 Const adPersistXML = 1 '---- StringFormatEnum Values ---- Const adClipString = 2 '---- ConnectPromptEnum Values ---- Const adPromptAlways = 1 Const adPromptComplete = 2 Const adPromptCompleteRequired = 3 Const adPromptNever = 4 '---- ConnectModeEnum Values ---- Const adModeUnknown = 0 Const adModeRead = 1 Const adModeWrite = 2 Const adModeReadWrite = 3 Const adModeShareDenyRead = 4 Const adModeShareDenyWrite = 8 Const adModeShareExclusive = &Hc Const adModeShareDenyNone = &H10 Const adModeRecursive = &H400000 '---- RecordCreateOptionsEnum Values ---- Const adCreateCollection = &H00002000 Const adCreateStructDoc = &H80000000 Const adCreateNonCollection = &H00000000 Const adOpenIfExists = &H02000000 Const adCreateOverwrite = &H04000000 Const adFailIfNotExists = -1 '---- RecordOpenOptionsEnum Values ---- Const adOpenRecordUnspecified = -1 Const adOpenSource = &H00800000 Const adOpenAsync = &H00001000 Const adDelayFetchStream = &H00004000 Const adDelayFetchFields = &H00008000 '---- IsolationLevelEnum Values ---- Const adXactUnspecified = &Hffffffff Const adXactChaos = &H00000010 Const adXactReadUncommitted = &H00000100 Const adXactBrowse = &H00000100 Const adXactCursorStability = &H00001000 Const adXactReadCommitted = &H00001000 Const adXactRepeatableRead = &H00010000 Const adXactSerializable = &H00100000 Const adXactIsolated = &H00100000 '---- XactAttributeEnum Values ---- Const adXactCommitRetaining = &H00020000 Const adXactAbortRetaining = &H00040000 '---- PropertyAttributesEnum Values ---- Const adPropNotSupported = &H0000 Const adPropRequired = &H0001 Const adPropOptional = &H0002 Const adPropRead = &H0200 Const adPropWrite = &H0400 '---- ErrorValueEnum Values ---- Const adErrProviderFailed = &Hbb8 Const adErrInvalidArgument = &Hbb9 Const adErrOpeningFile = &Hbba Const adErrReadFile = &Hbbb Const adErrWriteFile = &Hbbc Const adErrNoCurrentRecord = &Hbcd Const adErrIllegalOperation = &Hc93 Const adErrCantChangeProvider = &Hc94 Const adErrInTransaction = &Hcae Const adErrFeatureNotAvailable = &Hcb3 Const adErrItemNotFound = &Hcc1 Const adErrObjectInCollection = &Hd27 Const adErrObjectNotSet = &Hd5c Const adErrDataConversion = &Hd5d Const adErrObjectClosed = &He78 Const adErrObjectOpen = &He79 Const adErrProviderNotFound = &He7a Const adErrBoundToCommand = &He7b Const adErrInvalidParamInfo = &He7c Const adErrInvalidConnection = &He7d Const adErrNotReentrant = &He7e Const adErrStillExecuting = &He7f Const adErrOperationCancelled = &He80 Const adErrStillConnecting = &He81 Const adErrInvalidTransaction = &He82 Const adErrUnsafeOperation = &He84 Const adwrnSecurityDialog = &He85 Const adwrnSecurityDialogHeader = &He86 Const adErrIntegrityViolation = &He87 Const adErrPermissionDenied = &He88 Const adErrDataOverflow = &He89 Const adErrSchemaViolation = &He8a Const adErrSignMismatch = &He8b Const adErrCantConvertvalue = &He8c Const adErrCantCreate = &He8d Const adErrColumnNotOnThisRow = &He8e Const adErrURLIntegrViolSetColumns = &He8f Const adErrURLDoesNotExist = &He8f Const adErrTreePermissionDenied = &He90 Const adErrInvalidURL = &He91 Const adErrResourceLocked = &He92 Const adErrResourceExists = &He93 Const adErrCannotComplete = &He94 Const adErrVolumeNotFound = &He95 Const adErrOutOfSpace = &He96 Const adErrResourceOutOfScope = &He97 Const adErrUnavailable = &He98 Const adErrURLNamedRowDoesNotExist = &He99 Const adErrDelResOutOfScope = &He9a Const adErrPropInvalidColumn = &He9b Const adErrPropInvalidOption = &He9c Const adErrPropInvalidValue = &He9d Const adErrPropConflicting = &He9e Const adErrPropNotAllSettable = &He9f Const adErrPropNotSet = &Hea0 Const adErrPropNotSettable = &Hea1 Const adErrPropNotSupported = &Hea2 Const adErrCatalogNotSet = &Hea3 Const adErrCantChangeConnection = &Hea4 Const adErrFieldsUpdateFailed = &Hea5 Const adErrDenyNotSupported = &Hea6 Const adErrDenyTypeNotSupported = &Hea7 '---- ParameterAttributesEnum Values ---- Const adParamSigned = &H0010 Const adParamNullable = &H0040 Const adParamLong = &H0080 '---- ParameterDirectionEnum Values ---- Const adParamUnknown = &H0000 Const adParamInput = &H0001 Const adParamOutput = &H0002 Const adParamInputOutput = &H0003 Const adParamReturnValue = &H0004 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 '---- EventStatusEnum Values ---- Const adStatusOK = &H0000001 Const adStatusErrorsOccurred = &H0000002 Const adStatusCantDeny = &H0000003 Const adStatusCancel = &H0000004 Const adStatusUnwantedEvent = &H0000005 '---- EventReasonEnum Values ---- Const adRsnAddNew = 1 Const adRsnDelete = 2 Const adRsnUpdate = 3 Const adRsnUndoUpdate = 4 Const adRsnUndoAddNew = 5 Const adRsnUndoDelete = 6 Const adRsnRequery = 7 Const adRsnResynch = 8 Const adRsnClose = 9 Const adRsnMove = 10 Const adRsnFirstChange = 11 Const adRsnMoveFirst = 12 Const adRsnMoveNext = 13 Const adRsnMovePrevious = 14 Const adRsnMoveLast = 15 '---- SchemaEnum Values ---- Const adSchemaProviderSpecific = -1 Const adSchemaAsserts = 0 Const adSchemaCatalogs = 1 Const adSchemaCharacterSets = 2 Const adSchemaCollations = 3 Const adSchemaColumns = 4 Const adSchemaCheckConstraints = 5 Const adSchemaConstraintColumnUsage = 6 Const adSchemaConstraintTableUsage = 7 Const adSchemaKeyColumnUsage = 8 Const adSchemaReferentialConstraints = 9 Const adSchemaTableConstraints = 10 Const adSchemaColumnsDomainUsage = 11 Const adSchemaIndexes = 12 Const adSchemaColumnPrivileges = 13 Const adSchemaTablePrivileges = 14 Const adSchemaUsagePrivileges = 15 Const adSchemaProcedures = 16 Const adSchemaSchemata = 17 Const adSchemaSQLLanguages = 18 Const adSchemaStatistics = 19 Const adSchemaTables = 20 Const adSchemaTranslations = 21 Const adSchemaProviderTypes = 22 Const adSchemaViews = 23 Const adSchemaViewColumnUsage = 24 Const adSchemaViewTableUsage = 25 Const adSchemaProcedureParameters = 26 Const adSchemaForeignKeys = 27 Const adSchemaPrimaryKeys = 28 Const adSchemaProcedureColumns = 29 Const adSchemaDBInfoKeywords = 30 Const adSchemaDBInfoLiterals = 31 Const adSchemaCubes = 32 Const adSchemaDimensions = 33 Const adSchemaHierarchies = 34 Const adSchemaLevels = 35 Const adSchemaMeasures = 36 Const adSchemaProperties = 37 Const adSchemaMembers = 38 Const adSchemaTrustees = 39 '---- FieldStatusEnum Values ---- Const adFieldOK = 0 Const adFieldCantConvertValue = 2 Const adFieldIsNull = 3 Const adFieldTruncated = 4 Const adFieldSignMismatch = 5 Const adFieldDataOverflow = 6 Const adFieldCantCreate = 7 Const adFieldUnavailable = 8 Const adFieldPermissionDenied = 9 Const adFieldIntegrityViolation = 10 Const adFieldSchemaViolation = 11 Const adFieldBadStatus = 12 Const adFieldDefault = 13 Const adFieldIgnore = 15 Const adFieldDoesNotExist = 16 Const adFieldInvalidURL = 17 Const adFieldResourceLocked = 18 Const adFieldResourceExists = 19 Const adFieldCannotComplete = 20 Const adFieldVolumeNotFound = 21 Const adFieldOutOfSpace = 22 Const adFieldCannotDeleteSource = 23 Const adFieldReadOnly = 24 Const adFieldResourceOutOfScope = 25 Const adFieldAlreadyExists = 26 Const adFieldPendingInsert = &H10000 Const adFieldPendingDelete = &H20000 Const adFieldPendingChange = &H40000 Const adFieldPendingUnknown = &H80000 Const adFieldPendingUnknownDelete = &H100000 '---- SeekEnum Values ---- Const adSeekFirstEQ = &H1 Const adSeekLastEQ = &H2 Const adSeekAfterEQ = &H4 Const adSeekAfter = &H8 Const adSeekBeforeEQ = &H10 Const adSeekBefore = &H20 '---- ADCPROP_UPDATECRITERIA_ENUM Values ---- Const adCriteriaKey = 0 Const adCriteriaAllCols = 1 Const adCriteriaUpdCols = 2 Const adCriteriaTimeStamp = 3 '---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ---- Const adPriorityLowest = 1 Const adPriorityBelowNormal = 2 Const adPriorityNormal = 3 Const adPriorityAboveNormal = 4 Const adPriorityHighest = 5 '---- ADCPROP_AUTORECALC_ENUM Values ---- Const adRecalcUpFront = 0 Const adRecalcAlways = 1 '---- ADCPROP_UPDATERESYNC_ENUM Values ---- '---- ADCPROP_UPDATERESYNC_ENUM Values ---- '---- MoveRecordOptionsEnum Values ---- Const adMoveUnspecified = -1 Const adMoveOverWrite = 1 Const adMoveDontUpdateLinks = 2 Const adMoveAllowEmulation = 4 '---- CopyRecordOptionsEnum Values ---- Const adCopyUnspecified = -1 Const adCopyOverWrite = 1 Const adCopyAllowEmulation = 4 Const adCopyNonRecursive = 2 '---- StreamTypeEnum Values ---- Const adTypeBinary = 1 Const adTypeText = 2 '---- LineSeparatorEnum Values ---- Const adLF = 10 Const adCR = 13 Const adCRLF = -1 '---- StreamOpenOptionsEnum Values ---- Const adOpenStreamUnspecified = -1 Const adOpenStreamAsync = 1 Const adOpenStreamFromRecord = 4 '---- StreamWriteEnum Values ---- Const adWriteChar = 0 Const adWriteLine = 1 '---- SaveOptionsEnum Values ---- Const adSaveCreateNotExist = 1 Const adSaveCreateOverWrite = 2 '---- FieldEnum Values ---- Const adDefaultStream = -1 Const adRecordURL = -2 '---- StreamReadEnum Values ---- Const adReadAll = -1 Const adReadLine = -2 '---- RecordTypeEnum Values ---- Const adSimpleRecord = 0 Const adCollectionRecord = 1 Const adStructDoc = 2 %> <% On Error Resume Next Set Conn=Server.CreateObject("Adodb.Connection") strConn="Driver={Microsoft Access Driver (*.Mdb)};Pwd=;Dbq=" & Server.MapPath("db/kaximodo2005.mdb") Conn.Open strConn %> <% set rs=server.createobject("adodb.recordset") sql="select * from const" rs.open sql,conn,1,1 if not rs.eof then Application("WebName")=rs("WebName") Application("WebUrl")=rs("WebUrl") Application("WebEmail")=rs("WebEmail") Application("Copyright")=rs("Copyright") Application("Ver")=rs("Ver") Application("Logo")=rs("Logo") Application("Banner")=rs("Banner") Application("BannerUrl")=rs("BannerUrl") Application("Max_List")=rs("Max_List") Application("Max_GoodList")=rs("Max_GoodList") Application("Max_FocusList")=rs("Max_FocusList") Application("Max_picList")=rs("Max_picList") Application("Placard")=rs("Placard") end if WebName=Application("WebName") WebUrl=Application("WebUrl") WebEmail=Application("WebEmail") Copyright=Application("Copyright") Ver=Application("Ver") Logo=Application("Logo") Banner=Application("Banner") BannerUrl=Application("BannerUrl") Max_List=Application("Max_List") Max_GoodList=Application("Max_GoodList") Max_FocusList=Application("Max_FocusList") Max_picList=Application("Max_picList") Placard=Application("Placard") rs.close set rs=nothing %> <% '=======我的自定义函数========= function lcb_replace(str) 'str=server.htmlencode(str) str=replace(str," "," ") str=replace(str,chr(13)&chr(10),"
") lcb_replace=str end function '============================== function HotImg(News_ID,i) set DelectFile=server.CreateObject("scripting.filesystemobject") CurrentPath=server.MapPath("uploadfile/") FileName=CurrentPath & "\" & News_ID & "-" & i & ".gif" if DelectFile.FileExists(FileName) then HotImg="" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".swf" if DelectFile.FileExists(FileName) then HotImg="" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".jpg" if DelectFile.FileExists(FileName) then HotImg="" exit function else HotImg="" exit function end if end if end if end function function DelectImageFile(News_ID,i) set DelectFile=server.CreateObject("scripting.filesystemobject") CurrentPath=server.MapPath("uploadfile/") FileName=CurrentPath & "\" & News_ID & "-" & i & ".gif" if DelectFile.FileExists(FileName) then DelectImageFile="

图片 " & i & "
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".swf" if DelectFile.FileExists(FileName) then DelectImageFile="
FLASH " & i & "
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".jpg" if DelectFile.FileExists(FileName) then DelectImageFile="

图片 " & i & "
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".zip" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".rar" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".doc" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".ppt" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".xls" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".avi" if DelectFile.FileExists(FileName) then DelectImageFile="
该文章带有 AVI 视频文件,请观看
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".rm" if DelectFile.FileExists(FileName) then DelectImageFile="
该文章带有 RM 视频文件,请观看

" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".asf" if DelectFile.FileExists(FileName) then DelectImageFile="
该文章带有 ASF 视频文件,请观看
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".wmv" if DelectFile.FileExists(FileName) then DelectImageFile="
该文章带有 WMV 视频文件,请观看
" exit function else DelectImageFile="

图片 " & i & "
" exit function end if end if end if end if end if end if end if end if end if end if end if end if end function function DelectImageFile_Upload(News_ID,i) set DelectFile=server.CreateObject("scripting.filesystemobject") CurrentPath=server.MapPath("uploadfile/") FileName=CurrentPath & "\" & News_ID & "-" & i & ".gif" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".gif" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".jpg" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".jpg" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".swf" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".swf" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".zip" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".zip" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".rar" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".rar" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".doc" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".doc" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".ppt" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".ppt" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".xls" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".xls" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".avi" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".avi" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".asf" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".asf" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".wmv" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".wmv" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".rm" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".rm" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".bmp" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".bmp" exit function else DelectImageFile_Upload="" exit function end if end if end if end if end if end if end if end if end if end if end if end if end if end function Function HtmlSelfEnCode(content,ImageNum) Image=ImageNum TempContent=content if image>0 then for i=1 to image TempContent=replace(TempContent,"[[image" & i & "]]","" & DelectImageFile(News_ID,i) & "") next end if TempContent=replace(TempContent,"[[","<") TempContent=replace(TempContent,"]]",">") TempContent=replace(TempContent," 0 and fOTagPos > 0) fString = replace(fString, fOTag, fROTag, 1, 1, 1) fString = replace(fString, fCTag, fRCTag, 1, 1, 1) fOTagPos = Instr(1, fString, fOTag, 1) fCTagPos = Instr(1, fString, fCTag, 1) wend doCode = fString end function Function UBBEnCode(Content) fString=Content fString=replace(fString,"<","<") fString=replace(fString,">",">") fString=replace(fString,chr(13),"
") fString = doCode(fString, "[b]", "[/b]", "", "") fString = doCode(fString, "[s]", "[/s]", "", "") fString = doCode(fString, "[strike]", "[/strike]", "", "") fString = doCode(fString, "[u]", "[/u]", "", "") fString = doCode(fString, "[i]", "[/i]", "", "") fString = doCode(fString, "[font=Andale Mono]", "[/font=Andale Mono]", "", "") fString = doCode(fString, "[font=Arial]", "[/font=Arial]", "", "") fString = doCode(fString, "[font=Arial Black]", "[/font=Arial Black]", "", "") fString = doCode(fString, "[font=Book Antiqua]", "[/font=Book Antiqua]", "", "") fString = doCode(fString, "[font=Century Gothic]", "[/font=Century Gothic]", "", "") fString = doCode(fString, "[font=Courier New]", "[/font=Courier New]", "", "") fString = doCode(fString, "[font=Comic Sans MS]", "[/font=Comic Sans MS]", "", "") fString = doCode(fString, "[font=Georgia]", "[/font=Georgia]", "", "") fString = doCode(fString, "[font=Impact]", "[/font=Impact]", "", "") fString = doCode(fString, "[font=Tahoma]", "[/font=Tahoma]", "", "") fString = doCode(fString, "[font=Times New Roman]", "[/font=Times New Roman]", "", "") fString = doCode(fString, "[font=Trebuchet MS]", "[/font=Trebuchet MS]", "", "") fString = doCode(fString, "[font=Script MT Bold]", "[/font=Script MT Bold]", "", "") fString = doCode(fString, "[font=Stencil]", "[/font=Stencil]", "", "") fString = doCode(fString, "[font=宋体]", "[/font=宋体]", "", "") fString = doCode(fString, "[font=Verdana]", "[/font=Verdana]", "", "") fString = doCode(fString, "[font=Lucida Console]", "[/font=Lucida Console]", "", "") fString = doCode(fString, "[red]", "[/red]", "", "") fString = doCode(fString, "[green]", "[/green]", "", "") fString = doCode(fString, "[blue]", "[/blue]", "", "") fString = doCode(fString, "[white]", "[/white]", "", "") fString = doCode(fString, "[purple]", "[/purple]", "", "") fString = doCode(fString, "[yellow]", "[/yellow]", "", "") fString = doCode(fString, "[violet]", "[/violet]", "", "") fString = doCode(fString, "[brown]", "[/brown]", "", "") fString = doCode(fString, "[black]", "[/black]", "", "") fString = doCode(fString, "[pink]", "[/pink]", "", "") fString = doCode(fString, "[orange]", "[/orange]", "", "") fString = doCode(fString, "[gold]", "[/gold]", "", "") fString = doCode(fString, "[beige]", "[/beige]", "", "") fString = doCode(fString, "[teal]", "[/teal]", "", "") fString = doCode(fString, "[navy]", "[/navy]", "", "") fString = doCode(fString, "[maroon]", "[/maroon]", "", "") fString = doCode(fString, "[limegreen]", "[/limegreen]", "", "") fString = doCode(fString, "[h1]", "[/h1]", "

", "

") fString = doCode(fString, "[h2]", "[/h2]", "

", "

") fString = doCode(fString, "[h3]", "[/h3]", "

", "

") fString = doCode(fString, "[h4]", "[/h4]", "

", "

") fString = doCode(fString, "[h5]", "[/h5]", "
", "
") fString = doCode(fString, "[h6]", "[/h6]", "
", "
") fString = doCode(fString, "[size=1]", "[/size=1]", "", "") fString = doCode(fString, "[size=2]", "[/size=2]", "", "") fString = doCode(fString, "[size=3]", "[/size=3]", "", "") fString = doCode(fString, "[size=4]", "[/size=4]", "", "") fString = doCode(fString, "[size=5]", "[/size=5]", "", "") fString = doCode(fString, "[size=6]", "[/size=6]", "", "") fString = doCode(fString, "[list]", "[/list]", "") fString = doCode(fString, "[list=1]", "[/list=1]", "
    ", "
") fString = doCode(fString, "[list=a]", "[/list=a]", "
    ", "
") fString = doCode(fString, "[*]", "[/*]", "
  • ", "
  • ") fString = doCode(fString, "[left]", "[/left]", "
    ", "
    ") fString = doCode(fString, "[center]", "[/center]", "
    ", "
    ") fString = doCode(fString, "[centre]", "[/centre]", "
    ", "
    ") fString = doCode(fString, "[right]", "[/right]", "
    ", "
    ") fString = doCode(fString, "[code]", "[/code]", "
    ", "
    ") fString = doCode(fString, "[quote]", "[/quote]", "
    quote:
    ", "
    ") fString = doCode(fString, "[url="", ""]", "[url=""", """]") fString = doCode(fString, "[URL="", ""]", "[url=""", """]") fString = doCode(fString, "[url", "[/url]", "", "") fString = replace(fString, "[br]", "
    ", 1, -1, 1) UBBEnCode=fString End Function %> <% News_ID=Request.QueryString("News_ID") if News_ID="" then Response.Write "未指定参数" else conn.execute("update article Set hits=hits+1 where News_ID="&News_ID) set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from article where News_ID="&News_ID rs.Open rs.Source,conn,1,1 if rs.bof and rs.eof then response.write "无此内容" else class_id=rs("class_id") if class_id="30" then strClassShow="zjgw" end if if class_id="31" then strClassShow="swhx" end if if class_id="32" then strClassShow="ycjy" end if if class_id="33" then strClassShow="qynx" end if if class_id="35" then strClassShow="yxts" end if if class_id="36" then strClassShow="glzl" end if if class_id="37" then strClassShow="qyzx" end if nclass_id=rs("nclass_id") title=trim(rs("title")) about=trim(rs("about")) Author=trim(rs("Author")) Original=trim(rs("Original")) indate=trim(rs("indate")) Content=rs("Content") hits=rs("hits") EnCode=trim(rs("EnCode")) rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from class where class_ID="&class_id rs.Open rs.Source,conn,1,1 class_name=rs("class_name") rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from Nclass Where nclass_ID="&nclass_id rs.Open rs.Source,conn,1,1 Nclass_name=rs("Nclass_name") rs.close end if end if %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 中华人民共和国食品卫生法
    中华人民共和国食品卫生法   类型:市场、贸易


    (1995年10月30日发布 1995年10月30日实施)


    第一章 总 则

      第一条 为保证食品卫生,防止食品污染和有害因素对人体的危害,保障人民身体健康,增强人民体质,制定本法。

      第二条 国家实行食品卫生监督制度。

      第三条 国务院卫生行政部门主管全国食品卫生监督管理工作。国务院有关部门在各自的职责范围内负责食品卫生管理工作。

      第四条 凡在中华人民共和国领域内从事食品生产经营的,都必须遵守本法。本法适用于一切食品,食品添加剂,食品容器、包装材料和食品用工具、设备、洗涤剂、消毒剂;也适用于食品的生产经营场所、设施和有关环境。

      第五条 国家鼓励和保护社会团体和个人对食品的社会监督。对违反本法的行为,任何人都有权检举和控告。


    第二章 食品的卫生

     第六条 食品应当无毒、无害,符合应当有的营养要求,具有相应的色、香、味等感官性状。

      第七条 专供婴幼儿的主、辅食品,必须符合国务院卫生行政部门制定的营养、卫生标准。

      第八条 食品生产经营过程必须符合下列卫生要求:

      (一)保持内外环境整洁,采取消除苍蝇、老鼠、蟑螂和其他有害昆虫及其孳生条件的措施,与有毒、有害场所保持规定的距离;

      (二)食品生产经营企业应当有与产品品种、数量相适应的食品原料处理、加工、包装、贮存等厂房或者场所;

      (三)应当有相应的流水线、更衣、盥洗、采光、照明、通风、防腐、防尘、防蝇、防鼠、洗涤、污水排放、存放垃圾和废弃物的设施;

      (四)设备布局和工艺流程应当合理,防止待加工食品与直接入口食品、原料与成品交叉污染,食品不得接触有毒物、不洁物;

      (五)餐具、饮具和盛放直接入口食品的容器,使用前必须洗净、消毒,炊具、用具用后必须洗净,保持清洁;

      (六)贮存、运输和装卸食品的容器包装、工具、设备和条件必须安全、无害,保持清洁,防止食品污染;

      (七)直接入口的食品应当有小包装或者使用无毒、清洁的包装材料;

      (八)食品生产人员应当经常保持个人卫生,生产、销售食品时,必须将手洗净,穿戴清洁的工作衣、帽;销售直接入口食品时,必须使用售货工具;

      (九)用水必须符合国家规定的城乡生活饮用水卫生标准;

      (十)使用的洗涤剂、流水线剂应当对人体安全、无害。

    对食品摊贩和城乡集市贸易食品经营者在食品生产经营过程中的卫生要求,由省、自治区、直辖市人民代表大会常务委员会根据本法作出具体。

      第九条 禁止生产经营下列食品:

      (一)腐败变质、油脂酸败、霉变、生虫、污秽不洁、混有异物或者其他感官性状异常,可能对人本健康有害的;

      (二)含有毒、有害物质或者被有毒、有害物质污染,可能对人体健康有害的;

      (三)含有致病性寄生虫、微生物的,或者微生物毒素含量超过国家限定标准的;

      (四)未经兽医卫生检验或者检验不合格的肉类及其制品;

      (五)病死、毒死或者死因不明的禽、畜、兽、水产动物等及其制品;

      (六)容器包装污秽不洁、严重破损或者运输工具不洁造成污染的;

      (七)掺假、掺杂、伪造,影响营养、卫生的;

      (八)用非食品原料加工的,加入非食品用化学物质的或者将非食品当作食品的;

      (九)超过保质期限的;

      (十)为防病等特殊需要,国务院卫生行政部门或者省、自治区、直辖市人民政府专门规定禁止出售的;

      (十一)含有未经国务院卫生行政部门批准使用的添加剂的或者农药残留超过国家规定容许量的;

      (十二)其他不符合食品卫生标准和卫生要求的。

      第十条 食品不得加入药物,但是按照传统既是食品又是药品的作为原料、调料或者营养强化剂加入的除外。

    第三章 食品添加剂的卫生

    第十一条 生产经营和使用食品添加剂,必须符合食品添加剂使用卫生标准和卫生管理办法的规定;不符合卫生标准和卫生管理办法的食品添加剂,不得经营、使用。

    第四章 食品容器、包装材料和食品用工具设备的卫生第十二条 食品容器、包装材料和食品用工具、设备必须符合卫生材料和卫生管理办法的规定。

      第十三条 食品容器、包装材料和食品用工具、设备的生产必须采用符合卫生要求的原材料。产品应当便于清洗和消毒。


    第五章 食品卫生标准和管理办法的制定

     第十四条 食品,食品添加剂,食品容器、包装材料,食品用工具、设备,用于清洗食品和食品用工具、设备的洗涤剂、消毒剂以及食品中污染物质、放射性物质容许量的国家卫生标准、卫生管理办法和检验规程,由国务院卫生行政部门制定或者批准颁发。

      第十五条 国家未制定卫生的食品,省、自治区、直辖市人民政府可以制定地方卫生标准,报国务院卫生行政部门和国务院标准化行政主管部门备案。

      第十六条 食品添加剂的国家产品质量标准中有卫生学意义的指标,必须经国务院卫生行政部门审查同意。农药、化肥等农用化学物质的安全性评价,经国务院卫生行政部门审查同意。屠宰畜、禽的兽医卫生检验规程,由国务院有关行政部门会同国务院卫生行政部门制定。


    第六章 食品卫生管理

     第十七条 各级人民政府的食品生产经营管理部门应当加强食品卫生管理工作,并对执行本法情况进行检查。

    各级人民政府应当鼓励和支持改进食品加工工艺,促进提高食品卫生质量。

      第十八条 食品生产经营企业应当健全本单位的食品卫生管理制度,配备专职或者兼职食品卫生管理人员,加强对所生产经营食品的检验工作。

      第十九条 食品生产经营企业的新建、扩建、改建工程的选址和设计应当符合卫生要求,其设计审查和工程验收必须有卫生行政部门参加。

      第二十条 利用新资源生产的食品、食品添加剂的新品种,生产经营企业在投入生产前,必须提出该产品卫生评价和营养评价所需的资料;利用新的原材料生产的食品容器、包装材料和食品用工具、设备的新品种,生产经营企业在投入生产前,提出该产品卫生评价所需的资料。上述新品种在投入生产前还需提供样品,并按照的食品卫生标准审批程序报请审批。

      第二十一条 定型包装食品和食品添加剂,必须在包装标识或者产品说明书上根据不同产品分别按照规定标出品名、产地、厂名、生产日期、批号或者代号、规格、配方或者主要成分、保持期限、食用或者使用方法等。食品、食品添加剂的产品说明书,不得有夸大或者虚假的宣传内容。食品包装标识必须清楚,容易辨识。在国内市场销售的食品,必须有中文标识。

      第二十二条 表明具有特定保健功能的食品,其产品及说明书必须报国务院卫生行政部门审查批准,其卫生材料和生产经营管理办法,由国务院卫生行政部门制定。

      第二十三条 表明具有特定保健功能的食品,不得有害于人体健康,其产品说明书内容必须真实,该产品的功能和成份必须与说明书相一致,不得有虚假。

      第二十四条 食品、食品添加剂和专用于食品的容器、包装材料及其他用具,其生产者必须按照卫生标准和卫生管理办法实施检验合格后,方可出厂或者销售。

      第二十五条 食品生产经营者采购食品及其原料,应当按照国家有关规定索取检验合格证或者化验单,销售者应当保证提供。需要索证的范围和种类由省、自治区、直辖市人民政府卫生行政部门规定。

      第二十六条 食品生产经营人员每年必须进行健康检查;新参加工攻和临时参加工作的信品生产人员必须进行健康检查,取得健康证明后方可参加工作。凡患有痢疾、伤寒、病毒性肝炎等消化道传染病(包括病原携带者),活动性肺结核,化脓性或者渗出性皮肤病以及其他有碍食品卫生的疾病的,不得参加接触直接入口食品的工作。

      第二十七条 食品生产经营企业和食品摊贩,必须先取得卫生行政部门发放的卫生许可证方可向工商行政管理部门申请登记。未取得卫生许可证的,不得从事食品生产经营活动。食品生产经营者不得伪造、涂改、出借卫生许可证。卫生许可证的发放管理办法由省、自治区、直辖市人民政府卫生行政部门制定。

      第二十八条 各类食品市场的举办者应当负责市场内的食品卫生管理工作,并在市场内设置必要的公共卫生设施,保持良好的环境卫生状况。

      第二十九条 城乡集市贸易的食品卫生管理工作由工商行政管理部门负责,食品卫生监督检验工作由卫生行政部门负责。

      第三十条 进口的食品,食品添加剂,食品容器、包装材料和食品用工具及设备,必须符合国家卫生标准和卫生管理办法的规定。进口前款所列产品,由口岸进口食品隆重监督检验机构进行卫生监督、检验。检验合格的,方准进口。海关凭检验合格证书放行。进口单位在申报检验时,应当提供输出国(地区)所使用的农药、添加剂、熏蒸剂等有关资料和检验报告。进口第一款所列产品,依照国家隆重标准进行检验,尚无国家卫生标准的,进口单位必须提供输出国(地区)的卫生部门或者组织出具的卫生评价资料,经口岸进口食品卫生监督检验机构审查检验并报国务院卫生行政部门批准。

      第三十一条 出口食品由国家进出口商品检验部门进行卫生监督、检验。海关凭国家进出口商品检验部门出具的证书放行。


    第七章 食品卫生监督

      第三十二条 县级以上地方人民政府卫生行政部门在管辖范围内行使食品卫生监督职责。铁道、交通行政主管部门凤立的食品卫生监督机构,行使国务院卫生行政部门会同国务院有关部门规定的食品卫生监督职责。

      第三十三条 食品卫生监督职责是:

      (一)进行食品卫生监测、检验和技术指导;

      (二)协助培训食品生产经营人员,监督食品生产经营人员的健康检查;

      (三)宣传食品卫生、营养知识,进行食品卫生评价,公布食品卫生情况;

      (四)对食品生产经营企业的新建、扩建、改建工程的选址和设计进行卫生审查,并参加工程验收;

      (五)对食物中毒和食品污染事故进行调查,并采取控制措施;

      (六)对违反本法的行为进行巡回监督检查;

      (七)对违反本法的行为追查责任,依法进行行政处罚;

      (八)负责其他食品卫生监督事项。

      第三十四条 县级以上人民政府卫生行政部门设立食品卫生监督员。食品卫生监督员由合格的专业人员担任,由上级卫生行政部门发给证书。铁道、交通的食品卫生监督员,由其上级主管部门发给证书。

      第三十五条 食品卫生监督员执行卫生行政部门交付的任务。食品卫生监督员必须秉公执法,忠于职守,不得利用职权谋取私利。食品卫生监督员在执行任务时,可以向食品生产经营者了解情况,索取必要的资料,进入生产经营场所检查,按照规定无偿采样。生产经营者不得拒绝或者隐瞒。食品卫生监督员对生产经营者提供的技术资料负有保密的义务。

      第三十六条 国务院和省、自治区、直辖市人民政府的卫生行政部门,根据大概可以确定具备条件的单位作为食品卫生检验单位,进行食品卫生检验并出具检验报告。

      第三十七条 县级以上地方人民政府卫生行政部门对已造成食物中毒事故或者有证据证明可能导致食物中毒事故的,可以对该食品生产经营者采取下列临时控制措施:

      (一)封存造成食物中毒或者可能导致食物中毒的食品及其原料;

      (二)封存被污染的食品用工具及用具,并责令进行清洗消毒。经检验,属于被污染的食品,予以销毁;未被污染的食品,予以解封。

      第三十八条 发生食物中毒的单位和接收病人进行治疗的单位,除采取抢救措施外,应当根据国家有关规定,及时向所在地卫生行政部门报告。县级以上地方人民政府卫生行政部门接到报告后,应当及时进行调查处理,并采取控制措施。


    第八章 法律责任

    第三十九条 违反本法规定,生产经营不符合卫生标准的食品,造成食物中毒事故或者其他食源性疾患的,责令停止生产经营,销毁导致食物中毒或者其他食源性疾患的食品,没收违法所得,并处以违法所得一倍以上五倍以下的罚款;没有违法所得的,处以一千元以上五万元以下的罚款。违反本法规定,生产经营不符合卫生标准的食品,造成严重食物中毒事故或者其他严重食源性疾患,对人体健康造成严重危害的,或者在生产经营的食品中掺入有毒、有害的非食品原料的,依法追究刑事责任。有本条所列行为之一的,吊销卫生许可证。

      第四十条 违反本法规定,未取得卫生许可证或者伪造卫生许可证从事食品生产经营活动的,予以取缔,没收违法所得,并处以违法所得一倍以上五倍以下的罚款;没有违法所得的,处以五百元以上三万元以下的罚款。涂改、出借卫生许可证的,收缴卫生许可证,没收违法所得,并处以违法所得一倍以上三倍以下的罚款;

    没有违法所得的,处以五百元以上一万元以下的罚款。


      第四十一条 违反本法规定,食品生产经营过程不符合卫生要求的,责令改正,给予警告,可以处以五千元以下的罚款;拒不改正或者有其他严重情节的,吊销卫生许可证。

      第四十二条 违反本法规定,生产经营禁止生产经营的食品的,责令停止生产经营,立即公告收回已售出的食品,并销毁该食品,没收违法所得,并处以违法所得一倍以上五倍以下的罚款;没有违法所得的,处以一千元以上五万元以下的罚款。情节严重的,吊销卫生许可证。

      第四十三条 违反本法规定,生产经营不符合营养、卫生标准的专供婴幼儿的主、辅食品的,责令停止生产经营,立即公告收回已售出的食品,并销毁该食品,没收违法所得,并处以违法所得一倍以上五倍以下罚款;没有违法所得的,处以一千元以上五万元以下的罚款。情节严重的

      第四十四条 违反本法规定,生产经营或者使用不符合卫生标准和卫生管理办法规定的食品添加剂、食品容器、包装材料和食品用工具、设备以及洗涤剂、消毒剂的,责令停止生产或者使用,没收违法所得,并处以违法所得一倍以上三倍以下的罚款;没有违法所得的,处以五千元以下的罚款。

      第四十五条 违反本法规定,未经国务院卫生行政部门审查批准而生产经营表明具有特写保健功能的食品的,或者该良品的产品说明书内容虚假的,责令停止生产经营,没收违法所得,并处以违法所得一倍以上五倍以下的罚款;没有违法所得的,处以一千元以上五万元以下的罚款。情节严重的,吊销卫生许可证。

      第四十六条 违反本法规定,定型包装食品和食品添加剂的包装标识或者产品说明书上不标明或者虚假标注生产日期、保质期限等规定事项的,或者违反规定不标注中文标识的,责令改正,可以处以五百元以上一万元以下的罚款。

      第四十七条 违反本法规定,食品生产经营人员未取得健康证明而从事食品生产经营的,或者对患有疾病不得接触直接入口食品的生产经营人员,不按规定调离的,责令改正,可以处以五千元以下的罚款。

      第四十八条 违反本法规定,造成食物中毒事故或者其他食源性疾患的,或者因其他违反本法行为给他人造成损害的,应当依法承担民事赔偿责任。

      第四十九条 本法规定的行政处罚由县级以上地方人民政府卫生行政部门决定。本法规定的行使食品卫生监督权的其他机关,在规定的出责范围内,依照本法的规定作出行政处罚决定。

      第五十条 当事人对行政处罚不服的,可以在接到处罚通知之日起十五日内向作出处罚决定的机关的上一级机关申请复议;当事人也可以地接到处罚通知之日起十五日内直接向人民法院起诉。复议机关应当在接到复议申请之日起十五日内作出复议决定。当事人对复议决定不服的,可以在接到复议决定之日起十五日内向人民法院起诉。当事人逾期不申请复议也不向人民法院起诉,又不履行处罚决定的,作出处罚决定的机关可以申请人民法院强制执行。

      第五十一条 卫生行政部门违反本法规定,对不符合条件的生产经营者发放卫生许可证的,对直接责任人员给予行政处分;收受贿赂,构成犯罪的,依法追究刑事责任。

      第五十二条 食品卫生监督管理人员滥用职权、玩忽职守、营私舞弊,造成重大事故,构成犯罪的,贪污追究刑事责任;不构成犯罪的,依法给予行政处分。

      第五十三条 以暴力、威胁方法阻碍食品卫生监督管理人员依法执行职务的,依法追究刑事责任;拒绝、阻碍食品卫生监督管理人员依法执行职务未使用暴力、威胁方法的,由公安机关依照治安管理处罚条例的规定处罚。


    第九章 附 则

     第五十四条 本法下列用语的含义:

      食品:指各种供人食用或者饮用的成品和原料以及按照传统既是食品又是药品的物品,但是不包括以治疗为目的的物品。

      食品添加剂:指为改善食品品质和色、香、味,以及为防腐和加工工艺的需要而加入食品中的化学合成或者天然物质。

      营养强化剂:指为增强营养成分而加入食品中的天然的或者人工合成的属于天然营养素范围的食品添加剂。

      食品容器、包装材料:指包装、盛放食品用的纸、竹、木、金属、搪瓷、陶瓷、塑料、橡胶、天然纤维、化学纤维、玻璃等制品和接触食品的涂料。

      食品用工具、设备:指食品在生产经营过程中接触食品的机械、管道、传送带、容器、用具、餐具等。

      食品生产经营:指一切食品的生产(不包括种植业和养殖业)、采集、收购、加工、贮存、运输、陈列、供应、销售等活动。

      食品生产经营者:指一切从事食品生产经营的单位或者个人,包括职工食堂、食品摊贩等。

      第五十五条 出口食品的管理办法,由国家进出口商品检验部门会同国务院卫生行政部门和有关行政部门另行制定。

      第五十六条 军队专用食品和自供食品的卫生管理办法由中央军事委员会依据本法制定。

      第五十七条 本法自公布之日起施行。《中华人民共和国食品卫生法(试行)》 同时废止。

    版权所有 2003.北京东方立创企业管理顾问有限公司(C)
    咨询电话:(010)68038327/8/9 传真:(010)68038327/8/9-810