<% 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年6月24日中华人民共和国国务院令第156号 1994年7月1日起施行)


      第一章 总则
      第一条 为了确认公司的企业法人资格,规范公司登记行为,依据《中华人民共和国公司法》(以下简称《公司法》),制定本条例。
      第二条 有限责任公司和股份有限公司(以下统称公司)设立、变更、终止,应当依照本条例办理公司登记。
      第三条 公司经公司登记机关依法核准登记,领取《企业法人营业执照》,方取得企业法人资格。
      自本条例施行之日起设立公司,未经公司登记机关核准登记的,不得以公司名义从事经营活动。
      第四条 工商行政管理机关是公司登记机关。
      下级公司登记机关在上级公司登记机关的领导下开展公司登记工作。
      公司登记机关依法履行职责,不受非法干预。
      第五条 国家工商行政管理局主管全国的公司登记工作。
      第二章 登记管辖
      第六条 国家工商行政管理局负责下列公司的登记:
      (一)国务院授权部门批准设立的股份有限公司;
      (二)国务院授权投资的公司;
      (三)国务院授权投资的机构或者部门单独投资或者共同投资设立的有限责任公司;
      (四)外商投资的有限责任公司;
      (五)依照法律的规定或者按照国务院的规定,应当由国家工商行政管理局登记的其他公司。
      第七条 省、自治区、直辖市工商行政管理局负责本辖区内下列公司的登记:
      (一)省、自治区、直辖市人民政府批准设立的股份有限公司;
      (二)省、自治区、直辖市人民政府授权投资的公司;
      (三)国务院授权投资的机构或者部门与其他出资人共同投资设立的有限责任公司;
      (四)省、自治区、直辖市人民政府授权投资的机构或者部门单独或者共同投资设立的有限责任公司;
      (五)国家工商行政管理局委托登记的公司。
      第八条 市、县工商行政管理局负责本辖区内本条例第六条和第七条所列公司以外的其他公司的登记,具体登记管辖由省、自治区、直辖市工商行政管理局规定。
      第三章 登记事项
      第九条 公司的登记事项包括:名称、住所、法定代表人、注册资本、企业类型、经营范围、营业期限、有限责任公司股东或者股份有限公司发起人的姓名或者名称。
      第十条 公司的登记事项应当符合法律、行政法规的规定。不符合法律、行政法规规定的,公司登记机关不予登记。
      第十一条 公司名称应当符合国家有关规定。公司只能使用一个名称。经公司登记机关核准登记的公司名称受法律保护。
      第十二条 公司的住所是公司主要办事机构所在地。经公司登记机关登记的公司的住所只能有一个。公司的住所应当在其公司登记机关辖区内。
      第十三条 公司的注册资本应当以人民币表示,法律、行政法规另有规定的除外。
      第四章 设立登记
      第十四条 设立公司应当申请名称预先核准。
      法律、行政法规规定设立公司必须报经审批或者公司经营范围中有法律、行政法规规定必须报经审批的项目的,应当在报送审批前办理公司名称预先核准,并以公司登记机关核准的公司名称报送审批。
      第十五条 设立有限责任公司,应当由全体股东指定的代表或者共同委托的代理人向公司登记机关申请名称预先核准;设立股份有限公司,应当由全体发起人指定的代表或者共同委托的代理人向公司登记机关申请名称预先核准。
      申请名称预先核准,应当提交下列文件:
      (一)有限责任公司的全体股东或者股份有限公司的全体发起人签署的公司名称预先核准申请书;
      (二)股东或者发起人的法人资格证明或者自然人的身份证明;
      (三)公司登记机关要求提交的其他文件。
      公司登记机关应当自收到前款所列文件之日起10日内作出核准或者驳回的决定。公司登记机关决定核准的,应当发给《企业名称预先核准通知书》。
      第十六条 预先核准的公司名称保留期为6个月。预先核准的公司名称在保留期内,不得用于从事经营活动,不得转让。
      第十七条 设立有限责任公司,应当由全体股东指定的代表或者共同委托的代理人向公司登记机关申请设立登记。设立国有独资公司,应当由国家授权投资的机构或者国家授权的部门作为申请人,申请设立登记。法律、行政法规规定设立有限责任公司必须报经审批的,应当自批准之日起90日内向公司登记机关申请设立登记;逾期申请设立登记的,申请人应当报审批机关确认原批准文件的效力或者另行报批。
      申请设立有限责任公司,应当向公司登记机关提交下列文件:
      (一)公司董事长签署的设立登记申请书;
      (二)全体股东指定代表或者共同委托代理人的证明;
      (三)公司章程;
      (四)具有法定资格的验资机构出具的验资证明;
      (五)股东的法人资格证明或者自然人身份证明;
      (六)载明公司董事、监事、经理的姓名、住所的文件以及有关委派、选举或者聘用的证明;
      (七)公司法定代表人任职文件和身份证明;
      (八)企业名称预先核准通知书;
      (九)公司住所证明。
      法律、行政法规规定设立有限责任公司必须报经审批的,还应当提交有关的批准文件。
      第十八条 设立股份有限公司,董事会应当于创立大会结束后30日内向公司登记机关申请设立登记。
    申请设立股份有限公司,应当向公司登记机关提交下列文件:
      (一)公司董事长签署的设立登记申请书;
      (二)国务院授权部门或者省、自治区、直辖市人民政府的批准文件,募集设立的股份有限公司还应当提交国务院证券管理部门的批准文件;
      (三)创立大会的会议记录;
      (四)公司章程;
      (五)筹办公司的财务审计报告;
      (六)具有法定资格的验资机构出具的验资证明;
      (七)发起人的法人资格证明或者自然人身份证明;
      (八)载明公司董事、监事、经理姓名、住所的文件以及有关委派、选举或者聘用的证明;
      (九)公司法定代表人任职文件和身份证明;
      (十)企业名称预先核准通知书;
      (十一)公司住所证明。
      第十九条 公司申请登记的经营范围中有法律、行政法规规定必须报经审批的项目的,应当在申请登记前报经国家有关部门审批,并向公司登记机关提交批准文件。
      第二十条 公司章程有违反法律、行政法规的内容的,公司登记机关有权要求公司作相应修改。
      第二十一条 公司住所证明是指能够证明公司对其住所享有使用权的文件。
      第二十二条 经公司登记机关核准设立登记并发给《企业法人营业执照》,公司即告成立。公司凭公司登记机关核发的《企业法人营业执照》刻制印章,开立银行帐户,申请纳税登记。
      第五章 变更登记
      第二十三条 公司变更登记事项,应当向原公司登记机关申请变更登记。
      未经核准变更登记,公司不得擅自改变登记事项。
      第二十四条 公司申请变更登记,应当向公司登记机关提交下列文件:
      (一)公司法定代表人签署的变更登记申请书;
      (二)依照《公司法》作出的变更决议或者决定;
      (三)公司登记机关要求提交的其他文件。
      公司变更登记事项涉及修改公司章程的,应当提交修改后的公司章程或者公司章程修正案。
      第二十五条 公司变更名称的,应当自变更决议或者决定作出之日起30日内申请变更登记。
      第二十六条 公司变更住所的,应当在迁入新住所前申请变更登记,并提交新住所使用证明。
      公司变更住所跨公司登记机关辖区的,应当在迁入新住所前向迁入地公司登记机关申请变更登记;迁入地公司登记机关受理的,由原公司登记机关将公司登记档案移送迁入地公司登记机关。
      第二十七条 公司变更法定代表人的,应当自变更决议或者决定作出之日起30日内申请变更登记。
      第二十八条 公司变更注册资本的,应当提交具有法定资格的验资机构出具的验资证明。
    公司增加注册资本的,应当自股款缴足之日起30日内申请变更登记。股份有限公司增加注册资本的,应当提交国务院授权部门或者省、自治区、直辖市人民政府的批准文件;以募集方式增加注册资本的,还应当提交国务院证券管理部门的批准文件。
      公司减少注册资本的,应当自减少注册资本决议或者决定作出之日起90日后申请变更登记,并应当提交公司在报纸上登载公司减少注册资本公告至少三次的有关证明和公司债务清偿或者债务担保情况的说明。
      第二十九条 公司变更经营范围的,应当自变更决议或者决定作出之日起30日内申请变更登记;变更经营范围涉及法律、行政法规规定必须报经审批的项目的,应当自国家有关部门批准之日起30日内申请变更登记。
      第三十条 公司变更类型的,应当按照拟变更的公司类型的设立条件,在规定的期限内向公司登记机关申请变更登记,并提交有关文件。
      第三十一条 有限责任公司变更股东的,应当自股东发生变动之日起30日内申请变更登记,并应当提交新股东的法人资格证明或者自然人的身份证明。
      有限责任公司的股东或者股份有限公司的发起人改变姓名或者名称的,应当自改变姓名或者名称之日起30日内申请变更登记。
      第三十二条 公司章程修改未涉及登记事项的,公司应当将修改后的公司章程或者公司章程修正案送原公司登记机关备案。
      第三十三条 公司董事、监事、经理发生变动的,应当向原公司登记机关备案。
      第三十四条 因合并、分立而存续的公司,其登记事项发生变化的,应当申请变更登记;因合并、分立而解散的公司,应当申请注销登记;因合并、分立而新设立的公司,应当申请设立登记。
      公司合并、分立的,应当自合并、分立决议或者决定作出之日起90日后申请登记,提交合并协议和合并、分立决议或者决定以及公司在报纸上登载公司合并、分立公告至少三次的证明和债务清偿或者债务担保情况的说明。股份有限公司合并、分立的,还应当提交国务院授权部门或者省、自治区、直辖市人民政府的批准文件。
      第三十五条 变更登记事项涉及《企业法人营业执照》载明事项的,公司登记机关应当换发营业执照。
      第六章 注销登记
      第三十六条 有下列情形之一的,公司清算组织应当自公司清算结束之日起30日内向原公司登记机关申请注销登记:
      (一)公司被依法宣告破产;
      (二)公司章程规定的营业期限届满或者公司章程规定的其他解散事由出现;
      (三)股东会决议解散;
      (四)公司因合并、分立解散;
      (五)公司被依法责令关闭。
      第三十七条 公司申请注销登记,应当提交下列文件:
      (一)公司清算组织负责人签署的注销登记申请书;
      (二)法院破产裁定、公司依照《公司法》作出的决议或者决定、行政机关责令关闭的文件;
      (三)股东会或者有关机关确认的清算报告;
      (四)《企业法人营业执照》;
      (五)法律、行政法规规定应当提交的其他文件。
      第三十八条 经公司登记机关核准注销登记,公司终止。
      第七章 分公司的登记
      第三十九条 分公司是指公司在其住所以外设立的从事经营活动的机构。分公司不具有企业法人资格。
      第四十条 公司设立分公司的,应当向分公司所在地的市、县公司登记机关申请登记;核准登记的,发给《营业执照》。
      第四十一条 分公司的登记事项包括:名称、营业场所、负责人、经营范围。
      分公司的名称应当符合国家有关规定。
      分公司的经营范围不得超出公司的经营范围。
      第四十二条 公司设立分公司的,应当自决定作出之日起30日内向公司登记机关申请登记;法律、行政法规规定必须报经有关部门审批的,应当自批准之日起30日内向公司登记机关申请登记。
      设立分公司,应当向公司登记机关提交下列文件:
      (一)公司法定代表人签署的设立分公司的登记申请书;
      (二)公司章程以及由公司的公司登记机关加盖印章的《企业法人营业执照》复印件;
      (三)营业场所使用证明;
      (四)公司登记机关要求提交的其他文件。
      第四十三条 分公司变更登记事项的,应当向公司登记机关申请变更登记。
      申请变更登记,应当提交公司法定代表人签署的变更登记申请书。因公司名称变更而变更分公司名称的,应当提交公司的《企业法人营业执照》复印件。变更经营范围涉及法律、行政法规规定必须报经审批的项目的,应当提交有关部门的批准文件。变更营业场所的,应当提交新的营业场所使用证明。
      公司登记机关核准变更登记的,换发《营业执照》。
      第四十四条 公司撤销分公司的,应当自撤销决定作出之日起30日内向该分公司的公司登记机关申请注销登记。申请注销登记应当提交公司法定代表人签署的注销登记申请书和分公司的《营业执照》。公司登记机关核准注销登记后,应当收缴分公司的《营业执照》。
      第八章 登记程序
      第四十五条 公司登记机关收到申请人提交的符合本条例规定的全部文件后,发给《公司登记受理通知书》。
      公司登记机关自发出《公司登记受理通知书》之日起30日内,作出核准登记或者不予登记的决定。
      公司登记机关核准登记的,应当自核准登记之日起15日内通知申请人,发给、换发或者收缴《企业法人营业执照》或者《营业执照》。
      公司登记机关不予登记的,应当自作出决定之日起15日内通知申请人,发给《公司登记驳回通知书》。
      第四十六条 公司办理设立登记、变更登记,应当按照规定向公司登记机关缴纳登记费。
      领取《企业法人营业执照》的,设立登记费按注册资本总额的千分之一缴纳;注册资本超过1000万元的,超过部分按千分之零点五缴纳;注册资本超过1亿元的,超过部分不再缴纳。
      领取《营业执照》的,设立登记费为300元。
      变更登记事项的,变更登记费为100元。
      第四十七条 公司登记机关应当将核准登记的公司登记事项记载于公司登记簿上,供社会公众查阅、复制。查阅、复制公司登记事项,应当按照规定交纳查阅、复制费。
      第四十八条 股份有限公司应当在其设立、变更、注销登记被核准后的30日内发布设立、变更、注销登记公告,并应当自公告发布之日起30日内将发布的公告报送公司登记机关备案。公司发布的设立、变更、注销登记公告的内容应当与公司登记机关核准登记的内容一致;不一致的,公司登记机关有权要求公司更正。
      吊销《企业法人营业执照》和《营业执照》的公告由公司登记机关发布。
      第九章 年度检验
      第四十九条 每年1月1日至4月30日,公司登记机关对公司进行年度检验。
      第五十条 公司应当按照公司登记机关的要求,在规定的时间内接受年度检验,并提交年度检验报告书、年度资产负债表和损益表、《企业法人营业执照》副本。
      设立分公司的公司在其提交的年度检验材料中,应当明确反映分公司的有关情况,并提交分公司《营业执照》的复印件。
      第五十一条 公司登记机关应当根据公司提交的年度检验材料,对与公司登记事项有关的情况进行审查,以确认其继续经营的资格。
      第五十二条 公司应当向公司登记机关缴纳年度检验费。年度检验费为50元。
      第十章 证照和档案管理
      第五十三条 《企业法人营业执照》、《营业执照》分为正本和副本,正本和副本具有同等法律效力。
      《企业法人营业执照》正本或者《营业执照》正本应当置于公司住所或者分公司营业场所的醒目位置。
      公司可以根据业务需要向公司登记机关申请核发营业执照若干副本。
      第五十四条 任何单位和个人不得伪造、涂改、出租、出借、转让营业执照。
      营业执照遗失或者毁坏的,公司应当在公司登记机关指定的报刊上声明作废,申请补领。
      按照国家有关规定,公司向有关单位提交的营业执照复印件需要公司登记机关加盖印章的,公司登记机关可以在复印件上加盖印章。
      第五十五条 公司登记机关对需要认定的营业执照,可以临时扣留,扣留期限不得超过10天。
      第五十六条 借阅、抄录、携带、复制公司登记档案资料的,应当按照规定的权限和程序办理。
      任何单位和个人不得修改、涂抹、标注、损毁公司登记档案资料。
      第五十七条 营业执照正本、副本样式以及公司登记的有关重要文书格式或者表式,由国家工商行政管理局统一制定。
      第十一章 法律责任
      第五十八条 办理公司登记时虚报注册资本,取得公司登记的,由公司登记机关责令改正,处以虚报注册资本金额百分之五以上百分之十以下的罚款;情节严重的,撤销公司登记,吊销营业执照。构成犯罪的,依法追究刑事责任。
      第五十九条 办理公司登记时提交虚假证明文件或者采取其他欺诈手段,取得公司登记的,由公司登记机关责令改正,处以1万元以上10万元以下的罚款;情节严重的,撤销公司登记,吊销营业执照。构成犯罪的,依法追究刑事责任。
      第六十条 公司的发起人、股东未交付货币、实物或者未转移财产权,虚假出资的,由公司登记机关责令改正,处以虚假出资金额百分之五以上百分之十以下的罚款。构成犯罪的,依法追究刑事责任。
      第六十一条 公司的发起人、股东在公司成立后,抽逃出资的,由公司登记机关责令改正,处以所抽逃出资金额百分之五以上百分之十以下的罚款。构成犯罪的,依法追究刑事责任。
      第六十二条 公司成立后无正当理由超过6个月未开业的,或者开业后自行停业连续6个月以上的,由公司登记机关吊销营业执照。
      第六十三条 公司变更登记事项,未按照规定办理有关变更登记的,由公司登记机关责令限期办理;逾期未办理的,处以1万元以上10万元以下的罚款。
      第六十四条 公司在合并、分立、减少注册资本或者进行清算时,不按照规定通告或者公告债权人的,由公司登记机关责令改正,处以1万元以上10万元以下的罚款。
      第六十五条 清算组织不按照规定向公司登记机关报送清算报告,或者报送清算报告隐瞒重要事实或者有重大遗漏的,由公司登记机关责令改正。
      第六十六条 公司破产、解散清算结束后,不申请办理注销登记的,由公司登记机关吊销营业执照。
      第六十七条 股份有限公司设立、变更、注销登记后,不在规定期限内发布公告或者发布的公告内容与公司登记机关核准登记的内容不一致的,由公司登记机关责令改正;拒不改正的,处以1万元以上10万元以下的罚款;情节严重的,吊销营业执照。
      第六十八条 公司不按照规定接受年度检验的,由公司登记机关处以1万元以上10万元以下的罚款,并限期接受年度检验;逾期仍不接受年度检验的,吊销营业执照。年度检验中隐瞒真实情况、弄虚作假的,由公司登记机关处以1万元以上5万元以下的罚款,并限期改正;情节严重的,吊销营业执照。
      第六十九条 伪造、涂改、出租、出借、转让营业执照的,由公司登记机关处以1万元以上10万元以下的罚款;情节严重的,吊销营业执照。构成犯罪的,依法追究刑事责任。
      第七十条 未将营业执照置于住所或者营业场所醒目位置的,由公司登记机关责令改正;拒不改正的,处以1000元以上5000元以下的罚款。
      第七十一条 公司超出核准登记的经营范围从事经营活动的,由公司登记机关责令改正,并可处以1万元以上10万元以下的罚款;情节严重的,吊销营业执照。
      第七十二条 未依法登记为有限责任公司或者股份有限公司,而冒用有限责任公司或者股份有限公司名义的,由公司登记机关责令改正或者予以取缔,并可处以1万元以上10万元以下的罚款。构成犯罪的,依法追究刑事责任。
      第七十三条 公司登记机关对不符合规定条件的公司登记申请予以登记,情节严重的,对直接负责的主管人员和其他直接责任人员依法给予行政处分。上级公司登记机关强令下级公司登记机关对不符合规定条件的公司登记申请予以登记,或者对违法登记进行包庇的,对直接负责的主管人员和其他直接责任人员依法给予行政处分。构成犯罪的,依法追究刑事责任。
      第十二章 附则
      第七十四条 外国公司在中华人民共和国境内设立的分支机构的登记,按照国务院的有关规定办理。
      第七十五条 外商投资的有限责任公司的登记,适用本条例。有关外商投资企业的法律、行政法规对其登记另有规定的,适用其规定。
      第七十六条 本条例自1994年7月1日起施行。

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