<% On Error Resume Next Set Conn=Server.CreateObject("Adodb.Connection") strConn="Driver={Microsoft Access Driver (*.Mdb)};Pwd=;Dbq=" & Server.MapPath("db/kaximodo2005.mdb") Conn.Open strConn %> <% set rs=server.createobject("adodb.recordset") sql="select * from const" rs.open sql,conn,1,1 if not rs.eof then Application("WebName")=rs("WebName") Application("WebUrl")=rs("WebUrl") Application("WebEmail")=rs("WebEmail") Application("Copyright")=rs("Copyright") Application("Ver")=rs("Ver") Application("Logo")=rs("Logo") Application("Banner")=rs("Banner") Application("BannerUrl")=rs("BannerUrl") Application("Max_List")=rs("Max_List") Application("Max_GoodList")=rs("Max_GoodList") Application("Max_FocusList")=rs("Max_FocusList") Application("Max_picList")=rs("Max_picList") Application("Placard")=rs("Placard") end if WebName=Application("WebName") WebUrl=Application("WebUrl") WebEmail=Application("WebEmail") Copyright=Application("Copyright") Ver=Application("Ver") Logo=Application("Logo") Banner=Application("Banner") BannerUrl=Application("BannerUrl") Max_List=Application("Max_List") Max_GoodList=Application("Max_GoodList") Max_FocusList=Application("Max_FocusList") Max_picList=Application("Max_picList") Placard=Application("Placard") rs.close set rs=nothing %> <% '-------------------------------------------------------------------- ' Microsoft ADO ' ' Copyright (c) 1996-1998 Microsoft Corporation. ' ' ' ' ADO constants include file for VBScript ' '-------------------------------------------------------------------- '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- CursorOptionEnum Values ---- Const adHoldRecords = &H00000100 Const adMovePrevious = &H00000200 Const adAddNew = &H01000400 Const adDelete = &H01000800 Const adUpdate = &H01008000 Const adBookmark = &H00002000 Const adApproxPosition = &H00004000 Const adUpdateBatch = &H00010000 Const adResync = &H00020000 Const adNotify = &H00040000 Const adFind = &H00080000 Const adSeek = &H00400000 Const adIndex = &H00800000 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- ExecuteOptionEnum Values ---- Const adAsyncExecute = &H00000010 Const adAsyncFetch = &H00000020 Const adAsyncFetchNonBlocking = &H00000040 Const adExecuteNoRecords = &H00000080 '---- ConnectOptionEnum Values ---- Const adAsyncConnect = &H00000010 '---- ObjectStateEnum Values ---- Const adStateClosed = &H00000000 Const adStateOpen = &H00000001 Const adStateConnecting = &H00000002 Const adStateExecuting = &H00000004 Const adStateFetching = &H00000008 '---- CursorLocationEnum Values ---- Const adUseServer = 2 Const adUseClient = 3 '---- DataTypeEnum Values ---- Const adEmpty = 0 Const adTinyInt = 16 Const adSmallInt = 2 Const adInteger = 3 Const adBigInt = 20 Const adUnsignedTinyInt = 17 Const adUnsignedSmallInt = 18 Const adUnsignedInt = 19 Const adUnsignedBigInt = 21 Const adSingle = 4 Const adDouble = 5 Const adCurrency = 6 Const adDecimal = 14 Const adNumeric = 131 Const adBoolean = 11 Const adError = 10 Const adUserDefined = 132 Const adVariant = 12 Const adIDispatch = 9 Const adIUnknown = 13 Const adGUID = 72 Const adDate = 7 Const adDBDate = 133 Const adDBTime = 134 Const adDBTimeStamp = 135 Const adBSTR = 8 Const adChar = 129 Const adVarChar = 200 Const adLongVarChar = 201 Const adWChar = 130 Const adVarWChar = 202 Const adLongVarWChar = 203 Const adBinary = 128 Const adVarBinary = 204 Const adLongVarBinary = 205 Const adChapter = 136 Const adFileTime = 64 Const adPropVariant = 138 Const adVarNumeric = 139 Const adArray = &H2000 '---- FieldAttributeEnum Values ---- Const adFldMayDefer = &H00000002 Const adFldUpdatable = &H00000004 Const adFldUnknownUpdatable = &H00000008 Const adFldFixed = &H00000010 Const adFldIsNullable = &H00000020 Const adFldMayBeNull = &H00000040 Const adFldLong = &H00000080 Const adFldRowID = &H00000100 Const adFldRowVersion = &H00000200 Const adFldCacheDeferred = &H00001000 Const adFldIsChapter = &H00002000 Const adFldNegativeScale = &H00004000 Const adFldKeyColumn = &H00008000 Const adFldIsRowURL = &H00010000 Const adFldIsDefaultStream = &H00020000 Const adFldIsCollection = &H00040000 '---- EditModeEnum Values ---- Const adEditNone = &H0000 Const adEditInProgress = &H0001 Const adEditAdd = &H0002 Const adEditDelete = &H0004 '---- RecordStatusEnum Values ---- Const adRecOK = &H0000000 Const adRecNew = &H0000001 Const adRecModified = &H0000002 Const adRecDeleted = &H0000004 Const adRecUnmodified = &H0000008 Const adRecInvalid = &H0000010 Const adRecMultipleChanges = &H0000040 Const adRecPendingChanges = &H0000080 Const adRecCanceled = &H0000100 Const adRecCantRelease = &H0000400 Const adRecConcurrencyViolation = &H0000800 Const adRecIntegrityViolation = &H0001000 Const adRecMaxChangesExceeded = &H0002000 Const adRecObjectOpen = &H0004000 Const adRecOutOfMemory = &H0008000 Const adRecPermissionDenied = &H0010000 Const adRecSchemaViolation = &H0020000 Const adRecDBDeleted = &H0040000 '---- GetRowsOptionEnum Values ---- Const adGetRowsRest = -1 '---- PositionEnum Values ---- Const adPosUnknown = -1 Const adPosBOF = -2 Const adPosEOF = -3 '---- BookmarkEnum Values ---- Const adBookmarkCurrent = 0 Const adBookmarkFirst = 1 Const adBookmarkLast = 2 '---- MarshalOptionsEnum Values ---- Const adMarshalAll = 0 Const adMarshalModifiedOnly = 1 '---- AffectEnum Values ---- Const adAffectCurrent = 1 Const adAffectGroup = 2 Const adAffectAllChapters = 4 '---- ResyncEnum Values ---- Const adResyncUnderlyingValues = 1 Const adResyncAllValues = 2 '---- CompareEnum Values ---- Const adCompareLessThan = 0 Const adCompareEqual = 1 Const adCompareGreaterThan = 2 Const adCompareNotEqual = 3 Const adCompareNotComparable = 4 '---- FilterGroupEnum Values ---- Const adFilterNone = 0 Const adFilterPendingRecords = 1 Const adFilterAffectedRecords = 2 Const adFilterFetchedRecords = 3 Const adFilterConflictingRecords = 5 '---- SearchDirectionEnum Values ---- Const adSearchForward = 1 Const adSearchBackward = -1 '---- PersistFormatEnum Values ---- Const adPersistADTG = 0 Const adPersistXML = 1 '---- StringFormatEnum Values ---- Const adClipString = 2 '---- ConnectPromptEnum Values ---- Const adPromptAlways = 1 Const adPromptComplete = 2 Const adPromptCompleteRequired = 3 Const adPromptNever = 4 '---- ConnectModeEnum Values ---- Const adModeUnknown = 0 Const adModeRead = 1 Const adModeWrite = 2 Const adModeReadWrite = 3 Const adModeShareDenyRead = 4 Const adModeShareDenyWrite = 8 Const adModeShareExclusive = &Hc Const adModeShareDenyNone = &H10 Const adModeRecursive = &H400000 '---- RecordCreateOptionsEnum Values ---- Const adCreateCollection = &H00002000 Const adCreateStructDoc = &H80000000 Const adCreateNonCollection = &H00000000 Const adOpenIfExists = &H02000000 Const adCreateOverwrite = &H04000000 Const adFailIfNotExists = -1 '---- RecordOpenOptionsEnum Values ---- Const adOpenRecordUnspecified = -1 Const adOpenSource = &H00800000 Const adOpenAsync = &H00001000 Const adDelayFetchStream = &H00004000 Const adDelayFetchFields = &H00008000 '---- IsolationLevelEnum Values ---- Const adXactUnspecified = &Hffffffff Const adXactChaos = &H00000010 Const adXactReadUncommitted = &H00000100 Const adXactBrowse = &H00000100 Const adXactCursorStability = &H00001000 Const adXactReadCommitted = &H00001000 Const adXactRepeatableRead = &H00010000 Const adXactSerializable = &H00100000 Const adXactIsolated = &H00100000 '---- XactAttributeEnum Values ---- Const adXactCommitRetaining = &H00020000 Const adXactAbortRetaining = &H00040000 '---- PropertyAttributesEnum Values ---- Const adPropNotSupported = &H0000 Const adPropRequired = &H0001 Const adPropOptional = &H0002 Const adPropRead = &H0200 Const adPropWrite = &H0400 '---- ErrorValueEnum Values ---- Const adErrProviderFailed = &Hbb8 Const adErrInvalidArgument = &Hbb9 Const adErrOpeningFile = &Hbba Const adErrReadFile = &Hbbb Const adErrWriteFile = &Hbbc Const adErrNoCurrentRecord = &Hbcd Const adErrIllegalOperation = &Hc93 Const adErrCantChangeProvider = &Hc94 Const adErrInTransaction = &Hcae Const adErrFeatureNotAvailable = &Hcb3 Const adErrItemNotFound = &Hcc1 Const adErrObjectInCollection = &Hd27 Const adErrObjectNotSet = &Hd5c Const adErrDataConversion = &Hd5d Const adErrObjectClosed = &He78 Const adErrObjectOpen = &He79 Const adErrProviderNotFound = &He7a Const adErrBoundToCommand = &He7b Const adErrInvalidParamInfo = &He7c Const adErrInvalidConnection = &He7d Const adErrNotReentrant = &He7e Const adErrStillExecuting = &He7f Const adErrOperationCancelled = &He80 Const adErrStillConnecting = &He81 Const adErrInvalidTransaction = &He82 Const adErrUnsafeOperation = &He84 Const adwrnSecurityDialog = &He85 Const adwrnSecurityDialogHeader = &He86 Const adErrIntegrityViolation = &He87 Const adErrPermissionDenied = &He88 Const adErrDataOverflow = &He89 Const adErrSchemaViolation = &He8a Const adErrSignMismatch = &He8b Const adErrCantConvertvalue = &He8c Const adErrCantCreate = &He8d Const adErrColumnNotOnThisRow = &He8e Const adErrURLIntegrViolSetColumns = &He8f Const adErrURLDoesNotExist = &He8f Const adErrTreePermissionDenied = &He90 Const adErrInvalidURL = &He91 Const adErrResourceLocked = &He92 Const adErrResourceExists = &He93 Const adErrCannotComplete = &He94 Const adErrVolumeNotFound = &He95 Const adErrOutOfSpace = &He96 Const adErrResourceOutOfScope = &He97 Const adErrUnavailable = &He98 Const adErrURLNamedRowDoesNotExist = &He99 Const adErrDelResOutOfScope = &He9a Const adErrPropInvalidColumn = &He9b Const adErrPropInvalidOption = &He9c Const adErrPropInvalidValue = &He9d Const adErrPropConflicting = &He9e Const adErrPropNotAllSettable = &He9f Const adErrPropNotSet = &Hea0 Const adErrPropNotSettable = &Hea1 Const adErrPropNotSupported = &Hea2 Const adErrCatalogNotSet = &Hea3 Const adErrCantChangeConnection = &Hea4 Const adErrFieldsUpdateFailed = &Hea5 Const adErrDenyNotSupported = &Hea6 Const adErrDenyTypeNotSupported = &Hea7 '---- ParameterAttributesEnum Values ---- Const adParamSigned = &H0010 Const adParamNullable = &H0040 Const adParamLong = &H0080 '---- ParameterDirectionEnum Values ---- Const adParamUnknown = &H0000 Const adParamInput = &H0001 Const adParamOutput = &H0002 Const adParamInputOutput = &H0003 Const adParamReturnValue = &H0004 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 '---- EventStatusEnum Values ---- Const adStatusOK = &H0000001 Const adStatusErrorsOccurred = &H0000002 Const adStatusCantDeny = &H0000003 Const adStatusCancel = &H0000004 Const adStatusUnwantedEvent = &H0000005 '---- EventReasonEnum Values ---- Const adRsnAddNew = 1 Const adRsnDelete = 2 Const adRsnUpdate = 3 Const adRsnUndoUpdate = 4 Const adRsnUndoAddNew = 5 Const adRsnUndoDelete = 6 Const adRsnRequery = 7 Const adRsnResynch = 8 Const adRsnClose = 9 Const adRsnMove = 10 Const adRsnFirstChange = 11 Const adRsnMoveFirst = 12 Const adRsnMoveNext = 13 Const adRsnMovePrevious = 14 Const adRsnMoveLast = 15 '---- SchemaEnum Values ---- Const adSchemaProviderSpecific = -1 Const adSchemaAsserts = 0 Const adSchemaCatalogs = 1 Const adSchemaCharacterSets = 2 Const adSchemaCollations = 3 Const adSchemaColumns = 4 Const adSchemaCheckConstraints = 5 Const adSchemaConstraintColumnUsage = 6 Const adSchemaConstraintTableUsage = 7 Const adSchemaKeyColumnUsage = 8 Const adSchemaReferentialConstraints = 9 Const adSchemaTableConstraints = 10 Const adSchemaColumnsDomainUsage = 11 Const adSchemaIndexes = 12 Const adSchemaColumnPrivileges = 13 Const adSchemaTablePrivileges = 14 Const adSchemaUsagePrivileges = 15 Const adSchemaProcedures = 16 Const adSchemaSchemata = 17 Const adSchemaSQLLanguages = 18 Const adSchemaStatistics = 19 Const adSchemaTables = 20 Const adSchemaTranslations = 21 Const adSchemaProviderTypes = 22 Const adSchemaViews = 23 Const adSchemaViewColumnUsage = 24 Const adSchemaViewTableUsage = 25 Const adSchemaProcedureParameters = 26 Const adSchemaForeignKeys = 27 Const adSchemaPrimaryKeys = 28 Const adSchemaProcedureColumns = 29 Const adSchemaDBInfoKeywords = 30 Const adSchemaDBInfoLiterals = 31 Const adSchemaCubes = 32 Const adSchemaDimensions = 33 Const adSchemaHierarchies = 34 Const adSchemaLevels = 35 Const adSchemaMeasures = 36 Const adSchemaProperties = 37 Const adSchemaMembers = 38 Const adSchemaTrustees = 39 '---- FieldStatusEnum Values ---- Const adFieldOK = 0 Const adFieldCantConvertValue = 2 Const adFieldIsNull = 3 Const adFieldTruncated = 4 Const adFieldSignMismatch = 5 Const adFieldDataOverflow = 6 Const adFieldCantCreate = 7 Const adFieldUnavailable = 8 Const adFieldPermissionDenied = 9 Const adFieldIntegrityViolation = 10 Const adFieldSchemaViolation = 11 Const adFieldBadStatus = 12 Const adFieldDefault = 13 Const adFieldIgnore = 15 Const adFieldDoesNotExist = 16 Const adFieldInvalidURL = 17 Const adFieldResourceLocked = 18 Const adFieldResourceExists = 19 Const adFieldCannotComplete = 20 Const adFieldVolumeNotFound = 21 Const adFieldOutOfSpace = 22 Const adFieldCannotDeleteSource = 23 Const adFieldReadOnly = 24 Const adFieldResourceOutOfScope = 25 Const adFieldAlreadyExists = 26 Const adFieldPendingInsert = &H10000 Const adFieldPendingDelete = &H20000 Const adFieldPendingChange = &H40000 Const adFieldPendingUnknown = &H80000 Const adFieldPendingUnknownDelete = &H100000 '---- SeekEnum Values ---- Const adSeekFirstEQ = &H1 Const adSeekLastEQ = &H2 Const adSeekAfterEQ = &H4 Const adSeekAfter = &H8 Const adSeekBeforeEQ = &H10 Const adSeekBefore = &H20 '---- ADCPROP_UPDATECRITERIA_ENUM Values ---- Const adCriteriaKey = 0 Const adCriteriaAllCols = 1 Const adCriteriaUpdCols = 2 Const adCriteriaTimeStamp = 3 '---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ---- Const adPriorityLowest = 1 Const adPriorityBelowNormal = 2 Const adPriorityNormal = 3 Const adPriorityAboveNormal = 4 Const adPriorityHighest = 5 '---- ADCPROP_AUTORECALC_ENUM Values ---- Const adRecalcUpFront = 0 Const adRecalcAlways = 1 '---- ADCPROP_UPDATERESYNC_ENUM Values ---- '---- ADCPROP_UPDATERESYNC_ENUM Values ---- '---- MoveRecordOptionsEnum Values ---- Const adMoveUnspecified = -1 Const adMoveOverWrite = 1 Const adMoveDontUpdateLinks = 2 Const adMoveAllowEmulation = 4 '---- CopyRecordOptionsEnum Values ---- Const adCopyUnspecified = -1 Const adCopyOverWrite = 1 Const adCopyAllowEmulation = 4 Const adCopyNonRecursive = 2 '---- StreamTypeEnum Values ---- Const adTypeBinary = 1 Const adTypeText = 2 '---- LineSeparatorEnum Values ---- Const adLF = 10 Const adCR = 13 Const adCRLF = -1 '---- StreamOpenOptionsEnum Values ---- Const adOpenStreamUnspecified = -1 Const adOpenStreamAsync = 1 Const adOpenStreamFromRecord = 4 '---- StreamWriteEnum Values ---- Const adWriteChar = 0 Const adWriteLine = 1 '---- SaveOptionsEnum Values ---- Const adSaveCreateNotExist = 1 Const adSaveCreateOverWrite = 2 '---- FieldEnum Values ---- Const adDefaultStream = -1 Const adRecordURL = -2 '---- StreamReadEnum Values ---- Const adReadAll = -1 Const adReadLine = -2 '---- RecordTypeEnum Values ---- Const adSimpleRecord = 0 Const adCollectionRecord = 1 Const adStructDoc = 2 %> <% On Error Resume Next Set Conn=Server.CreateObject("Adodb.Connection") strConn="Driver={Microsoft Access Driver (*.Mdb)};Pwd=;Dbq=" & Server.MapPath("db/kaximodo2005.mdb") Conn.Open strConn %> <% set rs=server.createobject("adodb.recordset") sql="select * from const" rs.open sql,conn,1,1 if not rs.eof then Application("WebName")=rs("WebName") Application("WebUrl")=rs("WebUrl") Application("WebEmail")=rs("WebEmail") Application("Copyright")=rs("Copyright") Application("Ver")=rs("Ver") Application("Logo")=rs("Logo") Application("Banner")=rs("Banner") Application("BannerUrl")=rs("BannerUrl") Application("Max_List")=rs("Max_List") Application("Max_GoodList")=rs("Max_GoodList") Application("Max_FocusList")=rs("Max_FocusList") Application("Max_picList")=rs("Max_picList") Application("Placard")=rs("Placard") end if WebName=Application("WebName") WebUrl=Application("WebUrl") WebEmail=Application("WebEmail") Copyright=Application("Copyright") Ver=Application("Ver") Logo=Application("Logo") Banner=Application("Banner") BannerUrl=Application("BannerUrl") Max_List=Application("Max_List") Max_GoodList=Application("Max_GoodList") Max_FocusList=Application("Max_FocusList") Max_picList=Application("Max_picList") Placard=Application("Placard") rs.close set rs=nothing %> <% '=======我的自定义函数========= function lcb_replace(str) 'str=server.htmlencode(str) str=replace(str," "," ") str=replace(str,chr(13)&chr(10),"
") lcb_replace=str end function '============================== function HotImg(News_ID,i) set DelectFile=server.CreateObject("scripting.filesystemobject") CurrentPath=server.MapPath("uploadfile/") FileName=CurrentPath & "\" & News_ID & "-" & i & ".gif" if DelectFile.FileExists(FileName) then HotImg="" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".swf" if DelectFile.FileExists(FileName) then HotImg="" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".jpg" if DelectFile.FileExists(FileName) then HotImg="" exit function else HotImg="" exit function end if end if end if end function function DelectImageFile(News_ID,i) set DelectFile=server.CreateObject("scripting.filesystemobject") CurrentPath=server.MapPath("uploadfile/") FileName=CurrentPath & "\" & News_ID & "-" & i & ".gif" if DelectFile.FileExists(FileName) then DelectImageFile="

