<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 中华人民共和国城市房地产管理法
    中华人民共和国城市房地产管理法   类型:建设、房地产


    (1994.07.05全国人大常委会颁布 ,1995.01.01起实施)


      第一章 总 则

      第一条 为了加强对城市房地产的管理,维护房地产市场秩序,保障房地产权利人的合法权益,促进房地产业的健康发展,制定本法。

      第二条 在中华人民共和国城市规划区国有土地(以下简称国有土地)范围内取得房地产开发用地的土地使用权,从事房地产开发、房地产交易,实施房地产管理,应当遵守本法。

      本法所称房屋,是指土地上的房屋等建筑物及构筑物。

      本法所称房地产开发,是指在依据本法取得国有土地使用权的土地上进行基础设施、房屋建设的行为。

      本法所称房地产交易,包括房地产转让、房地产抵押和房屋租赁。

      第三条 国家依法实行国有土地有偿、有限期使用制度。但是,国家在本法规定的范围内划拨国有土地使用权的除外。

      第四条 国家根据社会、经济发展水平,扶持发展居民住宅建设,逐步改善居民的居住条件。

      第五条 房地产权利人应当遵守法律和行政法规,依法纳税。房地产权利人的合法权益受法律保护,任何单位和个人不得侵犯。

      第六条 国务院建设行政主管部门、土地管理部门依照国务院规定的职权划分,各司其职,密切配合,管理全国房地产工作。

      县级以上地方人民政府房产管理、土地管理部门的机构设置及其职权由省、自治区、直辖市人民政府确定。

      第二章 房地产开发用地

      第一节 土地使用权出让

      第七条 土地使用权出让,是指国家将国有土地使用权(以下简称土地使用权)在一定年限内出让给土地使用者,由土地使用者向国家支付土地使用权出让金的行为。

      第八条 城市规划区内的集体所有的土地,经依法征用转为国有土地后,该幅国有土地的使用权方可有偿出让。

      第九条 土地使用权出让,必须符合土地利用总体规划、城市规划和年度建设用地计划。

      第十条 县级以上地方人民政府出让土地使用权用于房地产开发的,须根据省级以上人民政府下达的控制指标拟订年度出让土地使用权总面积方案,按照国务院规定,报国务院或者省级人民政府批准。

      第十一条 土地使用权出让,由市、县人民政府有计划、有步骤地进行。出让的每幅地块、用途、年限和其他条件,由市、县人民政府土地管理部门会同城市规划、建设、房产管理部门共同拟定方案,按照国务院规定,报经有批准权的人民政府批准后,由市、县人民政府土地管理部门实施。

      直辖市的县人民政府及其有关部门行使前款规定的权限,由直辖市人民政府规定。

      第十二条 土地使用权出让,可以采取拍卖、招标或者双方协议的方式。

      商业、旅游、娱乐和豪华住宅用地,有条件的,必须采取拍卖、招标方式;没有条件,不能采取拍卖、招标方式的,可以采取双方协议的方式。

      采取双方协议方式出让土地使用权的出让金不得低于按国家规定所确定的最低价。

      第十三条 土地使用权出让最高年限由国务院规定。

      第十四条 土地使用权出让,应当签订书面出让合同。

      土地使用权出让合同由市、县人民政府土地管理部门与土地使用者签订。

      第十五条 土地使用者必须按照出让合同约定,支付土地使用权出让金;未按照出让合同约定支付土地使用权出让金的,土地管理部门有权解除合同,并可以请求违约赔偿。

      第十六条 土地使用者按照出让合同约定支付土地使用权出让金的,市、县人民政府土地管理部门必须按照出让合同约定,提供出让的土地;未按照出让合同约定提供出让的土地的,土地使用者有权解除合同,由土地管理部门返还土地使用权出让金,土地使用者并可以请求违约赔偿。

      第十七条 土地使用者需要改变土地使用权出让合同约定的土地用途的,必须取得出让方和市、县人民政府城市规划行政主管部门的同意,签订土地使用权出让合同变更协议或者重新签订土地使用权出让合同,相应调整土地使用权出让金。

      第十八条 土地使用权出让金应当全部上缴财政,列入预算,用于城市基础设施建设和土地开发。土地使用权出让金上缴和使用的具体办法由国务院规定。

      第十九条 国家对土地使用者依法取得的土地使用权,在出让合同约定的使用年限届满前不收回;在特殊情况下,根据社会公共利益的需要,可以依照法律程序提前收回,并根据土地使用者使用土地的实际年限和开发土地的实际情况给予相应的补偿。

      第二十条 土地使用权因土地灭失而终止。

      第二十一条 土地使用权出让合同约定的使用年限届满,土地使用者需要继续使用土地的,应当至迟于届满前一年申请续期,除根据社会公共利益需要收回该幅土地的,应当予以批准。经批准准予续期的,应当重新签订土地使用权出让合同,依照规定支付土地使用权出让金。

      土地使用权出让合同约定的使用年限届满,土地使用者未申请续期或者虽申请续期但依照前款规定未获批准的,土地使用权由国家无偿收回。

      第二节 土地使用权划拨

      第二十二条 土地使用权划拨,是指县级以上人民政府依法批准,在土地使用者缴纳补偿、安置等费用后将该幅土地交付其使用,或者将土地使用权无偿交付给土地使用者使用的行为。

      依照本法规定以划拨方式取得土地使用权的,除法律、行政法规另有规定外,没有使用期限的限制。

      第二十三条 下列建设用地的土地使用权,确属必需的,可以由县级以上人民政府依法批准划拨:

      (一)国家机关用地和军事用地;

      (二)城市基础设施用地和公益事业用地;

      (三)国家重点扶持的能源、交通、水利等项目用地;

      (四)法律、行政法规规定的其他用地。

      第三章 房地产开发

      第二十四条 房地产开发必须严格执行城市规划,按照经济效益、社会效益、环境效益相统一的原则,实行全面规划、合理布局、综合开发、配套建设。

      第二十五条 以出让方式取得土地使用权进行房地产开发的,必须按照土地使用权出让合同约定的土地用途、动工开发期限开发土地。超过出让合同约定的动工开发日期满一年未动工开发的,可以征收相当于土地使用权出让金百分之二十以下的土地闲置费;满二年未动工开发的,可以无偿收回土地使用权;但是,因不可抗力或者政府、政府有关部门的行为或者动工开发必需的前期工作造成动工开发迟延的除外。

      第二十六条 房地产开发项目的设计、施工,必须符合国家的有关标准和规范。

      房地产开发项目竣工,经验收合格后,方可交付使用。

      第二十七条 依法取得的土地使用权,可以依照本法和有关法律、行政法规的规定,作价入股,合资、合作开发经营房地产。

      第二十八条 国家采取税收等方面的优惠措施鼓励和扶持房地产开发企业开发建设居民住宅。

      第二十九条 房地产开发企业是以营利为目的,从事房地产开发和经营的企业。设立房地产开发企业,应当具备下列条件:

      (一)有自己的名称和组织机构;

      (二)有固定的经营场所;

      (三)有符合国务院规定的注册资本;

      (四)有足够的专业技术人员;

      (五)法律、行政法规规定的其他条件。

      设立房地产开发企业,应当向工商行政管理部门申请设立登记。工商行政管理部门对符合本法规定条件的,应当予以登记,发给营业执照;对不符合本法规定条件的,不予登记。

      设立有限责任公司、股份有限公司,从事房地产开发经营的,还应当执行公司法的有关规定。

      房地产开发企业在领取营业执照后的一个月内,应当到登记机关所在地的县级以上地方人民政府规定的部门备案。

      第三十条 房地产开发企业的注册资本与投资总额的比例应当符合国家有关规定。

      房地产开发企业分期开发房地产的,分期投资额应当与项目规模相适应,并按照土地使用权出让合同的约定,按期投入资金,用于项目建设。

      第四章 房地产交易

      第一节 一般规定

      第三十一条 房地产转让、抵押时,房屋的所有权和该房屋占用范围内的土地使用权同时转让、抵押。

      第三十二条 基准地价、标定地价和各类房屋的重置价格应当定期确定并公布。具体办法由国务院规定。

      第三十三条 国家实行房地产价格评估制度。

      房地产价格评估,应当遵循公正、公平、公开的原则,按照国家规定的技术标准和评估程序,以基准地价、标定地价和各类房屋的重置价格为基础,参照当地的市场价格进行评估。

      第三十四条 国家实行房地产成交价格申报制度。

      房地产权利人转让房地产,应当向县级以上地方人民政府规定的部门如实申报成交价,不得瞒报或者作不实的申报。

      第三十五条 房地产转让、抵押,当事人应当依照本法第五章的规定办理权属登记。

      第二节 房地产转让

      第三十六条 房地产转让,是指房地产权利人通过买卖、赠与或者其他合法方式将其房地产转移给他人的行为。

      第三十七条 下列房地产,不得转让:

      (一)以出让方式取得土地使用权的,不符合本法第三十八条规定的条件的;

      (二)司法机关和行政机关依法裁定、决定查封或者以其他形式限制房地产权利的;

      (三)依法收回土地使用权的;

      (四)共有房地产,未经其他共有人书面同意的;

      (五)权属有争议的;

      (六)未依法登记领取权属证书的;

      (七)法律、行政法规规定禁止转让的其他情形。

      第三十八条 以出让方式取得土地使用权的,转让房地产时,应当符合下列条件:

      (一)按照出让合同约定已经支付全部土地使用权出让金,并取得土地使用权证书;

      (二)按照出让合同约定进行投资开发,属于房屋建设工程的,完成开发投资总额的百分之二十五以上,属于成片开发土地的,形成工业用地或者其他建设用地条件。

      转让房地产时房屋已经建成的,还应当持有房屋所有权证书。

      第三十九条 以划拨方式取得土地使用权的,转让房地产时,应当按照国务院规定,报有批准权的人民政府审批。有批准权的人民政府准予转让的,应当由受让方办理土地使用权出让手续,并依照国家有关规定缴纳土地使用权出让金。

      以划拨方式取得土地使用权的,转让房地产报批时,有批准权的人民政府按照国务院规定决定可以不办理土地使用权出让手续的,转让方应当按照国务院规定将转让房地产所获收益中的土地收益上缴国家或者作其他处理。

      第四十条 房地产转让,应当签订书面转让合同,合同中应当载明土地使用权取得的方式。

      第四十一条 房地产转让时,土地使用权出让合同载明的权利、义务随之转移。

      第四十二条 以出让方式取得土地使用权的,转让房地产后,其土地使用权的使用年限为原土地使用权出让合同约定的使用年限减去原土地使用者已经使用年限后的剩余年限。

      第四十三条 以出让方式取得土地使用权的,转让房地产后,受让人改变原土地使用权出让合同约定的土地用途的,必须取得原出让方和市、县人民政府城市规划行政主管部门的同意,签订土地使用权出让合同变更协议或者重新签订土地使用权出让合同,相应调整土地使用权出让金。

      第四十四条 商品房预售,应当符合下列条件:

      (一)已交付全部土地使用权出让金,取得土地使用权证书;

      (二)持有建设工程规划许可证;

      (三)按提供预售的商品房计算,投入开发建设的资金达到工程建设总投资的百分之二十五以上,并已经确定施工进度和竣工交付日期;

      (四)向县级以上人民政府房产管理部门办理预售登记,取得商品房预售许可证明。

      商品房预售人应当按照国家有关规定将预售合同报县级以上人民政府房产管理部门和土地管理部门登记备案。

      商品房预售所得款项,必须用于有关的工程建设。

      第四十五条 商品房预售的,商品房预购人将购买的未竣工的预售商品房再行转让的问题,由国务院规定。

      第三节 房地产抵押

      第四十六条 房地产抵押,是指抵押人以其合法的房地产以不转移占有的方式向抵押权人提供债务履行担保的行为。债务人不覆行债务时,抵押权人有权依法以抵押的房地产拍卖所得的价款优先受偿。

      第四十七条 依法取得的房屋所有权连同该房屋占用范围内的土地使用权,可以设定抵押权。

      以出让方式取得的土地使用权,可以设定抵押权。

      第四十八条 房地产抵押,应当凭土地使用权证书、房屋所有权证书办理。

      第四十九条 房地产抵押,抵押人和抵押权人应当签订书面抵押合同。

      第五十条 设定房地产抵押权的土地使用权是以划拨方式取得的,依法拍卖该房地产后,应当从拍卖所得的价款中缴纳相当于应缴纳的土地使用权出让金的款额后,抵押权人方可优先受偿。

      第五十一条 房地产抵押合同签订后,土地上新增的房屋不属于抵押财产。需要拍卖该抵押的房地产时,可以依法将土地上新增的房屋与抵押财产一同拍卖,但对拍卖新增房屋所得,抵押权人无权优先受偿。第四节 房屋租赁

      第五十二条 房屋租赁,是指房屋所有权人作为出租人将其房屋出租给承租人使用,由承租人向出租人支付租金的行为。

      第五十三条 房屋租赁,出租人和承租人应当签订书面租赁合同,约定租赁期限、租赁用途、租赁价格、修缮责任等条款,以及双方的其他权利和义务,并向房产管理部门登记备案。

      第五十四条 住宅用房的租赁,应当执行国家和房屋所在城市人民政府规定的租赁政策。租用房屋从事生产、经营活动的,由租赁双方协商议定租金和其他租赁条款。

      第五十五条 以营利为目的,房屋所有权人将以划拨方式取得使用权的国有土地上建成的房屋出租的,应当将租金中所含土地收益上缴国家。具体办法由国务院规定。第五节 中介服务机构

      第五十六条 房地产中介服务机构包括房地产咨询机构、房地产价格评估机构、房地产经纪机构等。

      第五十七条 房地产中介服务机构应当具备下列条件:

      (一)有自己的名称和组织机构;

      (二)有固定的服务场所;

      (三)有必要的财产和经费;

      (四)有足够数量的专业人员;

      (五)法律、行政法规规定的其他条件。

      设立房地产中介服务机构,应当向工商行政管理部门申请设立登记,领取营业执照后,方可开业。

      第五十八条 国家实行房地产价格评估人员资格认证制度。第五章 房地产权属登记管理

      第五十九条 国家实行土地使用权和房屋所有权登记发证制度。

      第六十条 以出让或者划拨方式取得土地使用权,应当向县级以上地方人民政府土地管理部门申请登记,经县级以上地方人民政府土地管理部门核实,由同级人民政府颁发土地使用权证书。

      在依法取得的房地产开发用地上建成房屋的,应当凭土地使用权证书向县级以上地方人民政府房产管理部门申请登记,由县级以上地方人民政府房产管理部门核实并颁发房屋所有权证书。

      房地产转让或者变更时,应当向县级以上地方人民政府房产管理部门申请房产变更登记,并凭变更后的房屋所有权证书向同级人民政府土地管理部门申请土地使用权变更登记,经同级人民政府土地管理部门核实,由同级人民政府更换或者更改土地使用权证书。

      法律另有规定的,依照有关法律的规定办理。

      第六十一条 房地产抵押时,应当向县级以上地方人民政府规定的部门办理抵押登记。

      因处分抵押房地产而取得土地使用权和房屋所有权的,应当依照本章规定办理过户登记。

      第六十二条 经省、自治区、直辖市人民政府确定,县级以上地方人民政府由一个部门统一负责房产管理和土地管理工作的,可以制作、颁发统一的房地产权证书,依照本法第六十条的规定,将房屋的所有权和该房屋占用范围内的土地使用权的确认和变更,分别载入房地产权证书。第六章 法律责任

      第六十三条 违反本法第十条、第十一条的规定,擅自批准出让或者擅自出让土地使用权用于房地产开发的,由上级机关或者所在单位给予有关责任人员行政处分。

      第六十四条 违反本法第二十九条的规定,未取得营业执照擅自从事房地产开发业务的,由县级以上人民政府工商行政管理部门责令停止房地产开发业务活动,没收违法所得,可以并处罚款。

      第六十五条 违反本法第三十八条第一款的规定转让土地使用权的,由县级以上人民政府土地管理部门没收违法所得,可以并处罚款。

      第六十六条 违反本法第三十九条第一款的规定转让房地产的,由县级以上人民政府土地管理部门责令缴纳土地使用权出让金,没收违法所得,可以并处罚款。

      第六十七条 违反本法第四十四条第一款的规定预售商品房的,由县级以上人民政府房产管理部门责令停止预售活动,没收违法所得,可以并处罚款。

      第六十八条 违反本法第五十七条的规定,未取得营业执照擅自从事房地产中介服务业务的,由县级以上人民政府工商行政管理部门责令停止房地产中介服务业务活动,没收违法所得,可以并处罚款。

      第六十九条 没有法律、法规的依据,向房地产开发企业收费的,上级机关应当责令退回所收取的钱款;情节严重的,由上级机关或者所在单位给予直接责任人员行政处分。

      第七十条 房产管理部门、土地管理部门工作人员玩忽职守、滥用职权,构成犯罪的,依法追究刑事责任;不构成犯罪的,给予行政处分。

      房产管理部门、土地管理部门工作人员利用职务上的便利,索取他人财物,或者非法收受他人财物为他人谋取利益,构成犯罪的,依照惩治贪污罪贿赂罪的补充规定追究刑事责任;不构成犯罪的,给予行政处分。

    第七章 附 则

      第七十一条 在城市规划区外的国有土地范围内取得房地产开发用地的土地使用权,从事房地产开发、交易活动以及实施房地产管理,参照本法。

      第七十二条 本法自1995年1月1日起施行。

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