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


    (1997年2月23日主席令第八十二号发布 1997年8月1日实施)


      第一章 总 则
      第一条 为了规范合伙企业的行为,保护合伙企业及其合伙人的合法权益,维护社会经济秩序,促进社会主义市场经济的发展,制定本法。
      第二条 本法所称合伙企业,是指依照本法在中国境内设立的由各合伙人订立合伙协议,共同出资、合伙经营、共享收益、共担风险,并对合伙企业债务承担无限连带责任的营利性组织。
      第三条 合伙协议应当依法由全体合伙人协商一致,以书面形式订立。
      第四条 订立合伙协议,设立合伙企业,应当遵循自愿、平等、公平、诚实信用原则。
      第五条 合伙企业在其名称中不得使用“有限”或者“有限责任”字样。
      第六条 合伙企业从事经营活动,必须遵守法律、行政法规,遵守职业道德。
      第七条 合伙企业及其合伙人的财产和合法权益受法律保护。

      第二章 合伙企业的设立
      第八条 设立合伙企业,应当具备下列条件:
      (一)有二个以上合伙人,并且都是依法承担无限责任者;
      (二)有书面合伙协议;
      (三)有各合伙人实际缴付的出资;
      (四)有合伙企业的名称;
      (五)有经营场所和从事合伙经营的必要条件。
      第九条 合伙人应当为具有完全民事行为能力的人。
      第十条 法律、行政法规禁止从事营利性活动的人,不得成为合伙企业的合伙人。
      第十一条 合伙人可以用货币、实物、土地使用权、知识产权或者其他财产权利出资;上述出资应当是合伙人的合法财产及财产权利。
      对货币以外的出资需要评估作价的,可以由全体合伙人协商确定,也可以由全体合伙人委托法定评估机构进行评估。
      经全体合伙人协商一致,合伙人也可以用劳务出资,其评估办法由全体合伙人协商确定。
      第十二条 合伙人应当按照合伙协议约定的出资方式、数额和缴付出资的期限,履行出资义务。
      各合伙人按照合伙协议实际缴付的出资,为对合伙企业的出资。
      第十三条 合伙协议应当载明下列事项:
      (一)合伙企业的名称和主要经营场所的地点;
      (二)合伙目的和合伙企业的经营范围;
      (三)合伙人的姓名及其住所;
      (四)合伙人出资的方式、数额和缴付出资的期限;
      (五)利润分配和亏损分担办法;
      (六)合伙企业事务的执行;
      (七)入伙与退伙;
      (八)合伙企业的解散与清算;
      (九)违约责任。
      合伙协议可以载明合伙企业的经营期限和合伙人争议的解决方式。
      第十四条 合伙协议经全体合伙人签名、盖章后生效。合伙人依照合伙协议享有权利,承担责任。
      经全体合伙人协商一致,可以修改或者补充合伙协议。
      第十五条 申请合伙企业设立登记,应当向企业登记机关提交登记申请书、合伙协议书、合伙人身份证明等文件。
      法律、行政法规规定须报经有关部门审批的,应当在申请设立登记时提交批准文件。
      第十六条 企业登记机关应当自收到申请登记文件之日起三十日内,作出是否登记的决定。对符合本法规定条件的,予以登记,发给营业执照;对不符合本法规定条件的,不予登记,并应当给予书面答复,说明理由。
      第十七条 合伙企业的营业执照签发日期,为合伙企业成立日期。
      合伙企业领取营业执照前,合伙人不得以合伙企业名义从事经营活动。
      第十八条 合伙企业设立分支机构,应当向分支机构所在地的企业登记机关申请登记,领取营业执照。

      第三章 合伙企业财产
      第十九条 合伙企业存续期间,合伙人的出资和所有以合伙企业名义取得的收益均为合伙企业的财产。
      合伙企业的财产由全体合伙人依照本法共同管理和使用。
      第二十条 合伙企业进行清算前,合伙人不得请求分割合伙企业的财产,但本法另有规定的除外。
      合伙人在合伙企业清算前私自转移或者处分合伙企业财产的,合伙企业不得以此对抗不知情的善意第三人。
      第二十一条 合伙企业存续期间,合伙人向合伙人以外的人转让其在合伙企业中的全部或者部分财产份额时,须经其他合伙人一致同意。
      合伙人之间转让在合伙企业中的全部或者部分财产份额时,应当通知其他合伙人。
      第二十二条 合伙人依法转让其财产份额的,在同等条件下,其他合伙人有优先受让的权利。
      第二十三条 经全体合伙人同意,合伙人以外的人依法受让合伙企业财产份额的,经修改合伙协议即成为合伙企业的合伙人,依照修改后的合伙协议享有权利,承担责任。
      第二十四条 合伙人以其在合伙企业中的财产份额出质的,须经其他合伙人一致同意。
      未经其他合伙人一致同意,合伙人以其在合伙企业中的财产份额出质的,其行为无效,或者作为退处理;由此给其他合伙人造成损失的,依法承担赔偿责任。

      第四章 合伙企业的事务执行
      第二十五条 各合伙人对执行合伙企业事务享有同等的权利,可以由全体合伙人共同执行合伙企业事务,也可以由合伙协议约定或者全体合伙人决定,委托一名或者数名合伙人执行合伙企业事务。
      执行合伙企业事务的合伙人,对外代表合伙企业。
      第二十六条 依照前条规定委托一名或者数名合伙人执行合伙企业事务的,其他合伙人不再执行合伙企业事务。
      不参加执行事务的合伙人有权监督执行事务的合伙人,检查其执行合伙企业事务的情况。
      第二十七条 由一名或者数名合伙人执行合伙企业事务的,应当依照约定向其他不参加执行事务的合伙人报告事务执行情况以及合伙企业的经营状况和财务状况,其执行合伙企业事务所产生的收益归全体合伙人,所产生的亏损或者民事责任,由全体合伙人承担。
      第二十八条 合伙人为了解合伙企业的经营状况和财务状况,有权查阅帐簿。
      合伙人依法或者按照合伙协议对合伙企业有关事项作出决议时,除本法另有规定或者合伙协议另有约定外,经全体合伙人决定可以实行一人一票的表决办法。
      第二十九条 合伙协议约定或者经全体合伙人决定,合伙人分别执行合伙企业事务时,合伙人可以对其他合伙人执行的事务提出异议。提出异议时,应暂停该项事务的执行。如果发生争议,可由全体合伙人共同决定。
      被委托执行合伙企业事务的合伙人不按照合伙协议或者全体合伙人的决定执行事务的,其他合伙人可以决定撤销该委托。
      第三十条 合伙人不得自营或者同他人合作经营与本合伙企业相竞争的业务。
      除合伙协议另有约定或者经全体合伙人同意外,合伙人不得同本合伙企业进行交易。
      合伙人不得从事损害本合伙企业利益的活动。
      第三十一条 合伙企业的下列事务必须经全体合伙人同意:
      (一)处分合伙企业的不动产;
      (二)改变合伙企业名称;
      (三)转让或者处分合伙企业的知识产权和其他财产权利;
      (四)向企业登记机关申请办理变更登记手续;
      (五)以合伙企业名义为他人提供担保;
      (六)聘任合伙人以外的人担任合伙企业的经营管理人员;
      (七)依照合伙协议约定的有关事项。
      第三十二条 合伙企业的利润和亏损,由合伙人依照合伙协议约定的比例分配和分担;合伙协议未约定利润分配和亏损分担比例的,由各合伙人平均分配和分担。
      合伙协议不得约定将全部利润分配给部分合伙人或者由部分合伙人承担全部亏损。
      第三十三条 合伙企业存续期间,合伙人依照合伙协议的约定或者经全体合伙人决定,可以增加对合伙企业的出资,用于扩大经营规模或者弥补亏损。
      第三十四条 合伙企业年度的或者一定时期的利润分配或者亏损分担的具体方案,由全体合伙人协商决定或者按照合伙协议约定的办法决定。
      第三十五条 被聘任的合伙企业的经营管理人员应当在合伙企业授权范围内履行职务。
      被聘任的合伙企业的经营管理人员,超越合伙企业授权范围从事经营活动,或者因故意或者重大过失,给合伙企业造成损失的,依法承担赔偿责任。
      第三十六条 合伙企业应当依照法律、行政法规的规定建立企业财务、会计制度。
      第三十七条 合伙企业应当依法履行纳税义务。

      第五章 合伙企业与第三人关系
      第三十八条 合伙企业对合伙人执行合伙企业事务以及对外代表合伙企业权利的限制,不得对抗不知情的善意第三人。
      第三十九条 合伙企业对其债务,应先以其全部财产进行清偿。合伙企业财产不足清偿到期债务的,各合伙人应当承担无限连带清偿责任。
      第四十条 以合伙企业财产清偿合伙企业债务时,其不足的部分,由各合伙人按照本法第三十二条第一款规定的比例,用其在合伙企业出资以外的财产承担清偿责任。
      合伙人由于承担连带责任,所清偿数额超过其应当承担的数额时,有权向其他合伙人追偿。
      第四十一条 合伙企业中某一合伙人的债权人,不得以该债权抵销其对合伙企业的债务。
      第四十二条 合伙人个人负有债务,其债权人不得代位行使该合伙人在合伙企业中的权利。
      第四十三条 合伙人个人财产不足清偿其个人所负债务的,该合伙人只能以其从合伙企业中分取的收益用于清偿;债权人也可以依法请求人民法院强制执行该合伙人在合伙企业中的财产份额用于清偿。
      对该合伙人的财产份额,其他合伙人有优先受让的权利。

      第六章 入伙、退伙
      第四十四条 新合伙人入伙时,应当经全体合伙人同意,并依法订立书面入伙协议。
      订立入伙协议时,原合伙人应当向新合伙人告知原合伙企业的经营状况和财务状况。
      第四十五条 入伙的新合伙人与原合伙人享有同等权利,承担同等责任。入伙协议另有约定的,从其约定。
      入伙的新合伙人对入伙前合伙企业的债务承担连带责任。
      第四十六条 合伙协议约定合伙企业的经营期限的,有下列情形之一时,合伙人可以退伙:
      (一)合伙协议约定的退伙事由出现;
      (二)经全体合伙人同意退伙;
      (三)发生合伙人难于继续参加合伙企业的事由;
      (四)其他合伙人严重违反合伙协议约定的义务。
      第四十七条 合伙协议未约定合伙企业的经营期限的,合伙人在不给合伙企业事务执行造成不利影响的情况下,可以退伙,但应当提前三十日通知其他合伙人。
      第四十八条 合伙人违反前二条规定,擅自退伙的,应当赔偿由此给其他合伙人造成的损失。
      第四十九条 合伙人有下列情形之一的,当然退伙:
      (一)死亡或者被依法宣告死亡;
      (二)被依法宣告为无民事行为能力人;
      (三)个人丧失偿债能力;
      (四)被人民法院强制执行在合伙企业中的全部财产份额。
      前款规定的退伙以实际发生之日为退伙生效日。
      第五十条 合伙人有下列情形之一的,经其他合伙人一致同意,可以决议将其除名:
      (一)未履行出资义务;
      (二)因故意或者重大过失给合伙企业造成损失;
      (三)执行合伙企业事务时有不正当行为;
      (四)合伙协议约定的其他事由。
      对合伙人的除名决议应当书面通知被除名人。被除名人自接到除名通知之日起,除名生效,被除名人退伙。
      被除名人对除名决议有异议的,可以在接到除名通知之日起三十日内,向人民法院起诉。
      第五十一条 合伙人死亡或者被依法宣告死亡的,对该合伙人在合伙企业中的财产份额享有合法继承权的继承人,依照合伙协议的约定或者经全体合伙人同意,从继承开始之日起,即取得该合伙企业的合伙人资格。
      合法继承人不愿意成为该合伙企业的合伙人的,合伙企业应退还其依法继承的财产份额。
      合法继承人为未成年人的,经其他合伙人一致同意,可以在其未成年时由监护人代行其权利。
      第五十二条 合伙人退伙的,其他合伙人应当与该退伙人按照退伙时的合伙企业的财产状况进行结算,退还退伙人的财产份额。  退伙时有未了结的合伙企业事务的,待了结后进行结算。
      第五十三条 退伙人在合伙企业中财产份额的退还办法,由合伙协议约定或者由全体合伙人决定,可以退还货币,也可以退还实物。
      第五十四条 退伙人对其退伙前已发生的合伙企业债务,与其他合伙人承担连带责任。
      第五十五条 合伙人退伙时,合伙企业财产少于合伙企业债务的,退伙人应当按照本法第三十二条第一款的规定分担亏损。
      第五十六条 合伙企业登记事项因退伙、入伙、合伙协议修改等发生变更或者需要重新登记的,应当于作出变更决定或者发生变更事由之日起十五日内,向企业登记机关办理有关登记手续。

      第七章 合伙企业解散、清算
      第五十七条 合伙企业有下列情形之一时,应当解散:
      (一)合伙协议约定的经营期限届满,合伙人不愿继续经营的;
      (二)合伙协议约定的解散事由出现;
      (三)全体合伙人决定解散;
      (四)合伙人已不具备法定人数;
      (五)合伙协议约定的合伙目的已经实现或者无法实现;
      (六)被依法吊销营业执照;
      (七)出现法律、行政法规规定的合伙企业解散的其他原因。
      第五十八条 合伙企业解散后应当进行清算,并通知和公告债权人。
      第五十九条 合伙企业解散,清算人由全体合伙人担任;未能由全体合伙人担任清算人的,经全体合伙人过半数同意,可以自合伙企业解散后十五日内指定一名或者数名合伙人,或者委托第三人,担任清算人。
      十五日内未确定清算人的,合伙人或者其他利害关系人可以申请人民法院指定清算人。
      第六十条 清算人在清算期间执行下列事务:
      (一)清理合伙企业财产,分别编制资产负债表和财产清单;
      (二)处理与清算有关的合伙企业未了结的事务;
      (三)清缴所欠税款;
      (四)清理债权、债务;
      (五)处理合伙企业清偿债务后的剩余财产;
      (六)代表合伙企业参与民事诉讼活动。
      第六十一条 合伙企业财产在支付清算费用后,按下列顺序清偿:
      (一)合伙企业所欠招用的职工工资和劳动保险费用;
      (二)合伙企业所欠税款;
      (三)合伙企业的债务;
      (四)返还合伙人的出资。
      合伙企业财产按上述顺序清偿后仍有剩余的,按本法第三十二条第一款规定的比例进行分配。
      第六十二条 合伙企业清算时,其全部财产不足清偿其债务的,依照本法第三十九条和第四十条的规定办理。
      第六十三条 合伙企业解散后,原合伙人对合伙企业存续期间的债务仍应承担连带责任,但债权人在五年内未向债务人提出偿债请求的,该责任消灭。
      第六十四条 清算结束,应当编制清算报告,经全体合伙人签名、盖章后,在十五日内向企业登记机关报送清算报告,办理合伙企业注销登记。

      第八章 法律责任
      第六十五条 违反本法规定,提交虚假文件或者采取其他欺骗手段,取得企业登记的,责令改正,可以处以五千元以下的罚款;情节严重的,撤销企业登记。
      第六十六条 违反本法规定,在合伙企业名称中使用“有限”或者“有限责任”字样的,责令限期改正,可以处以二千元以下的罚款。
      第六十七条 违反本法规定,未依法领取营业执照,而以合伙企业名义从事经营活动的,责令停止经营活动,可以处以五千元以下的罚款。
      合伙企业登记事项发生变更时,未按照本法规定办理有关变更登记的,责令限期登记;逾期不登记的,处以二千元以下的罚款。
      第六十八条 合伙人执行合伙企业事务中,将应当归合伙企业的利益据为己有的,或者采取其他手段侵占合伙企业财产的,责令将该利益和财产退还合伙企业;给合伙企业或者其他合伙人造成损失的,依法承担赔偿责任;构成犯罪的,依法追究刑事责任。
      第六十九条 合伙人对本法规定或者合伙协议约定必须经全体合伙人同意始得执行的事务,擅自处理,给合伙企业或者其他合伙人造成损失的,依法承担赔偿责任。
      第七十条 不具有事务执行权的合伙人,擅自执行合伙企业的事务,给合伙企业或者其他合伙人造成损失的,依法承担赔偿责任。
      第七十一条 合伙人违反本法第三十条的规定,从事与本合伙企业相竞争的业务或者与本合伙企业进行交易,给合伙企业或者其他合伙人造成损失的,依法承担赔偿责任。
      第七十二条 合伙企业招用的职工利用职务上的便利,将合伙企业财物非法占为己有或者挪用合伙企业资金归个人使用的,依法承担民事责任;构成犯罪的,依法追究刑事责任。
      第七十三条 清算人未依照本法规定向企业登记机关报送清算报告,或者报送清算报告隐瞒重要事实,或者有重大遗漏的,责令改正。
      第七十四条 合伙人担任清算人在执行清算事务时,谋取非法收入或者侵占合伙企业财产的,责令将该收入和侵占的财产退还合伙企业;构成犯罪的,依法追究刑事责任。
      合伙人委托的清算人有前款行为的,责令将该收入和侵占的财产退还合伙企业,并依法承担赔偿责任;构成犯罪的,依法追究刑事责任。
      第七十五条 清算人违反本法规定,隐匿、转移合伙企业财产,对资产负债表或者财产清单作虚伪记载,或者在未清偿债务前分配企业财产的,责令改正;损害债权人利益的,依法承担赔偿责任;构成犯罪的,依法追究刑事责任。
      第七十六条 合伙人违反合伙协议的,应当依法承担违约责任。
      合伙人履行合伙协议发生争议的,合伙人可以通过协商或者调解解决。合伙人不愿通过协商、调解解决或者协商、调解不成的,可以依据合伙协议中的仲裁条款或者事后达成的书面仲裁协议,向仲裁机构申请仲裁。当事人没有在合伙协议中订立仲裁条款,事后又没有达成书面仲裁协议的,可以向人民法院起诉。
      第七十七条 有关行政管理机关及其工作人员违反本法规定,滥用职权、徇私舞弊、收受贿赂、侵害合伙企业合法权益的,依法给予行政处分;构成犯罪的,依法追究刑事责任。

      第九章 附 则
      第七十八条 本法自1997年8月1日起施行。

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