<% 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 年 12 月 28 日发布,1996 年 4 月 1 日起施行)


     第一章 总则

      第一条 为了保障和促进电力事业的发展,维护电力投资者、经营者和使用者的合法权益,保障电力安全运行,制定本法。

      第二条 本法适用于中华人民共和国境内的电力建设、生产、供应和使用活动。

      第三条 电力事业应当适应国民经济和社会发展的需要,适当超前发展。国家鼓励、引导国内外的经济组织和个人依法投资开发电源,兴办电力生产企业。

      电力事业投资,实行谁投资、谁收益的原则。

      第四条 电力设施受国家保护。

      禁止任何单位和个人危害电力设施安全或者非法侵占、使用电能。

      第五条 电力建设、生产、供应和使用应当依法保护环境,采用新技术,减少有害物质排放,防治污染和其他公害。

      国家鼓励和支持利用可再生能源和清洁能源发电。

      第六条 国务院电力管理部门负责全国电力事业的监督管理。国务院有关部门在各自的职责范围内负责电力事业的监督管理。

      县级以上地方人民政府经济综合主管部门是本行政区域内的电力管理部门,负责电力事业的监督管理。县级以上地方人民政府有关部门在各自的职责范围内负责电力事业的监督管理。

      第七条 电力建设企业、电力生产企业、电网经营企业依法实行自主经营、自负盈亏,并接受电力管理部门的监督。

      第八条 国家帮助和扶持少数民族地区、边远地区和贫困地区发展电力事业。

      第九条 国家鼓励在电力建设、生产、供应和使用过程中,采用先进的科学技术和管理方法,对在研究、开发、采用先进的科学技术和管理方法等方面作出显著成绩的单位和个人给予奖励。

    第二章 电力建设

      第十条 电力发展规划应当根据国民经济和社会发展的需要制定,并纳入国民经济和社会发展计划。

      电力发展规划,应当体现合理利用能源、电源与电网配套发展、提高经济效益和有利于环境保护的原则。

      第十一条 城市电网的建设与改造规划,应当纳入城市总体规划。城市人民政府应当按照规划,安排变电设施用地、输电线路走廊和电缆通道。

      任何单位和个人不得非法占用变电设施用地、输电线路走廊和电缆通道。

      第十二条 国家通过制定有关政策,支持、促进电力建设。

      地方人民政府应当根据电力发展规划,因地制宜,采取多种措施开发电源,发展电力建设。

      第十三条 电力投资者对其投资形成的电力,享有法定权益。并网运行的,电力投资者有优先使用权;未并网的自备电厂,电力投资者自行支配使用。

      第十四条 电力建设项目应当符合电力发展规划,符合国家电力产业政策。

      电力建设项目不得使用国家明令淘汰的电力设备和技术。

      第十五条 输变电工程、调度通信自动化工程等电网配套工程和环境保护工程,应当与发电工程项目同时设计、同时建设、同时验收、同时投入使用。

      第十六条 电力建设项目使用土地,应当依照有关法律、行政法规的规定办理;依法征用土地的,应当依法支付土地补偿费和安置补偿费,做好迁移居民的安置工作。

      电力建设应当贯彻切实保护耕地、节约利用土地的原则。

      地方人民政府对电力事业依法使用土地和迁移居民,应当予以支持和协助。

      第十七条 地方人民政府应当支持电力企业为发电工程建设勘探水源和依法取水、用水。电力企业应当节约用水。

    第三章 电力生产与电网管理

      第十八条 电力生产与电网运行应当遵循安全、优质、经济的原则。

      电网运行应当连续、稳定,保证供电可靠性。

      第十九条 电力企业应当加强安全生产管理,坚持安全第一、预防为主的方针,建立、健全安全生产责任制度。

      电力企业应当对电力设施定期进行检修和维护,保证其正常运行。

      第二十条 发电燃料供应企业、运输企业和电力生产企业应当依照国务院有关规定或者合同约定供应、运输和接卸燃料。

      第二十一条 电网运行实行统一调度、分级管理。任何单位和个人不得非法干预电网调度。

      第二十二条 国家提倡电力生产企业与电网、电网与电网并网运行。具有独立法人资格的电力生产企业要求将生产的电力并网运行的,电网经营企业应当接受。

      并网运行必须符合国家标准或者电力行业标准。

      并网双方应当按照统一调度、分级管理和平等互利、协商一致的原则,签订并网协议,确定双方的权利和义务;并网双方达不成协议的,由省级以上电力管理部门协调决定。

      第二十三条 电网调度管理办法,由国务院依照本法的规定制定。

    第四章 电力供应与使用

      第二十四条 国家对电力供应和使用,实行安全用电、节约用电、计划用电的管理原则。

      电力供应与使用办法由国务院依照本法的规定制定。

      第二十五条 供电企业在批准的供电营业区内向用户供电。

      供电营业区的划分,应当考虑电网的结构和供电合理性等因素。一个供电营业区内只设立一个供电营业机构。

      省、自治区、直辖市范围内的供电营业区的设立、变更,由供电企业提出申请,经省、自治区、直辖市人民政府电力管理部门会同同级有关部门审查批准后,由省、自治区、直辖市人民政府电力管理部门发给《供电营业许可证》。跨省、自治区、直辖市的供电营业区的设立、变更,由国务院电力管理部门审查批准并发给《供电营业许可证》。供电营业机构持《供电营业许可证》向工商行政管理部门申请领取营业执照,方可营业。

      第二十六条 供电营业区内的供电营业机构,对本营业区内的用户有按照国家规定供电的义务;不得违反国家规定对其营业区内申请用电的单位和个人拒绝供电。

      申请新装用电、临时用电、增加用电容量、变更用电和终止用电,应当依照规定的程序办理手续。

      供电企业应当在其营业场所公告用电的程序、制度和收费标准,并提供用户须知资料。

      第二十七条 电力供应与使用双方应当根据平等自愿、协商一致的原则,按照国务院制定的电力供应与使用办法签订供用电合同,确定双方的权利和义务。

      第二十八条 供电企业应当保证供给用户的供电质量符合国家标准。对公用供电设施引起的供电质量问题,应当及时处理。

      用户对供电质量有特殊要求的,供电企业应当根据其必要性和电网的可能,提供相应的电力。

      第二十九条 供电企业在发电、供电系统正常的情况下,应当连续向用户供电,不得中断。因供电设施检修、依法限电或者用户违法用电等原因,需要中断供电时,供电企业应当按照国家有关规定事先通知用户。

      用户对供电企业中断供电有异议的,可以向电力管理部门投诉;受理投诉的电力管理部门应当依法处理。

      第三十条 因抢险救灾需要紧急供电时,供电企业必须尽速安排供电,所需供电工程费用和应付电费依照国家有关规定执行。

      第三十一条 用户应当安装用电计量装置。用户使用的电力电量,以计量检定机构依法认可的用电计量装置的记录为准。

      用户受电装置的设计、施工安装和运行管理,应当符合国家标准或者电力行业标准。

      第三十二条 用户用电不得危害供电、用电安全和扰乱供电、用电秩序。

      对危害供电、用电安全和扰乱供电、用电秩序的,供电企业有权制止。

      第三十三条 供电企业应当按照国家核准的电价和用电计量装置的记录,向用户计收电费。

      供电企业查电人员和抄表收费人员进入用户,进行用电安全检查或者抄表收费时,应当出示有关证件。

      用户应当按照国家核准的电价和用电计量装置的记录,按时交纳电费;对供电企业查电人员和抄表收费人员依法履行职责,应当提供方便。

      第三十四条 供电企业和用户应当遵守国家有关规定,采取有效措施,做好安全用电、节约用电和计划用电工作。

    第五章 电价与电费

      第三十五条 本法所称电价,是指电力生产企业的上网电价、电网间的互供电价、电网销售电价。

      电价实行统一政策,统一定价原则,分级管理。

      第三十六条 制定电价,应当合理补偿成本,合理确定收益,依法计入税金,坚持公平负担,促进电力建设。

      第三十七条 上网电价实行同网同质同价。具体办法和实施步骤由国务院规定。

      电力生产企业有特殊情况需另行制定上网电价的,具体办法由国务院规定。

      第三十八条 跨省、自治区、直辖市电网和省级电网内的上网电价,由电力生产企业和电网经营企业协商提出方案,报国务院物价行政主管部门核准。

      独立电网内的上网电价,由电力生产企业和电网经营企业协商提出方案,报有管理权的物价行政主管部门核准。

      地方投资的电力生产企业所生产的电力,属于在省内各地区形成独立电网的或者自发自用的,其电价可以由省、自治区、直辖市人民政府管理。

      第三十九条 跨省、自治区、直辖市电网和独立电网之间、省级电网和独立电网之间的互供电价,由双方协商提出方案,报国务院物价行政主管部门或者其授权的部门核准。

      独立电网与独立电网之间的互供电价,由双方协商提出方案,报有管理权的物价行政主管部门核准。

      第四十条 跨省、自治区、直辖市电网和省级电网的销售电价,由电网经营企业提出方案,报国务院物价行政主管部门或者其授权的部门核准。

      独立电网的销售电价,由电网经营企业提出方案,报有管理权的物价行政主管部门核准。

      第四十一条 国家实行分类电价和分时电价。分类标准和分时办法由国务院确定。

      对同一电网内的同一电压等级、同一用电类别的用户,执行相同的电价标准。

      第四十二条 用户用电增容收费标准,由国务院物价行政主管部门会同国务院电力管理部门制定。

      第四十三条 任何单位不得超越电价管理权限制定电价。供电企业不得擅自变更电价。

      第四十四条 禁止任何单位和个人在电费中加收其他费用;但是,法律、行政法规另有规定的,按照规定执行。

      地方集资办电在电费中加收费用的,由省、自治区、直辖市人民政府依照国务院有关规定制定办法。

      禁止供电企业在收取电费时,代收其他费用。

      第四十五条 电价的管理办法,由国务院依照本法的规定制定。

    第六章 农村电力建设和农业用电

      第四十六条 省、自治区、直辖市人民政府应当制定农村电气化发展规划,并将其纳入当地电力发展规划及国民经济和社会发展计划。

      第四十七条 国家对农村电气化实行优惠政策,对少数民族地区、边远地区和贫困地区的农村电力建设给予重点扶持。

      第四十八条 国家提倡农村开发水能资源,建设中、小型水电站,促进农村电气化。

      国家鼓励和支持农村利用太阳能、风能、地热能、生物质能和其他能源进行农村电源建设,增加农村电力供应。

      第四十九条 县级以上地方人民政府及其经济综合主管部门在安排用电指标时,应当保证农业和农村用电的适当比例,优先保证农村排涝、抗旱和农业季节性生产用电。

      电力企业应当执行前款的用电安排,不得减少农业和农村用电指标。

      第五十条 农业用电价格按照保本、微利的原则确定。

      农民生活用电与当地城镇居民生活用电应当逐步实行相同的电价。

      第五十一条 农业和农村用电管理办法,由国务院依照本法的规定制定。

    第七章 电力设施保护

      第五十二条 任何单位和个人不得危害发电设施、变电设施和电力线路设施及其有关辅助设施。

      在电力设施周围进行爆破及其他可能危及电力设施安全的作业的,应当按照国务院有关电力设施保护的规定,经批准并采取确保电力设施安全的措施后,方可进行作业。

      第五十三条 电力管理部门应当按照国务院有关电力设施保护的规定,对电力设施保护区设立标志。

      任何单位和个人不得在依法划定的电力设施保护区内修建可能危及电力设施安全的建筑物、构筑物,不得种植可能危及电力设施安全的植物,不得堆放可能危及电力设施安全的物品。

      在依法划定电力设施保护区前已经种植的植物妨碍电力设施安全的,应当修剪或者砍伐。

      第五十四条 任何单位和个人需要在依法划定的电力设施保护区内进行可能危及电力设施安全的作业时,应当经电力管理部门批准并采取安全措施后,方可进行作业。

      第五十五条 电力设施与公用工程、绿化工程和其他工程在新建、改建或者扩建中相互妨碍时,有关单位应当按照国家有关规定协商,达成协议后方可施工。

    第八章 监督检查

      第五十六条 电力管理部门依法对电力企业和用户执行电力法律、行政法规的情况进行监督检查。

      第五十七条 电力管理部门根据工作需要,可以配备电力监督检查人员。

      电力监督检查人员应当公正廉洁,秉公执法,熟悉电力法律、法规,掌握有关电力专业技术。

      第五十八条 电力监督检查人员进行监督检查时,有权向电力企业或者用户了解有关执行电力法律、行政法规的情况,查阅有关资料,并有权进入现场进行检查。

      电力企业和用户对执行监督检查任务的电力监督检查人员应当提供方便。

      电力监督检查人员进行监督检查时,应当出示证件。

    第九章 法律责任

      第五十九条 电力企业或者用户违反供用电合同,给对方造成损失的,应当依法承担赔偿责任。

      电力企业违反本法第二十八条、第二十九条第一款的规定,未保证供电质量或者未事先通知用户中断供电,给用户造成损失的,应当依法承担赔偿责任。

      第六十条 因电力运行事故给用户或者第三人造成损害的,电力企业应当依法承担赔偿责任。

      电力运行事故由下列原因之一造成的,电力企业不承担赔偿责任:

      (一)不可抗力;

      (二)用户自身的过错。

      因用户或者第三人的过错给电力企业或者其他用户造成损害的,该用户或者第三人应当依法承担赔偿责任。

      第六十一条 违反本法第十一条第二款的规定,非法占用变电设施用地、输电线路走廊或者电缆通道的,由县级以上地方人民政府责令限期改正;逾期不改正的,强制清除障碍。

      第六十二条 违反本法第十四条规定,电力建设项目不符合电力发展规划、产业政策的,由电力管理部门责令停止建设。

      违反本法第十四条规定,电力建设项目使用国家明令淘汰的电力设备和技术的,由电力管理部门责令停止使用,没收国家明令淘汰的电力设备,并处五万元以下的罚款。

      第六十三条 违反本法第二十五条规定,未经许可,从事供电或者变更供电营业区的,由电力管理部门责令改正,没收违法所得,可以并处违法所得五倍以下的罚款。

      第六十四条 违反本法第二十六条、第二十九条规定,拒绝供电或者中断供电的,由电力管理部门责令改正,给予警告;情节严重的,对有关主管人员和直接责任人员给予行政处分。

      第六十五条 违反本法第三十二条规定,危害供电、用电安全或者扰乱供电、用电秩序的,由电力管理部门责令改正,给予警告;情节严重或者拒绝改正的,可以中止供电,可以并处五万元以下的罚款。

      第六十六条 违反本法第三十三条、第四十三条、第四十四条规定,未按照国家核准的电价和用电计量装置的记录向用户计收电费、超越权限制定电价或者在电费中加收其他费用的,由物价行政主管部门给予警告,责令返还违法收取的费用,可以并处违法收取费用五倍以下的罚款;情节严重的,对有关主管人员和直接责任人员给予行政处分。

      第六十七条 违反本法第四十九条第二款规定,减少农业和农村用电指标的,由电力管理部门责令改正;情节严重的,对有关主管人员和直接责任人员给予行政处分;造成损失的,责令赔偿损失。

      第六十八条 违反本法第五十二条第二款和第五十四条规定,未经批准或者未采取安全措施在电力设施周围或者在依法划定的电力设施保护区内进行作业,危及电力设施安全的,由电力管理部门责令停止作业、恢复原状并赔偿损失。

      第六十九条 违反本法第五十三条规定,在依法划定的电力设施保护区内修建建筑物、构筑物或者种植植物、堆放物品,危及电力设施安全的,由当地人民政府责令强制拆除、砍伐或者清除。

      第七十条 有下列行为之一,应当给予治安管理处罚的,由公安机关依照治安管理处罚条例的有关规定予以处罚;构成犯罪的,依法追究刑事责任:

      (一)阻碍电力建设或者电力设施抢修,致使电力建设或者电力设施抢修不能正常进行的;

      (二)扰乱电力生产企业、变电所、电力调度机构和供电企业的秩序,致使生产、工作和营业不能正常进行的;

      (三)殴打、公然侮辱履行职务的查电人员或者抄表收费人员的;

      (四)拒绝、阻碍电力监督检查人员依法执行职务的。

      第七十一条 盗窃电能的,由电力管理部门责令停止违法行为,追缴电费并处应交电费五倍以下的罚款;构成犯罪的,依照刑法第一百五十一条或者第一百五十二条的规定追究刑事责任。

      第七十二条 盗窃电力设施或者以其他方法破坏电力设施,危害公共安全的,依照刑法第一百零九条或者第一百一十条的规定追究刑事责任。

      第七十三条 电力管理部门的工作人员滥用职权、玩忽职守、徇私舞弊,构成犯罪的,依法追究刑事责任;尚不构成犯罪的,依法给予行政处分。

      第七十四条 电力企业职工违反规章制度、违章调度或者不服从调度指令,造成重大事故的,比照刑法第一百一十四条的规定追究刑事责任。

      电力企业职工故意延误电力设施抢修或者抢险救灾供电,造成严重后果的,比照刑法第一百一十四条的规定追究刑事责任。

      电力企业的管理人员和查电人员、抄表收费人员勒索用户、以电谋私,构成犯罪的,依法追究刑事责任;尚不构成犯罪的,依法给予行政处分。

    第十章 附则

      第七十五条 本法自 1996 年 4 月 1 日起施行。

    附:刑法有关条款

      第一百零九条 破坏电力、煤气或者其他易燃易爆设备,危害公共安全,尚未造成严重后果的,处三年以上十年以下有期徒刑。

      第一百一十条 破坏交通工具、交通设备、电力煤气设备、易燃易爆设备造成严重后果的,处十年以上有期徒刑、无期徒刑或者死刑。

      过失犯前款罪的,处七年以下有期徒刑或者拘役。

      第一百一十四条 工厂、矿山、林场、建筑企业或者其他企业、事业单位的职工,由于不服管理、违反规章制度,或者强令工人违章 冒险作业,因而发生重大伤亡事故,造成严重后果的,处三年以下有期徒刑或者拘役;情节特别恶劣的,处三年以上七年以下有期徒刑。

      第一百五十一条 盗窃、诈骗、抢夺公私财物数额较大的,处五年以下有期徒刑、拘役或者管制。

      第一百五十二条 惯窃、惯骗或者盗窃、诈骗、抢夺公私财物数额巨大的,处五年以上十年以下有期徒刑;情节特别严重的,处十年以上有期徒刑或者无期徒刑,可以并处没收财产。

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