<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 危险化学品生产企业安全生产许可证实施办法
    危险化学品生产企业安全生产许可证实施办法   类型:劳动与社会保障


    (2004年5月17日 国家安全生产监督管理局、国家煤矿安全监察局发布 2004年5月17日施行)



      第一章 总则

      第一条 为严格规范危险化学品生产企业安全生产条件,做好危险化学品生产企业安全生产许可证的颁发管理工作,根据《安全生产许可证条例》和有关法律、行政法规,制定本实施办法。
      第二条 危险化学品生产企业必须依照本实施办法的规定取得安全生产许可证。
      未取得安全生产许可证的,不得从事生产活动。
      第三条 安全生产许可证的颁发管理工作实行企业申请、两级发证、属地监管的原则。
      第四条 国务院安全生产监督管理部门指导、监督全国危险化学品生产企业安全生产许可证的颁发管理工作,负责中央管理的危险化学品生产企业(集团公司、总公司、上市公司)安全生产许可证的颁发和管理。
      省、自治区、直辖市人民政府安全生产监督管理部门(以下称省级安全生产许可证颁发管理机关)负责前款规定以外的危险化学品生产企业安全生产许可证的颁发和管理。

      第二章 安全生产条件

      第五条 危险化学品生产企业应当建立、健全主要负责人、分管负责人、安全生产管理人员、职能部门、岗位安全生产责任制。
      危险化学品生产企业应当制定从业人员的安全教育、培训、劳动防护用品(具)、保健品,安全设施、设备,作业场所防火、防毒、防爆和职业卫生,安全检查、隐患整改、事故调查处理,安全生产奖惩等规章制度。
      危险化学品生产企业应根据危险化学品的生产工艺、技术、设备特点和原材料、辅助材料、产品的危险性编制岗位操作安全规程(安全操作法)和符合有关标准规定的作业安全规程。
      第六条 危险化学品生产企业的安全投入应当符合安全生产要求。
      第七条 危险化学品生产企业应当设置安全生产管理机构,配备专职安全生产管理人员。
      第八条 危险化学品生产企业主要负责人、安全生产管理人员的安全生产知识和管理能力应当经考核合格。
      第九条 特种作业人员应当经有关业务主管部门考核合格,取得特种作业操作资格证书。
      第十条 本实施办法第八、九条规定以外的从业人员应当按照国家有关规定,经安全教育和培训并考核合格。
      第十一条 危险化学品生产企业应当依法参加工伤保险,为从业人员缴纳保险费。
      第十二条 危险化学品生产企业的厂房、作业场所和安全设施、设备、工艺应当符合下列要求:
      (一)国家和省、自治区、直辖市的规划和布局;
      (二)在设区的市规划的专门用于危险化学品生产、储存的区域内;
      (三)危险化学品的生产装置和储存危险化学品数量构成重大危险源的储存设施,与下列场所、区域的距离必须符合有关法律、法规、规章和标准的规定:
      1、居民区、商业中心、公园等人口密集区域;
      2、学校、医院、影剧院、体育场(馆)等公共设施;
      3、供水水源、水厂及水源保护区;
      4、车站、码头(按照国家规定,经批准专门从事危险化学品装卸作业的除外)、机场以及公路、铁路、水路交通干线、地铁风亭及出入口;
      5、基本农田保护区、畜牧区、渔业水域和种子、种畜、水产苗种生产基地;
      6、河流、湖泊、风景名胜区和自然保护区;
      7、军事禁区、军事管理区;
      8、法律、行政法规规定予以保护的其他区域;
      (四)符合有关法律、法规、规章和标准的规定;
      (五)不得采用和使用国家明令淘汰、禁止使用的工艺、设备;
      (六)生产、储存危险化学品的车间、仓库不得与员工宿舍在同一座建筑物内,并应与员工宿舍保持符合规定的安全距离;
      (七)危险化学品生产装置和储存设施的周边防护距离符合有关法律、法规、规章和标准的规定;
      (八)进行消防设计的建筑工程需经公安消防机构验收合格。
      第十三条 危险化学品生产企业应当有相应的职业危害防护设施,并为从业人员配备符合有关国家标准或者行业标准规定的劳动防护用品。
      第十四条 危险化学品生产企业应当依法进行安全评价。
      第十五条 危险化学品生产企业应当按照国家有关标准,辨识、确定本企业的重大危险源。
      对已确定的重大危险源,应当有符合国家有关法律、法规、规章和标准规定的检测、评估和监控措施,定期检测、检查,并建立重大危险源检测、检查档案。
      第十六条 危险化学品生产企业对其可能发生的生产安全事故,应当采取下列措施:
      (一)按照国家有关规定编制危险化学品事故和其他生产安全事故应急救援预案;
      (二)有应急救援组织或者应急救援人员;
      (三)大型易燃、易爆化学品生产企业和距离当地公安消防队较远的大型危险化学品生产企业应有专职消防队,其他危险化学品生产企业应根据实际需要有义务消防队;
      (四)配备必要的应急救援器材、设备。

      第三章 安全生产许可证的申请和颁发

      第十七条 中央管理的危险化学品生产企业(集团公司、总公司、上市公司)申请领取安全生产许可证,向国务院安全生产监督管理部门提出申请。
      中央管理的危险化学品生产企业(集团公司、总公司、上市公司)所属分公司、子公司以及分公司、子公司下属的生产单位申请领取安全生产许可证,由中央管理的危险化学品生产企业所属的分公司、子公司分别向所在地省级安全生产许可证颁发管理机关提出申请。
      中央管理的危险化学品生产企业以外的其他危险化学品生产企业及其分公司、子公司和分公司、子公司下属的生产单位申请领取安全生产许可证,由该危险化学品生产企业或其子公司分别向所在地省级安全生产许可证管理机关提出申请。
      第十八条 危险化学品生产企业申请领取安全生产许可证,应当提交下列文件、资料,并对其真实性负责:
      (一)安全生产许可证申请书(一式三份);
      (二)各种安全生产责任制文件(复制件);
      (三)安全生产管理规章制度和操作规程清单;
      (四)设置安全生产管理机构和配备专职安全生产管理人员的文件(复制件);
      (五)主要负责人、安全生产管理人员、特种作业人员考核合格的证明材料;
      (六)为从业人员缴纳工伤保险费的有关证明材料;
      (七)具备资质的中介机构出具的安全评价报告;
      (八)危险化学品事故应急救援预案;
      (九)工商营业执照副本或者工商核准通知(复制件)。
      第十九条 安全生产许可证颁发管理机关对申请人提交的申请书及文件、资料,应当按照下列规定分别处理:
      (一)申请事项不属于本机关职权范围的,应当即时出具不予受理的书面凭证,并告知申请人向相应的安全生产许可证颁发管理机关申请;
      (二)申请材料存在可以当场更正的错误的,应当允许或者要求申请人当场更正,并即时出具受理的书面凭证;
      (三)申请材料不齐全或者不符合要求的,应当当场或者在5个工作日内书面一次告知申请人需要补正的全部内容,逾期不告之的,自收到申请材料之日起即为受理;
      (四)申请材料齐全、符合要求或者按照要求全部补正的,自收到申请材料或者全部补正材料之日起为受理。
      第二十条 对已经受理的申请,安全生产许可证颁发管理机关应在征得危险化学品生产企业所在地人民政府安全生产监督管理部门或者有关部门同意后,指派有关人员对申请材料和安全生产条件进行审查;需要到现场审查的,应当到现场进行审查。
      第二十一条 负责审查的有关人员应当向安全生产许可证颁发管理机关提出审查意见。
      安全生产许可证颁发管理机关应当对有关人员提出的审查意见进行讨论,并在受理申请之日起45个工作日内作出颁发或者不予颁发安全生产许可证的决定。
      对决定颁发的,安全生产许可证颁发管理机关应当自决定之日起10个工作日内送达或者通知申请人领取安全生产许可证;对不予颁发的,应当在10个工作日内书面通知申请人并说明理由。
      第二十二条 经审查符合本实施办法规定的,安全生产许可证颁发管理机关应当分别向危险化学品生产企业及其分公司、子公司以及分公司、子公司下属的生产单位颁发安全生产许可证。
      第二十三条 安全生产许可证有效期为3年。安全生产许可证有效期满后继续生产危险化学品的,应当于安全生产许可证有效期满前3个月,按照本实施办法第十七条的规定向原安全生产许可证颁发管理机关提出延期申请,并提交本实施办法第十八条规定的文件、资料和安全生产许可证副本。
      第二十四条 对已经受理的延期申请,安全生产许可证颁发管理机关应当按照本实施办法第二十、二十一、二十二条的规定办理安全生产许可证延期手续。
      第二十五条 危险化学品生产企业在安全生产许可证有效期内符合下列条件的,安全生产许可证有效期届满时,经原安全生产许可证颁发管理机关同意,不再审查,直接办理延期手续:
      (一)严格遵守有关安全生产的法律法规和本实施办法;
      (二)取得安全生产许可证后,加强日常安全生产管理,未降低安全生产条件;
      (三)接受安全生产许可证颁发管理机关及所在地人民政府安全生产监督管理部门的监督检查;
      (四)未发生死亡事故。
      第二十六条 危险化学品生产企业在安全生产许可证有效期内有下列情形之一的,应当向原安全生产许可证颁发管理机关申请变更安全生产许可证:
      (一)变更主要负责人的;
      (二)变更隶属关系的;
      (三)变更企业名称的;
      (四)新建、改建、扩建项目经验收合格的。
      变更本条第一款第(一)、(二)、(三)项的,自工商营业执照变更之日起10个工作日内提出申请;变更本条第一款第(四)项的,应当在新建、改建、扩建项目验收合格后10个工作日内提出申请。
      申请变更本条第一款第(一)项的,应提供变更后的工商营业执照副本和主要负责人考核合格证明材料;申请变更本条第一款第(二)、(三)项的,应提供变更后的工商营业执照副本;申请变更本条第一款第(四)项的,应提交与建设项目相关的文件、资料。
      第二十七条 对已经受理的本实施办法第二十六条第一款第(一)、(二)、(三)项的变更申请,安全生产许可证颁发管理机关在对申请人提交的文件、资料审核后,即可办理安全生产许可证变更手续。
      对已经受理的本实施办法第二十六条第一款第(四)项的变更申请,安全生产许可证颁发管理机关应当按照本实施办法第二十、二十一、二十二条的规定办理安全生产许可证变更手续。
      第二十八条 对决定批准延期、变更安全生产许可证的,安全生产许可证颁发管理机关应当收回原安全生产许可证,换发新的安全生产许可证。
      第二十九条 危险化学品生产企业安全生产许可证分为正副本,具有同等法律效力,正本为悬挂式,副本为折页式。
      危险化学品生产企业安全生产许可证由国务院安全生产监督管理部门统一印制和编号。
      危险化学品生产企业安全生产许可证申请书、审查书、延期申请书、变更申请书等由国务院安全生产监督管理部门规定统一格式。

      第四章 安全生产许可证的监督管理

      第三十条 已经建成投产的危险化学品生产企业在申请安全生产许可证期间,应当依法进行生产,确保安全;不具备安全生产条件的,应当进行整改并制定安全保障措施;经整改仍不具备安全生产条件的,不得进行生产。
      第三十一条 危险化学品生产企业不得转让、冒用、买卖、出租、出借或使用伪造的安全生产许可证。
      第三十二条 安全生产许可证颁发管理机关应当坚持公开、公平、公正的原则,严格依照本实施办法的规定审查、颁发安全生产许可证。
      安全生产许可证颁发管理机关工作人员在安全生产许可证颁发、管理和监督检查工作中,不得索取或者接受危险化学品生产企业的财物,不得谋取其他利益。
      第三十三条 安全生产许可证颁发管理机关发现有下列情形之一的,应当撤销已经颁发的安全生产许可证:
      (一)超越职权颁发安全生产许可证的;
      (二)违反本实施办法规定的程序颁发安全生产许可证的;
      (三)不具备本实施办法规定的安全生产条件颁发安全生产许可证的;
      (四)以欺骗、贿赂等不正当手段取得安全生产许可证的。
      第三十四条 取得安全生产许可证的危险化学品生产企业有下列情形之一的,安全生产许可证颁发管理机关应当注销其安全生产许可证:
      (一)终止危险化学品生产活动的;
      (二)安全生产许可证被依法撤销的;
      (三)安全生产许可证被依法吊销的。
      第三十五条 危险化学品生产企业隐瞒有关情况或者提供虚假材料申请安全生产许可证的,安全生产许可证颁发管理机关不予受理,该企业在一年内不得再次申请安全生产许可证。
      第三十六条 设区的市、县级人民政府安全生产监督管理部门负责本行政区域内取得安全生产许可证的危险化学品生产企业的日常监督检查,并将监督检查中发现的问题及时报告安全生产许可证颁发管理机关。
      第三十七条 安全生产许可证颁发管理机关每6个月向社会公布一次取得安全生产许可证的危险化学品生产企业情况。
      第三十八条 安全生产许可证颁发管理机关应当将危险化学品生产企业安全生产许可证颁发管理情况通报危险化学品生产企业所在地县级以上地方人民政府及其安全生产监督管理部门。
      第三十九条 安全生产许可证颁发管理机关应当加强对危险化学品生产企业安全生产许可证的监督管理,建立、健全危险化学品生产企业安全生产许可证档案管理制度。
      第四十条 省、自治区、直辖市人民政府安全生产监督管理部门应当于每年1月15日前,将本行政区域内上年度危险化学品生产企业安全生产许可证的颁发和管理情况报国务院安全生产监督管理部门。
      第四十一条 监察机关依照《中人民共和国行政监察法》的规定,对安全生产许可证颁发管理机关及其工作人员履行《安全生产许可证条例》和本实施办法规定的职责实施监察。
      第四十二条 任何单位或者个人对违反《安全生产许可证条例》和本实施办法规定的行为,有权向安全生产许可证颁发管理机关或者监察机关等有关部门举报。

      第五章 罚则

      第四十三条 安全生产许可证颁发管理机关工作人员有下列行为之一的,给予降级或者撤职的行政处分;构成犯罪的,依法追究刑事责任:
      (一)向不符合本实施办法规定的安全生产条件的危险化学品生产企业颁发安全生产许可证的;
      (二)发现危险化学品生产企业未依法取得安全生产许可证擅自从事生产活动,不依法处理的;
      (三)发现取得安全生产许可证的危险化学品生产企业不再具备本实施办法规定的安全生产条件,不依法处理的;
      (四)接到对违反本实施办法规定行为的举报后,不及时处理的;
      (五)在安全生产许可证颁发、管理和监督检查工作中,索取或者接受危险化学品生产企业的财物,或者谋取其他利益的。
      第四十四条 承担安全评价、检测、检验工作的机构,出具虚假安全评价、检测、检验报告或者证明,构成犯罪的,依照刑法有关规定追究刑事责任;尚不够刑事处罚的,没收违法所得,违法所得在5000元以上的,并处违法所得2倍以上5倍以下的罚款,没有违法所得或者违法所得不足5000元的,单处或者并处5000元以上2万元以下的罚款;对其直接负责的主管人员和其他直接责任人员处5000元以上5万元以下的罚款,给他人造成损害的,与危险化学品生产企业承担连带赔偿责任。
      对有前款违法行为的机构,撤销其相应资格。
      第四十五条 取得安全生产许可证的危险化学品生产企业不具备本实施办法第五条第一、二款和第六条至第十一条规定的安全生产条件之一的,予以警告,责令整改,并处1万元以上3万元以下罚款。
      第四十六条 取得安全生产许可证的危险化学品生产企业有下列行为之一的,暂扣其安全生产许可证并限期整改:
      (一)发生重大事故的;
      (二)不具备本实施办法第五条第三款和第十二条至第十六条规定的安全生产条件之一的;
      (三)本实施办法第四十五条规定责令整改而未进行整改的。
      第四十七条 取得安全生产许可证的危险化学品生产企业有下列行为之一的,吊销其安全生产许可证:
      (一)倒卖、出租、出借或者以其他形式非法转让安全生产许可证的;
      (二)提供虚假证明文件或采取其他欺骗手段,取得安全生产许可证的;
      (三)暂扣安全生产许可证后未按期整改或者逾期仍不具备本实施办法规定的安全生产条件的。
      有前款第(一)、(二)项行为之一的,没收违法所得,并处10万元以上50万元以下的罚款;构成犯罪的,依法追究刑事责任。
      第四十八条 危险化学品生产企业有下列行为之一的,责令停止生产,没收违法所得,并处10万元以上50万元以下的罚款;造成重大事故或者其他严重后果,构成犯罪的,依法追究刑事责任:
      (一)未取得安全生产许可证,擅自进行危险化学品生产的;
      (二)接受转让的安全生产许可证的;
      (三)冒用安全生产许可证的;
      (四)使用伪造安全生产许可证的。
      第四十九条 危险化学品生产企业在安全生产许可证有效期满未办理延期手续,继续进行生产的,责令停止生产,限期补办延期手续,没收违法所得,并处5万元以上10万元以下的罚款;逾期仍不办理延期手续,继续进行生产的,依照本实施办法第四十八条的规定处罚。
      第五十条 危险化学品生产企业在安全生产许可证有效期内,主要负责人、隶属关系和企业名称发生变化,未按本实施办法的规定申请、办理变更手续的,责令限期办理变更手续,并处1万元以上3万元以下罚款。
      危险化学品生产企业新建、改建、扩建项目已经验收合格,未按本实施办法的规定申请、办理变更手续擅自投入生产的,责令停止生产活动,限期办理变更手续,并处1万元以上3万元以下罚款;逾期仍不办理变更手续,继续进行生产的,依照本实施办法第四十八条的规定处罚。
      第五十一条 《安全生产许可证条例》施行前已经进行生产的危险化学品生产企业,应当在2005年1月13日前,按照本实施办法的规定向安全生产许可证颁发管理机关申请办理安全生产许可证;逾期不办理安全生产许可证或者经审查不符合本实施办法的规定,未取得安全生产许可证继续进行生产的,依照本办法第四十八条规定处罚。

      第六章 附则

      第五十二条 本实施办法下列用语的含义:
      化学品,是指各种化学元素、由元素组成的化合物及其混合物,包括天然的或者人造的。
      危险化学品,是指具有易燃、易爆、有毒、有害及有腐蚀特性,会对人员、设施、环境造成伤害或损害的化学品,包括爆炸品,压缩气体、液化气体,易燃液体、易燃固体,自燃物品和遇湿易燃物品,氧化剂和有机过氧化物,有毒品,腐蚀品等。
      危险化学品生产企业,是指依法设立且取得企业法人营业执照的从事危险化学品生产的企业,包括最终产品或者中间产品列入《危险化学品名录》的危险化学品的生产企业。
      中间产品,是指危险化学品生产企业为满足生产的需要,生产一种或多种产品作为下一个生产过程参与化学反应的原料。
      危险化学品名录,是指国务院安全生产监督管理部门依据《危险化学品安全管理条例》公布的危险化学品名录。
      危险化学品生产单位,是指危险化学品生产企业或者其分公司、子公司所属的独立核算生产成本的单位。
      危险化学品生产企业作业场所,是指可能使从业人员接触危险化学品的任何作业活动场所,包括从事危险化学品的生产、操作、处置、储存、搬运、运输、废弃危险化学品的处置或者处理等场所。
      第五十三条 《安全生产许可证条例》和本实施办法规定的行政处罚,由安全生产许可证颁发管理机关决定。 
      第五十四条 本实施办法自公布之日起施行。

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