<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 物业管理条例
    物业管理条例   类型:建设、房地产


    (2003年5月28日国务院发布,自2003年9月1日起施行)


    第一章 总则

      第一条 为了规范物业管理活动,维护业主和物业管理企业的合法权益,改善人民群众的生活和工作环境,制定本条例。

      第二条 本条例所称物业管理,是指业主通过选聘物业管理企业,由业主和物业管理企业按照物业服务合同约定,对房屋及配套的设施设备和相关场地进行维修、养护、管理,维护相关区域内的环境卫生和秩序的活动。

      第三条 国家提倡业主通过公开、公平、公正的市场竞争机制选择物业管理企业。

      第四条 国家鼓励物业管理采用新技术、新方法,依靠科技进步提高管理和服务水平。

      第五条 国务院建设行政主管部门负责全国物业管理活动的监督管理工作。

      县级以上地方人民政府房地产行政主管部门负责本行政区域内物业管理活动的监督管理工作。

    第二章 业主及业主大会

      第六条 房屋的所有权人为业主。

      业主在物业管理活动中,享有下列权利:

      (一)按照物业服务合同的约定,接受物业管理企业提供的服务;

      (二)提议召开业主大会会议,并就物业管理的有关事项提出建议;

      (三)提出制定和修改业主公约、业主大会议事规则的建议;

      (四)参加业主大会会议,行使投票权;

      (五)选举业主委员会委员,并享有被选举权;

      (六)监督业主委员会的工作;

      (七)监督物业管理企业履行物业服务合同;

      (八)对物业共用部位、共用设施设备和相关场地使用情况享有知情权和监督权;

      (九)监督物业共用部位、共用设施设备专项维修资金(以下简称专项维修资金)的管理和使用;

      (十)法律、法规规定的其他权利。

      第七条 业主在物业管理活动中,履行下列义务:

      (一)遵守业主公约、业主大会议事规则;

      (二)遵守物业管理区域内物业共用部位和共用设施设备的使用、公共秩序和环境卫生的维护等方面的规章制度;

      (三)执行业主大会的决定和业主大会授权业主委员会作出的决定;

      (四)按照国家有关规定交纳专项维修资金;

      (五)按时交纳物业服务费用;

      (六)法律、法规规定的其他义务。

      第八条 物业管理区域内全体业主组成业主大会。

      业主大会应当代表和维护物业管理区域内全体业主在物业管理活动中的合法权益。

      第九条 一个物业管理区域成立一个业主大会。

      物业管理区域的划分应当考虑物业的共用设施设备、建筑物规模、社区建设等因素。具体办法由省、自治区、直辖市制定。

      第十条 同一个物业管理区域内的业主,应当在物业所在地的区、县人民政府房地产行政主管部门的指导下成立业主大会,并选举产生业主委员会。但是,只有一个业主的,或者业主人数较少且经全体业主一致同意,决定不成立业主大会的,由业主共同履行业主大会、业主委员会职责。

      业主在首次业主大会会议上的投票权,根据业主拥有物业的建筑面积、住宅套数等因素确定。具体办法由省、自治区、直辖市制定。

      第十一条 业主大会履行下列职责:

      (一)制定、修改业主公约和业主大会议事规则;

      (二)选举、更换业主委员会委员,监督业主委员会的工作;

      (三)选聘、解聘物业管理企业;

      (四)决定专项维修资金使用、续筹方案,并监督实施;

      (五)制定、修改物业管理区域内物业共用部位和共用设施设备的使用、公共秩序和环境卫生的维护等方面的规章制度;

      (六)法律、法规或者业主大会议事规则规定的其他有关物业管理的职责。

      第十二条 业主大会会议可以采用集体讨论的形式,也可以采用书面征求意见的形式;但应当有物业管理区域内持有1/2以上投票权的业主参加。

      业主可以委托代理人参加业主大会会议。

      业主大会作出决定,必须经与会业主所持投票权1/2以上通过。业主大会作出制定和修改业主公约、业主大会议事规则,选聘和解聘物业管理企业,专项维修资金使用和续筹方案的决定,必须经物业管理区域内全体业主所持投票权2/3以上通过。

      业主大会的决定对物业管理区域内的全体业主具有约束力。

      第十三条 业主大会会议分为定期会议和临时会议。

      业主大会定期会议应当按照业主大会议事规则的规定召开。经20%以上的业主提议,业主委员会应当组织召开业主大会临时会议。

      第十四条 召开业主大会会议,应当于会议召开15日以前通知全体业主。

      住宅小区的业主大会会议,应当同时告知相关的居民委员会。

      业主委员会应当做好业主大会会议记录。

      第十五条 业主委员会是业主大会的执行机构,履行下列职责:

      (一)召集业主大会会议,报告物业管理的实施情况;

      (二)代表业主与业主大会选聘的物业管理企业签订物业服务合同;

      (三)及时了解业主、物业使用人的意见和建议,监督和协助物业管理企业履行物业服务合同;

      (四)监督业主公约的实施;

      (五)业主大会赋予的其他职责。

      第十六条 业主委员会应当自选举产生之日起30日内,向物业所在地的区、县人民政府房地产行政主管部门备案。

      业主委员会委员应当由热心公益事业、责任心强、具有一定组织能力的业主担任。

      业主委员会主任、副主任在业主委员会委员中推选产生。

      第十七条 业主公约应当对有关物业的使用、维护、管理,业主的共同利益,业主应当履行的义务,违反公约应当承担的责任等事项依法作出约定。

      业主公约对全体业主具有约束力。

      第十八条 业主大会议事规则应当就业主大会的议事方式、表决程序、业主投票权确定办法、业主委员会的组成和委员任期等事项作出约定。

      第十九条 业主大会、业主委员会应当依法履行职责,不得作出与物业管理无关的决定,不得从事与物业管理无关的活动。

      业主大会、业主委员会作出的决定违反法律、法规的,物业所在地的区、县人民政府房地产行政主管部门,应当责令限期改正或者撤销其决定,并通告全体业主。

      第二十条 业主大会、业主委员会应当配合公安机关,与居民委员会相互协作,共同做好维护物业管理区域内的社会治安等相关工作。

      在物业管理区域内,业主大会、业主委员会应当积极配合相关居民委员会依法履行自治管理职责,支持居民委员会开展工作,并接受其指导和监督。

      住宅小区的业主大会、业主委员会作出的决定,应当告知相关的居民委员会,并认真听取居民委员会的建议。

    第三章 前期物业管理

      第二十一条 在业主、业主大会选聘物业管理企业之前,建设单位选聘物业管理企业的,应当签订书面的前期物业服务合同。

      第二十二条 建设单位应当在销售物业之前,制定业主临时公约,对有关物业的使用、维护、管理,业主的共同利益,业主应当履行的义务,违反公约应当承担的责任等事项依法作出约定。

      建设单位制定的业主临时公约,不得侵害物业买受人的合法权益。

      第二十三条 建设单位应当在物业销售前将业主临时公约向物业买受人明示,并予以说明。

      物业买受人在与建设单位签订物业买卖合同时,应当对遵守业主临时公约予以书面承诺。

      第二十四条 国家提倡建设单位按照房地产开发与物业管理相分离的原则,通过招投标的方式选聘具有相应资质的物业管理企业。

      住宅物业的建设单位,应当通过招投标的方式选聘具有相应资质的物业管理企业;投标人少于3个或者住宅规模较小的,经物业所在地的区、县人民政府房地产行政主管部门批准,可以采用协议方式选聘具有相应资质的物业管理企业。

      第二十五条 建设单位与物业买受人签订的买卖合同应当包含前期物业服务合同约定的内容。

      第二十六条 前期物业服务合同可以约定期限;但是,期限未满、业主委员会与物业管理企业签订的物业服务合同生效的,前期物业服务合同终止。

      第二十七条 业主依法享有的物业共用部位、共用设施设备的所有权或者使用权,建设单位不得擅自处分。

      第二十八条 物业管理企业承接物业时,应当对物业共用部位、共用设施设备进行查验。

      第二十九条 在办理物业承接验收手续时,建设单位应当向物业管理企业移交下列资料:

      (一)竣工总平面图,单体建筑、结构、设备竣工图,配套设施、地下管网工程竣工图等竣工验收资料;

      (二)设施设备的安装、使用和维护保养等技术资料;

      (三)物业质量保修文件和物业使用说明文件;

      (四)物业管理所必需的其他资料。

      物业管理企业应当在前期物业服务合同终止时将上述资料移交给业主委员会。

      第三十条 建设单位应当按照规定在物业管理区域内配置必要的物业管理用房。

      第三十一条 建设单位应当按照国家规定的保修期限和保修范围,承担物业的保修责任。

    第四章 物业管理服务

      第三十二条 从事物业管理活动的企业应当具有独立的法人资格。

      国家对从事物业管理活动的企业实行资质管理制度。具体办法由国务院建设行政主管部门制定。

      第三十三条 从事物业管理的人员应当按照国家有关规定,取得职业资格证书。

      第三十四条 一个物业管理区域由一个物业管理企业实施物业管理。

      第三十五条 业主委员会应当与业主大会选聘的物业管理企业订立书面的物业服务合同。

      物业服务合同应当对物业管理事项、服务质量、服务费用、双方的权利义务、专项维修资金的管理与使用、物业管理用房、合同期限、违约责任等内容进行约定。

      第三十六条 物业管理企业应当按照物业服务合同的约定,提供相应的服务。

      物业管理企业未能履行物业服务合同的约定,导致业主人身、财产安全受到损害的,应当依法承担相应的法律责任。

      第三十七条 物业管理企业承接物业时,应当与业主委员会办理物业验收手续。

      业主委员会应当向物业管理企业移交本条例第二十九条第一款规定的资料。

      第三十八条 物业管理用房的所有权依法属于业主。未经业主大会同意,物业管理企业不得改变物业管理用房的用途。

      第三十九条 物业服务合同终止时,物业管理企业应当将物业管理用房和本条例第二十九条第一款规定的资料交还给业主委员会。

      物业服务合同终止时,业主大会选聘了新的物业管理企业的,物业管理企业之间应当做好交接工作。

      第四十条 物业管理企业可以将物业管理区域内的专项服务业务委托给专业性服务企业,但不得将该区域内的全部物业管理一并委托给他人。

      第四十一条 物业服务收费应当遵循合理、公开以及费用与服务水平相适应的原则,区别不同物业的性质和特点,由业主和物业管理企业按照国务院价格主管部门会同国务院建设行政主管部门制定的物业服务收费办法,在物业服务合同中约定。

      第四十二条 业主应当根据物业服务合同的约定交纳物业服务费用。业主与物业使用人约定由物业使用人交纳物业服务费用的,从其约定,业主负连带交纳责任。

      已竣工但尚未出售或者尚未交给物业买受人的物业,物业服务费用由建设单位交纳。

      第四十三条 县级以上人民政府价格主管部门会同同级房地产行政主管部门,应当加强对物业服务收费的监督。

      第四十四条 物业管理企业可以根据业主的委托提供物业服务合同约定以外的服务项目,服务报酬由双方约定。

      第四十五条 物业管理区域内,供水、供电、供气、供热、通讯、有线电视等单位应当向最终用户收取有关费用。

      物业管理企业接受委托代收前款费用的,不得向业主收取手续费等额外费用。

      第四十六条 对物业管理区域内违反有关治安、环保、物业装饰装修和使用等方面法律、法规规定的行为,物业管理企业应当制止,并及时向有关行政管理部门报告。

      有关行政管理部门在接到物业管理企业的报告后,应当依法对违法行为予以制止或者依法处理。

      第四十七条 物业管理企业应当协助做好物业管理区域内的安全防范工作。发生安全事故时,物业管理企业在采取应急措施的同时,应当及时向有关行政管理部门报告,协助做好救助工作。

      物业管理企业雇请保安人员的,应当遵守国家有关规定。保安人员在维护物业管理区域内的公共秩序时,应当履行职责,不得侵害公民的合法权益。

      第四十八条 物业使用人在物业管理活动中的权利义务由业主和物业使用人约定,但不得违反法律、法规和业主公约的有关规定。

      物业使用人违反本条例和业主公约的规定,有关业主应当承担连带责任。

      第四十九条 县级以上地方人民政府房地产行政主管部门应当及时处理业主、业主委员会、物业使用人和物业管理企业在物业管理活动中的投诉。

      第五章 物业的使用与维护

      第五十条 物业管理区域内按照规划建设的公共建筑和共用设施,不得改变用途。

      业主依法确需改变公共建筑和共用设施用途的,应当在依法办理有关手续后告知物业管理企业;物业管理企业确需改变公共建筑和共用设施用途的,应当提请业主大会讨论决定同意后,由业主依法办理有关手续。

      第五十一条 业主、物业管理企业不得擅自占用、挖掘物业管理区域内的道路、场地,损害业主的共同利益。

      因维修物业或者公共利益,业主确需临时占用、挖掘道路、场地的,应当征得业主委员会和物业管理企业的同意;物业管理企业确需临时占用、挖掘道路、场地的,应当征得业主委员会的同意。

      业主、物业管理企业应当将临时占用、挖掘的道路、场地,在约定期限内恢复原状。

      第五十二条 供水、供电、供气、供热、通讯、有线电视等单位,应当依法承担物业管理区域内相关管线和设施设备维修、养护的责任。

      前款规定的单位因维修、养护等需要,临时占用、挖掘道路、场地的,应当及时恢复原状。

      第五十三条 业主需要装饰装修房屋的,应当事先告知物业管理企业。

      物业管理企业应当将房屋装饰装修中的禁止行为和注意事项告知业主。

      第五十四条 住宅物业、住宅小区内的非住宅物业或者与单幢住宅楼结构相连的非住宅物业的业主,应当按照国家有关规定交纳专项维修资金。

      专项维修资金属业主所有,专项用于物业保修期满后物业共用部位、共用设施设备的维修和更新、改造,不得挪作他用。

      专项维修资金收取、使用、管理的办法由国务院建设行政主管部门会同国务院财政部门制定。

      第五十五条 利用物业共用部位、共用设施设备进行经营的,应当在征得相关业主、业主大会、物业管理企业的同意后,按照规定办理有关手续。业主所得收益应当主要用于补充专项维修资金,也可以按照业主大会的决定使用。

      第五十六条 物业存在安全隐患,危及公共利益及他人合法权益时,责任人应当及时维修养护,有关业主应当给予配合。

      责任人不履行维修养护义务的,经业主大会同意,可以由物业管理企业维修养护,费用由责任人承担。

    第六章 法律责任

      第五十七条 违反本条例的规定,住宅物业的建设单位未通过招投标的方式选聘物业管理企业或者未经批准,擅自采用协议方式选聘物业管理企业的,由县级以上地方人民政府房地产行政主管部门责令限期改正,给予警告,可以并处10万元以下的罚款。

      第五十八条 违反本条例的规定,建设单位擅自处分属于业主的物业共用部位、共用设施设备的所有权或者使用权的,由县级以上地方人民政府房地产行政主管部门处5万元以上20万元以下的罚款;给业主造成损失的,依法承担赔偿责任。

      第五十九条 违反本条例的规定,不移交有关资料的,由县级以上地方人民政府房地产行政主管部门责令限期改正;逾期仍不移交有关资料的,对建设单位、物业管理企业予以通报,处1万元以上10万元以下的罚款。

      第六十条 违反本条例的规定,未取得资质证书从事物业管理的,由县级以上地方人民政府房地产行政主管部门没收违法所得,并处5万元以上20万元以下的罚款;给业主造成损失的,依法承担赔偿责任。

      以欺骗手段取得资质证书的,依照本条第一款规定处罚,并由颁发资质证书的部门吊销资质证书。

      第六十一条 违反本条例的规定,物业管理企业聘用未取得物业管理职业资格证书的人员从事物业管理活动的,由县级以上地方人民政府房地产行政主管部门责令停止违法行为,处5万元以上20万元以下的罚款;给业主造成损失的,依法承担赔偿责任。

      第六十二条 违反本条例的规定,物业管理企业将一个物业管理区域内的全部物业管理一并委托给他人的,由县级以上地方人民政府房地产行政主管部门责令限期改正,处委托合同价款30%以上50%以下的罚款;情节严重的,由颁发资质证书的部门吊销资质证书。委托所得收益,用于物业管理区域内物业共用部位、共用设施设备的维修、养护,剩余部分按照业主大会的决定使用;给业主造成损失的,依法承担赔偿责任。

      第六十三条 违反本条例的规定,挪用专项维修资金的,由县级以上地方人民政府房地产行政主管部门追回挪用的专项维修资金,给予警告,没收违法所得,可以并处挪用数额2倍以下的罚款;物业管理企业挪用专项维修资金,情节严重的,并由颁发资质证书的部门吊销资质证书;构成犯罪的,依法追究直接负责的主管人员和其他直接责任人员的刑事责任。

      第六十四条 违反本条例的规定,建设单位在物业管理区域内不按照规定配置必要的物业管理用房的,由县级以上地方人民政府房地产行政主管部门责令限期改正,给予警告,没收违法所得,并处10万元以上50万元以下的罚款。

      第六十五条 违反本条例的规定,未经业主大会同意,物业管理企业擅自改变物业管理用房的用途的,由县级以上地方人民政府房地产行政主管部门责令限期改正,给予警告,并处1万元以上10万元以下的罚款;有收益的,所得收益用于物业管理区域内物业共用部位、共用设施设备的维修、养护,剩余部分按照业主大会的决定使用。

      第六十六条 违反本条例的规定,有下列行为之一的,由县级以上地方人民政府房地产行政主管部门责令限期改正,给予警告,并按照本条第二款的规定处以罚款;所得收益,用于物业管理区域内物业共用部位、共用设施设备的维修、养护,剩余部分按照业主大会的决定使用:

      (一)擅自改变物业管理区域内按照规划建设的公共建筑和共用设施用途的;

      (二)擅自占用、挖掘物业管理区域内道路、场地,损害业主共同利益的;

      (三)擅自利用物业共用部位、共用设施设备进行经营的。

      个人有前款规定行为之一的,处1000元以上1万元以下的罚款;单位有前款规定行为之一的,处5万元以上20万元以下的罚款。

      第六十七条 违反物业服务合同约定,业主逾期不交纳物业服务费用的,业主委员会应当督促其限期交纳;逾期仍不交纳的,物业管理企业可以向人民法院起诉。

      第六十八条 业主以业主大会或者业主委员会的名义,从事违反法律、法规的活动,构成犯罪的,依法追究刑事责任;尚不构成犯罪的,依法给予治安管理处罚。

      第六十九条 违反本条例的规定,国务院建设行政主管部门、县级以上地方人民政府房地产行政主管部门或者其他有关行政管理部门的工作人员利用职务上的便利,收受他人财物或者其他好处,不依法履行监督管理职责,或者发现违法行为不予查处,构成犯罪的,依法追究刑事责任;尚不构成犯罪的,依法给予行政处分。

    第七章 附则

      第七十条 本条例自2003年9月1日起施行。

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