图片 " & i & "
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".swf" if DelectFile.FileExists(FileName) then DelectImageFile="
FLASH " & i & "
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".jpg" if DelectFile.FileExists(FileName) then DelectImageFile="

图片 " & i & "
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".zip" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".rar" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".doc" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".ppt" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".xls" if DelectFile.FileExists(FileName) then DelectImageFile="
点击图标下载附件
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".avi" if DelectFile.FileExists(FileName) then DelectImageFile="
该文章带有 AVI 视频文件,请观看
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".rm" if DelectFile.FileExists(FileName) then DelectImageFile="
该文章带有 RM 视频文件,请观看

" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".asf" if DelectFile.FileExists(FileName) then DelectImageFile="
该文章带有 ASF 视频文件,请观看
" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".wmv" if DelectFile.FileExists(FileName) then DelectImageFile="
该文章带有 WMV 视频文件,请观看
" exit function else DelectImageFile="

图片 " & i & "
" exit function end if end if end if end if end if end if end if end if end if end if end if end if end function function DelectImageFile_Upload(News_ID,i) set DelectFile=server.CreateObject("scripting.filesystemobject") CurrentPath=server.MapPath("uploadfile/") FileName=CurrentPath & "\" & News_ID & "-" & i & ".gif" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".gif" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".jpg" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".jpg" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".swf" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".swf" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".zip" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".zip" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".rar" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".rar" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".doc" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".doc" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".ppt" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".ppt" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".xls" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".xls" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".avi" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".avi" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".asf" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".asf" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".wmv" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".wmv" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".rm" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".rm" exit function else FileName=CurrentPath & "\" & News_ID & "-" & i & ".bmp" if DelectFile.FileExists(FileName) then DelectImageFile_Upload= News_ID & "-" & i & ".bmp" exit function else DelectImageFile_Upload="" exit function end if end if end if end if end if end if end if end if end if end if end if end if end if end function Function HtmlSelfEnCode(content,ImageNum) Image=ImageNum TempContent=content if image>0 then for i=1 to image TempContent=replace(TempContent,"[[image" & i & "]]","" & DelectImageFile(News_ID,i) & "") next end if TempContent=replace(TempContent,"[[","<") TempContent=replace(TempContent,"]]",">") TempContent=replace(TempContent," 0 and fOTagPos > 0) fString = replace(fString, fOTag, fROTag, 1, 1, 1) fString = replace(fString, fCTag, fRCTag, 1, 1, 1) fOTagPos = Instr(1, fString, fOTag, 1) fCTagPos = Instr(1, fString, fCTag, 1) wend doCode = fString end function Function UBBEnCode(Content) fString=Content fString=replace(fString,"<","<") fString=replace(fString,">",">") fString=replace(fString,chr(13),"
") fString = doCode(fString, "[b]", "[/b]", "", "") fString = doCode(fString, "[s]", "[/s]", "", "") fString = doCode(fString, "[strike]", "[/strike]", "", "") fString = doCode(fString, "[u]", "[/u]", "", "") fString = doCode(fString, "[i]", "[/i]", "", "") fString = doCode(fString, "[font=Andale Mono]", "[/font=Andale Mono]", "", "") fString = doCode(fString, "[font=Arial]", "[/font=Arial]", "", "") fString = doCode(fString, "[font=Arial Black]", "[/font=Arial Black]", "", "") fString = doCode(fString, "[font=Book Antiqua]", "[/font=Book Antiqua]", "", "") fString = doCode(fString, "[font=Century Gothic]", "[/font=Century Gothic]", "", "") fString = doCode(fString, "[font=Courier New]", "[/font=Courier New]", "", "") fString = doCode(fString, "[font=Comic Sans MS]", "[/font=Comic Sans MS]", "", "") fString = doCode(fString, "[font=Georgia]", "[/font=Georgia]", "", "") fString = doCode(fString, "[font=Impact]", "[/font=Impact]", "", "") fString = doCode(fString, "[font=Tahoma]", "[/font=Tahoma]", "", "") fString = doCode(fString, "[font=Times New Roman]", "[/font=Times New Roman]", "", "") fString = doCode(fString, "[font=Trebuchet MS]", "[/font=Trebuchet MS]", "", "") fString = doCode(fString, "[font=Script MT Bold]", "[/font=Script MT Bold]", "", "") fString = doCode(fString, "[font=Stencil]", "[/font=Stencil]", "", "") fString = doCode(fString, "[font=宋体]", "[/font=宋体]", "", "") fString = doCode(fString, "[font=Verdana]", "[/font=Verdana]", "", "") fString = doCode(fString, "[font=Lucida Console]", "[/font=Lucida Console]", "", "") fString = doCode(fString, "[red]", "[/red]", "", "") fString = doCode(fString, "[green]", "[/green]", "", "") fString = doCode(fString, "[blue]", "[/blue]", "", "") fString = doCode(fString, "[white]", "[/white]", "", "") fString = doCode(fString, "[purple]", "[/purple]", "", "") fString = doCode(fString, "[yellow]", "[/yellow]", "", "") fString = doCode(fString, "[violet]", "[/violet]", "", "") fString = doCode(fString, "[brown]", "[/brown]", "", "") fString = doCode(fString, "[black]", "[/black]", "", "") fString = doCode(fString, "[pink]", "[/pink]", "", "") fString = doCode(fString, "[orange]", "[/orange]", "", "") fString = doCode(fString, "[gold]", "[/gold]", "", "") fString = doCode(fString, "[beige]", "[/beige]", "", "") fString = doCode(fString, "[teal]", "[/teal]", "", "") fString = doCode(fString, "[navy]", "[/navy]", "", "") fString = doCode(fString, "[maroon]", "[/maroon]", "", "") fString = doCode(fString, "[limegreen]", "[/limegreen]", "", "") fString = doCode(fString, "[h1]", "[/h1]", "

", "

") fString = doCode(fString, "[h2]", "[/h2]", "

", "

") fString = doCode(fString, "[h3]", "[/h3]", "

", "

") fString = doCode(fString, "[h4]", "[/h4]", "

", "

") fString = doCode(fString, "[h5]", "[/h5]", "
", "
") fString = doCode(fString, "[h6]", "[/h6]", "
", "
") fString = doCode(fString, "[size=1]", "[/size=1]", "", "") fString = doCode(fString, "[size=2]", "[/size=2]", "", "") fString = doCode(fString, "[size=3]", "[/size=3]", "", "") fString = doCode(fString, "[size=4]", "[/size=4]", "", "") fString = doCode(fString, "[size=5]", "[/size=5]", "", "") fString = doCode(fString, "[size=6]", "[/size=6]", "", "") fString = doCode(fString, "[list]", "[/list]", "") fString = doCode(fString, "[list=1]", "[/list=1]", "
    ", "
") fString = doCode(fString, "[list=a]", "[/list=a]", "
    ", "
") fString = doCode(fString, "[*]", "[/*]", "
  • ", "
  • ") fString = doCode(fString, "[left]", "[/left]", "
    ", "
    ") fString = doCode(fString, "[center]", "[/center]", "
    ", "
    ") fString = doCode(fString, "[centre]", "[/centre]", "
    ", "
    ") fString = doCode(fString, "[right]", "[/right]", "
    ", "
    ") fString = doCode(fString, "[code]", "[/code]", "
    ", "
    ") fString = doCode(fString, "[quote]", "[/quote]", "
    quote:
    ", "
    ") fString = doCode(fString, "[url="", ""]", "[url=""", """]") fString = doCode(fString, "[URL="", ""]", "[url=""", """]") fString = doCode(fString, "[url", "[/url]", "", "") fString = replace(fString, "[br]", "
    ", 1, -1, 1) UBBEnCode=fString End Function %> <% News_ID=Request.QueryString("News_ID") if News_ID="" then Response.Write "未指定参数" else conn.execute("update article Set hits=hits+1 where News_ID="&News_ID) set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from article where News_ID="&News_ID rs.Open rs.Source,conn,1,1 if rs.bof and rs.eof then response.write "无此内容" else class_id=rs("class_id") if class_id="30" then strClassShow="zjgw" end if if class_id="31" then strClassShow="swhx" end if if class_id="32" then strClassShow="ycjy" end if if class_id="33" then strClassShow="qynx" end if if class_id="35" then strClassShow="yxts" end if if class_id="36" then strClassShow="glzl" end if if class_id="37" then strClassShow="qyzx" end if nclass_id=rs("nclass_id") title=trim(rs("title")) about=trim(rs("about")) Author=trim(rs("Author")) Original=trim(rs("Original")) indate=trim(rs("indate")) Content=rs("Content") hits=rs("hits") EnCode=trim(rs("EnCode")) rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from class where class_ID="&class_id rs.Open rs.Source,conn,1,1 class_name=rs("class_name") rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from Nclass Where nclass_ID="&nclass_id rs.Open rs.Source,conn,1,1 Nclass_name=rs("Nclass_name") rs.close end if end if %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 中华人民共和国港口法
    中华人民共和国港口法   类型:交通运输、物流


    (2003年6月28日主席颁布,2004年1月1日起施行)



    第一章 总则

      第一条 为了加强港口管理,维护港口的安全与经营秩序,保护当事人的合法权益,促进港口的建设与发展,制定本法。

      第二条 从事港口规划、建设、维护、经营、管理及其相关活动,适用本法。

      第三条 本法所称港口,是指具有船舶进出、停泊、靠泊,旅客上下,货物装卸、驳运、储存等功能,具有相应的码头设施,由一定范围的水域和陆域组成的区域。
      港口可以由一个或者多个港区组成。

      第四条 国务院和有关县级以上地方人民政府应当在国民经济和社会发展计划中体现港口的发展和规划要求,并依法保护和合理利用港口资源。

      第五条 国家鼓励国内外经济组织和个人依法投资建设、经营港口,保护投资者的合法权益。

      第六条 国务院交通主管部门主管全国的港口工作。
      地方人民政府对本行政区域内港口的管理,按照国务院关于港口管理体制的规定确定。
      依照前款确定的港口管理体制,由港口所在地的市、县人民政府管理的港口,由市、县人民政府确定一个部门具体实施对港口的行政管理;由省、自治区、直辖市人民政府管理的港口,由省、自治区、直辖市人民政府确定一个部门具体实施对港口的行政管理。
      依照前款确定的对港口具体实施行政管理的部门,以下统称港口行政管理部门。

    第二章 港口规划与建设

      第七条 港口规划应当根据国民经济和社会发展的要求以及国防建设的需要编制,体现合理利用岸线资源的原则,符合城镇体系规划,并与土地利用总体规划、城市总体规划、江河流域规划、防洪规划、海洋功能区划、水路运输发展规划和其他运输方式发展规划以及法律、行政法规规定的其他有关规划相衔接、协调。
      编制港口规划应当组织专家论证,并依法进行环境影响评价。

      第八条 港口规划包括港口布局规划和港口总体规划。
      港口布局规划,是指港口的分布规划,包括全国港口布局规划和省、自治区、直辖市港口布局规划。
      港口总体规划,是指一个港口在一定时期的具体规划,包括港口的水域和陆域范围、港区划分、吞吐量和到港船型、港口的性质和功能、水域和陆域使用、港口设施建设岸线使用、建设用地配置以及分期建设序列等内容。
      港口总体规划应当符合港口布局规划。

      第九条 全国港口布局规划,由国务院交通主管部门征求国务院有关部门和有关军事机关的意见编制,报国务院批准后公布实施。
      省、自治区、直辖市港口布局规划,由省、自治区、直辖市人民政府根据全国港口布局规划组织编制,并送国务院交通主管部门征求意见。国务院交通主管部门自收到征求意见的材料之日起满三十日未提出修改意见的,该港口布局规划由有关省、自治区、直辖市人民政府公布实施;国务院交通主管部门认为不符合全国港口布局规划的,应当自收到征求意见的材料之日起三十日内提出修改意见;有关省、自治区、直辖市人民政府对修改意见有异议的,报国务院决定。

      第十条 港口总体规划由港口行政管理部门征求有关部门和有关军事机关的意见编制。

      第十一条 地理位置重要、吞吐量较大、对经济发展影响较广的主要港口的总体规划,由国务院交通主管部门征求国务院有关部门和有关军事机关的意见后,会同有关省、自治区、直辖市人民政府批准,并公布实施。主要港口名录由国务院交通主管部门征求国务院有关部门意见后确定并公布。
      省、自治区、直辖市人民政府征求国务院交通主管部门的意见后确定本地区的重要港口。重要港口的总体规划由省、自治区、直辖市人民政府征求国务院交通主管部门意见后批准,公布实施。
      前两款规定以外的港口的总体规划,由港口所在地的市、县人民政府批准后公布实施,并报省、自治区、直辖市人民政府备案。
      市、县人民政府港口行政管理部门编制的属于本条第一款、第二款规定范围的港口的总体规划,在报送审批前应当经本级人民政府审核同意。

      第十二条 港口规划的修改,按照港口规划制定程序办理。

      第十三条 在港口总体规划区内建设港口设施,使用港口深水岸线的,由国务院交通主管部门会同国务院经济综合宏观调控部门批准;建设港口设施,使用非深水岸线的,由港口行政管理部门批准。但是,由国务院或者国务院经济综合宏观调控部门批准建设的项目使用港口岸线,不再另行办理使用港口岸线的审批手续。
      港口深水岸线的标准由国务院交通主管部门制定。

      第十四条 港口建设应当符合港口规划。不得违反港口规划建设任何港口设施。

      第十五条 按照国家规定须经有关机关批准的港口建设项目,应当按照国家有关规定办理审批手续,并符合国家有关标准和技术规范。
      建设港口工程项目,应当依法进行环境影响评价。
      港口建设项目的安全设施和环境保护设施,必须与主体工程同时设计、同时施工、同时投入使用。

      第十六条 港口建设使用土地和水域,应当依照有关土地管理、海域使用管理、河道管理、航道管理、军事设施保护管理的法律、行政法规以及其他有关法律、行政法规的规定办理。

      第十七条 港口的危险货物作业场所、实施卫生除害处理的专用场所,应当符合港口总体规划和国家有关安全生产、消防、检验检疫和环境保护的要求,其与人口密集区和港口客运设施的距离应当符合国务院有关部门的规定;经依法办理有关手续,并经港口行政管理部门批准后,方可建设。

      第十八条 航标设施以及其他辅助性设施,应当与港口同步建设,并保证按期投入使用。
      港口内有关行政管理机构办公设施的建设应当符合港口总体规划,建设费用不得向港口经营人摊派。

      第十九条 港口设施建设项目竣工后,应当按照国家有关规定经验收合格,方可投入使用。
      港口设施的所有权,依照有关法律规定确定。

      第二十条 县级以上有关人民政府应当保证必要的资金投入,用于港口公用的航道、防波堤、锚地等基础设施的建设和维护。具体办法由国务院规定。

      第二十一条 县级以上有关人民政府应当采取措施,组织建设与港口相配套的航道、铁路、公路、给排水、供电、通信等设施。

    第三章 港口经营

      第二十二条 从事港口经营,应当向港口行政管理部门书面申请取得港口经营许可,并依法办理工商登记。
      港口行政管理部门实施港口经营许可,应当遵循公开、公正、公平的原则。
      港口经营包括码头和其他港口设施的经营,港口旅客运输服务经营,在港区内从事货物的装卸、驳运、仓储的经营和港口拖轮经营等。

      第二十三条 取得港口经营许可,应当有固定的经营场所,有与经营业务相适应的设施、设备、专业技术人员和管理人员,并应当具备法律、法规规定的其他条件。

      第二十四条 港口行政管理部门应当自收到本法第二十二条第一款规定的书面申请之日起三十日内依法作出许可或者不予许可的决定。予以许可的,颁发港口经营许可证;不予许可的,应当书面通知申请人并告知理由。

      第二十五条 经营港口理货业务,应当按照规定取得许可。实施港口理货业务经营许可,应当遵循公开、公正、公平的原则。具体办法由国务院交通主管部门规定。
      港口理货业务经营人应当公正、准确地办理理货业务;不得兼营本法第二十二条第三款规定的货物装卸经营业务和仓储经营业务。

      第二十六条 港口经营人从事经营活动,必须遵守有关法律、法规,遵守国务院交通主管部门有关港口作业规则的规定,依法履行合同约定的义务,为客户提供公平、良好的服务。
      从事港口旅客运输服务的经营人,应当采取保证旅客安全的有效措施,向旅客提供快捷、便利的服务,保持良好的候船环境。
      港口经营人应当依照有关环境保护的法律、法规的规定,采取有效措施,防治对环境的污染和危害。

      第二十七条 港口经营人应当优先安排抢险物资、救灾物资和国防建设急需物资的作业。

      第二十八条 港口经营人应当在其经营场所公布经营服务的收费项目和收费标准;未公布的,不得实施。
      港口经营性收费依法实行政府指导价或者政府定价的,港口经营人应当按照规定执行。

      第二十九条 国家鼓励和保护港口经营活动的公平竞争。
      港口经营人不得实施垄断行为和不正当竞争行为,不得以任何手段强迫他人接受其提供的港口服务。

      第三十条 港口行政管理部门依照《中华人民共和国统计法》和有关行政法规的规定要求港口经营人提供的统计资料,港口经营人应当如实提供。
      港口行政管理部门应当按照国家有关规定将港口经营人报送的统计资料及时上报,并为港口经营人保守商业秘密。

      第三十一条 港口经营人的合法权益受法律保护。任何单位和个人不得向港口经营人摊派或者违法收取费用,不得违法干预港口经营人的经营自主权。

    第四章 港口安全与监督管理

      第三十二条 港口经营人必须依照《中华人民共和国安全生产法》等有关法律、法规和国务院交通主管部门有关港口安全作业规则的规定,加强安全生产管理,建立健全安全生产责任制等规章制度,完善安全生产条件,采取保障安全生产的有效措施,确保安全生产。
      港口经营人应当依法制定本单位的危险货物事故应急预案、重大生产安全事故的旅客紧急疏散和救援预案以及预防自然灾害预案,保障组织实施。

      第三十三条 港口行政管理部门应当依法制定可能危及社会公共利益的港口危险货物事故应急预案、重大生产安全事故的旅客紧急疏散和救援预案以及预防自然灾害预案,建立健全港口重大生产安全事故的应急救援体系。

      第三十四条 船舶进出港口,应当依照有关水上交通安全的法律、行政法规的规定向海事管理机构报告。海事管理机构接到报告后,应当及时通报港口行政管理部门。
      船舶载运危险货物进出港口,应当按照国务院交通主管部门的规定将危险货物的名称、特性、包装和进出港口的时间报告海事管理机构。海事管理机构接到报告后,应当在国务院交通主管部门规定的时间内作出是否同意的决定,通知报告人,并通报港口行政管理部门。但是,定船舶、定航线、定货种的船舶可以定期报告。

      第三十五条 在港口内进行危险货物的装卸、过驳作业,应当按照国务院交通主管部门的规定将危险货物的名称、特性、包装和作业的时间、地点报告港口行政管理部门。港口行政管理部门接到报告后,应当在国务院交通主管部门规定的时间内作出是否同意的决定,通知报告人,并通报海事管理机构。

      第三十六条 港口行政管理部门应当依法对港口安全生产情况实施监督检查,对旅客上下集中、货物装卸量较大或者有特殊用途的码头进行重点巡查;检查中发现安全隐患的,应当责令被检查人立即排除或者限期排除。
      负责安全生产监督管理的部门和其他有关部门依照法律、法规的规定,在各自职责范围内对港口安全生产实施监督检查。

      第三十七条 禁止在港口水域内从事养殖、种植活动。
      不得在港口进行可能危及港口安全的采掘、爆破等活动;因工程建设等确需进行的,必须采取相应的安全保护措施,并报经港口行政管理部门批准;依照有关水上交通安全的法律、行政法规的规定须经海事管理机构批准的,还应当报经海事管理机构批准。
      禁止向港口水域倾倒泥土、砂石以及违反有关环境保护的法律、法规的规定排放超过规定标准的有毒、有害物质。

      第三十八条 建设桥梁、水底隧道、水电站等可能影响港口水文条件变化的工程项目,负责审批该项目的部门在审批前应当征求港口行政管理部门的意见。

      第三十九条 依照有关水上交通安全的法律、行政法规的规定,进出港口须经引航的船舶,应当向引航机构申请引航。引航的具体办法由国务院交通主管部门规定。

      第四十条 遇有旅客滞留、货物积压阻塞港口的情况,港口行政管理部门应当及时采取有效措施,进行疏港;港口所在地的市、县人民政府认为必要时,可以直接采取措施,进行疏港。

      第四十一条 港口行政管理部门应当组织制定所管理的港口的章程,并向社会公布。
      港口章程的内容应当包括对港口的地理位置、航道条件、港池水深、机械设施和装卸能力等情况的说明,以及本港口贯彻执行有关港口管理的法律、法规和国务院交通主管部门有关规定的具体措施。

      第四十二条 港口行政管理部门依据职责对本法执行情况实施监督检查。
      港口行政管理部门的监督检查人员依法实施监督检查时,有权向被检查单位和有关人员了解有关情况,并可查阅、复制有关资料。
      监督检查人员对检查中知悉的商业秘密,应当保密。
      监督检查人员实施监督检查时,应当出示执法证件。

      第四十三条 监督检查人员应当将监督检查的时间、地点、内容、发现的问题及处理情况作出书面记录,并由监督检查人员和被检查单位的负责人签字;被检查单位的负责人拒绝签字的,监督检查人员应当将情况记录在案,并向港口行政管理部门报告。

      第四十四条 被检查单位和有关人员应当接受港口行政管理部门依法实施的监督检查,如实提供有关情况和资料,不得拒绝检查或者隐匿、谎报有关情况和资料。

    第五章 法律责任

      第四十五条 有下列行为之一的,由县级以上地方人民政府或者港口行政管理部门责令限期改正;逾期不改正的,由作出限期改正决定的机关申请人民法院强制拆除违法建设的设施;可以处五万元以下罚款:
      (一)违反港口规划建设港口、码头或者其他港口设施的;
      (二)未经依法批准,建设港口设施使用港口岸线的。
      建设项目的审批部门对违反港口规划的建设项目予以批准的,对其直接负责的主管人员和其他直接责任人员,依法给予行政处分。

      第四十六条 未经依法批准,在港口建设危险货物作业场所、实施卫生除害处理的专用场所的,或者建设的危险货物作业场所、实施卫生除害处理的专用场所与人口密集区或者港口客运设施的距离不符合国务院有关部门的规定的,由港口行政管理部门责令停止建设或者使用,限期改正,可以处五万元以下罚款。

      第四十七条 码头或者港口装卸设施、客运设施未经验收合格,擅自投入使用的,由港口行政管理部门责令停止使用,限期改正,可以处五万元以下罚款。

      第四十八条 有下列行为之一的,由港口行政管理部门责令停止违法经营,没收违法所得;违法所得十万元以上的,并处违法所得二倍以上五倍以下罚款;违法所得不足十万元的,处五万元以上二十万元以下罚款:
      (一)未依法取得港口经营许可证,从事港口经营的;
      (二)未经依法许可,经营港口理货业务的;
      (三)港口理货业务经营人兼营货物装卸经营业务、仓储经营业务的。
      有前款第(三)项行为,情节严重的,由有关主管部门吊销港口理货业务经营许可证。

      第四十九条 港口经营人不优先安排抢险物资、救灾物资、国防建设急需物资的作业的,由港口行政管理部门责令改正;造成严重后果的,吊销港口经营许可证。

      第五十条 港口经营人违反有关法律、行政法规的规定,在经营活动中实施垄断行为或者不正当竞争行为的,依照有关法律、行政法规的规定承担法律责任。

      第五十一条 港口经营人违反本法第三十二条关于安全生产的规定的,由港口行政管理部门或者其他依法负有安全生产监督管理职责的部门依法给予处罚;情节严重的,由港口行政管理部门吊销港口经营许可证,并对其主要负责人依法给予处分;构成犯罪的,依法追究刑事责任。

      第五十二条 船舶进出港口,未依照本法第三十四条的规定向海事管理机构报告的,由海事管理机构依照有关水上交通安全的法律、行政法规的规定处罚。

      第五十三条 未依法向港口行政管理部门报告并经其同意,在港口内进行危险货物的装卸、过驳作业的,由港口行政管理部门责令停止作业,处五千元以上五万元以下罚款。

      第五十四条 在港口水域内从事养殖、种植活动的,由海事管理机构责令限期改正;逾期不改正的,强制拆除养殖、种植设施,拆除费用由违法行为人承担;可以处一万元以下罚款。

      第五十五条 未经依法批准在港口进行可能危及港口安全的采掘、爆破等活动的,向港口水域倾倒泥土、砂石的,由港口行政管理部门责令停止违法行为,限期消除因此造成的安全隐患;逾期不消除的,强制消除,因此发生的费用由违法行为人承担;处五千元以上五万元以下罚款;依照有关水上交通安全的法律、行政法规的规定由海事管理机构处罚的,依照其规定;构成犯罪的,依法追究刑事责任。

      第五十六条 交通主管部门、港口行政管理部门、海事管理机构等不依法履行职责,有下列行为之一的,对直接负责的主管人员和其他直接责任人员依法给予行政处分;构成犯罪的,依法追究刑事责任:
      (一)违法批准建设港口设施使用港口岸线、违法批准建设港口危险货物作业场所或者实施卫生除害处理的专用场所,或者违法批准船舶载运危险货物进出港口、违法批准在港口内进行危险货物的装卸、过驳作业的;
      (二)对不符合法定条件的申请人给予港口经营许可或者港口理货业务经营许可的;
      (三)发现取得经营许可的港口经营人、港口理货业务经营人不再具备法定许可条件而不及时吊销许可证的;
      (四)不依法履行监督检查职责,对违反港口规划建设港口、码头或者其他港口设施的行为,未经依法许可从事港口经营、港口理货业务的行为,不遵守安全生产管理规定的行为,危及港口作业安全的行为,以及其他违反本法规定的行为,不依法予以查处的。

      第五十七条 行政机关违法干预港口经营人的经营自主权的,由其上级行政机关或者监察机关责令改正;向港口经营人摊派财物或者违法收取费用的,责令退回;情节严重的,对直接负责的主管人员和其他直接责任人员依法给予行政处分。

    第六章 附则

      第五十八条 对航行国际航线的船舶开放的港口,由有关省、自治区、直辖市人民政府按照国家有关规定商国务院有关部门和有关军事机关同意后,报国务院批准。

      第五十九条 渔业港口的管理工作由县级以上人民政府渔业行政主管部门负责。具体管理办法由国务院规定。
      前款所称渔业港口,是指专门为渔业生产服务、供渔业船舶停泊、避风、装卸渔获物、补充渔需物资的人工港口或者自然港湾,包括综合性港口中渔业专用的码头、渔业专用的水域和渔船专用的锚地。

      第六十条 军事港口的建设和管理办法由国务院、中央军事委员会规定。

      第六十一条 本法自2004年1月1日起施行。

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