<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 中华人民共和国货物进出口管理条例
    中华人民共和国货物进出口管理条例   类型:外贸


    (2001年12月10日国务院发布,2002年1月1日施行)


    第一章总则  

      第一条为了规范货物进出口管理,维护货物进出口秩序,促进对外贸易健康发展,根据《中华人民共和国对外贸易法》(以下简称对外贸易法)的有关规定,制定本条例。
      第二条从事将货物进口到中华人民共和国关境内或者将货物出口到中华人民共和国关境外的贸易活动,应当遵守本条例。
      第三条国家对货物进出口实行统一的管理制度。
      第四条国家准许货物的自由进出口,依法维护公平、有序的货物进出口贸易。
      除法律、行政法规明确禁止或者限制进出口的外,任何单位和个人均不得对货物进出口设置、维持禁止或者限制措施。
      第五条中华人民共和国在货物进出口贸易方面根据所缔结或者参加的国际条约、协定,给予其他缔约方、参加方最惠国待遇、国民待遇,或者根据互惠、对等原则给予对方最惠国待遇、国民待遇。
      第六条任何国家或者地区在货物进出口贸易方面对中华人民共和国采取歧视性的禁止、限制或者其他类似措施的,中华人民共和国可以根据实际情况对该国家或者地区采取相应的措施。
      第七条国务院对外经济贸易主管部门(以下简称国务院外经贸主管部门)依照对外贸易法和本条例的规定,主管全国货物进出口贸易工作。
      国务院有关部门按照国务院规定的职责,依照本条例的规定负责货物进出口贸易管理的有关工作。  

      第二章货物进口管理  

      第一节禁止进口的货物

      第八条有对外贸易法第十七条规定情形之一的货物,禁止进口。其他法律、行政法规规定禁止进口的,依照其规定。
      禁止进口的货物目录由国务院外经贸主管部门会同国务院有关部门制定、调整并公布。
      第九条属于禁止进口的货物,不得进口。

      第二节限制进口的货物

      第十条有对外贸易法第十六条第(一)、(四)、(五)、(六)、(七)项规定情形之一的货物,限制进口。其他法律、行政法规规定限制进口的,依照其规定。
      限制进口的货物目录由国务院外经贸主管部门会同国务院有关部门制定、调整并公布。
      限制进口的货物目录,应当至少在实施前21天公布;在紧急情况下,应当不迟于实施之日公布。
      第十一条国家规定有数量限制的限制进口货物,实行配额管理;其他限制进口货物,实行许可证管理。
      实行关税配额管理的进口货物,依照本章第四节的规定执行。
      第十二条实行配额管理的限制进口货物,由国务院外经贸主管部门和国务院有关经济管理部门(以下统称进口配额管理部门)按照国务院规定的职责划分进行管理。
      第十三条对实行配额管理的限制进口货物,进口配额管理部门应当在每年7月31日前公布下一年度进口配额总量。
      配额申请人应当在每年8月1日至8月31日向进口配额管理部门提出下一年度进口配额的申请。
      进口配额管理部门应当在每年10月31日前将下一年度的配额分配给配额申请人。
      进口配额管理部门可以根据需要对年度配额总量进行调整,并在实施前21天予以公布。
      第十四条配额可以按照对所有申请统一办理的方式分配。
      第十五条按照对所有申请统一办理的方式分配配额的,进口配额管理部门应当自规定的申请期限截止之日起60天内作出是否发放配额的决定。
      第十六条进口配额管理部门分配配额时,应当考虑下列因素:
      (一)申请人的进口实绩;
      (二)以往分配的配额是否得到充分使用;
      (三)申请人的生产能力、经营规模、销售状况;
      (四)新的进口经营者的申请情况;
      (五)申请配额的数量情况;
      (六)需要考虑的其他因素。
      第十七条进口经营者凭进口配额管理部门发放的配额证明,向海关办理报关验放手续。
      国务院有关经济管理部门应当及时将年度配额总量、分配方案和配额证明实际发放的情况向国务院外经贸主管部门备案。
      第十八条配额持有者未使用完其持有的年度配额的,应当在当年9月1日前将未使用的配额交还进口配额管理部门;未按期交还并且在当年年底前未使用完的,进口配额管理部门可以在下一年度对其扣减相应的配额。
      第十九条实行许可证管理的限制进口货物,进口经营者应当向国务院外经贸主管部门或者国务院有关部门(以下统称进口许可证管理部门)提出申请。进口许可证管理部门应当自收到申请之日起30天内决定是否许可。
      进口经营者凭进口许可证管理部门发放的进口许可证,向海关办理报关验放手续。
      前款所称进口许可证,包括法律、行政法规规定的各种具有许可进口性质的证明、文件。
      第二十条进口配额管理部门和进口许可证管理部门应当根据本条例的规定制定具体管理办法,对申请人的资格、受理申请的部门、审查的原则和程序等事项作出明确规定并在实施前予以公布。
      受理申请的部门一般为一个部门。
      进口配额管理部门和进口许可证管理部门要求申请人提交的文件,应当限于为保证实施管理所必需的文件和资料,不得仅因细微的、非实质性的错讹拒绝接受申请。

      第三节自由进口的货物

      第二十一条进口属于自由进口的货物,不受限制。
      第二十二条基于监测货物进口情况的需要,国务院外经贸主管部门和国务院有关经济管理部门可以按照国务院规定的职责划分,对部分属于自由进口的货物实行自动进口许可管理。
      实行自动进口许可管理的货物目录,应当至少在实施前21天公布。
      第二十三条进口属于自动进口许可管理的货物,均应当给予许可。
      第二十四条进口属于自动进口许可管理的货物,进口经营者应当在办理海关报关手续前,向国务院外经贸主管部门或者国务院有关经济管理部门提交自动进口许可申请。
      国务院外经贸主管部门或者国务院有关经济管理部门应当在收到申请后,立即发放自动进口许可证明;在特殊情况下,最长不得超过10天。
      进口经营者凭国务院外经贸主管部门或者国务院有关经济管理部门发放的自动进口许可证明,向海关办理报关验放手续。

      第四节关税配额管理的货物

      第二十五条实行关税配额管理的进口货物目录,由国务院外经贸主管部门会同国务院有关经济管理部门制定、调整并公布。
      第二十六条属于关税配额内进口的货物,按照配额内税率缴纳关税;属于关税配额外进口的货物,按照配额外税率缴纳关税。
      第二十七条进口配额管理部门应当在每年9月15日至10月14日公布下一年度的关税配额总量。
      配额申请人应当在每年10月15日至10月30日向进口配额管理部门提出关税配额的申请。
      第二十八条关税配额可以按照对所有申请统一办理的方式分配。
      第二十九条按照对所有申请统一办理的方式分配关税配额的,进口配额管理部门应当在每年12月31日前作出是否发放配额的决定。
      第三十条进口经营者凭进口配额管理部门发放的关税配额证明,向海关办理关税配额内货物的报关验放手续。
      国务院有关经济管理部门应当及时将年度关税配额总量、分配方案和关税配额证明实际发放的情况向国务院外经贸主管部门备案。
      第三十一条关税配额持有者未使用完其持有的年度配额的,应当在当年9月15日前将未使用的配额交还进口配额管理部门;未按期交还并且在当年年底前未使用完的,进口配额管理部门可以在下一年度对其扣减相应的配额。
      第三十二条进口配额管理部门应当根据本条例的规定制定有关关税配额的具体管理办法,对申请人的资格、受理申请的部门、审查的原则和程序等事项作出明确规定并在实施前予以公布。
      受理申请的部门一般为一个部门。
      进口配额管理部门要求关税配额申请人提交的文件,应当限于为保证实施关税配额管理所必需的文件和资料,不得仅因细微的、非实质性的错讹拒绝接受关税配额申请。

    第三章货物出口管理  

      第一节禁止出口的货物

      第三十三条有对外贸易法第十七条规定情形之一的货物,禁止出口。其他法律、行政法规规定禁止出口的,依照其规定。
      禁止出口的货物目录由国务院外经贸主管部门会同国务院有关部门制定、调整并公布。
      第三十四条属于禁止出口的货物,不得出口。

      第二节限制出口的货物

      第三十五条有对外贸易法第十六条第(一)、(二)、(三)、(七)项规定情形之一的货物,限制出口。其他法律、行政法规规定限制出口的,依照其规定。
      限制出口的货物目录由国务院外经贸主管部门会同国务院有关部门制定、调整并公布。
      限制出口的货物目录,应当至少在实施前21天公布;在紧急情况下,应当不迟于实施之日公布。
      第三十六条国家规定有数量限制的限制出口货物,实行配额管理;其他限制出口货物,实行许可证管理。
      第三十七条实行配额管理的限制出口货物,由国务院外经贸主管部门和国务院有关经济管理部门(以下统称出口配额管理部门)按照国务院规定的职责划分进行管理。
      第三十八条对实行配额管理的限制出口货物,出口配额管理部门应当在每年10月31日前公布下一年度出口配额总量。
      配额申请人应当在每年11月1日至11月15日向出口配额管理部门提出下一年度出口配额的申请。
      出口配额管理部门应当在每年12月15日前将下一年度的配额分配给配额申请人。
      第三十九条配额可以通过直接分配的方式分配,也可以通过招标等方式分配。
      第四十条出口配额管理部门应当自收到申请之日起30天内并不晚于当年12月15日作出是否发放配额的决定。
      第四十一条出口经营者凭出口配额管理部门发放的配额证明,向海关办理报关验放手续。
      国务院有关经济管理部门应当及时将年度配额总量、分配方案和配额证明实际发放的情况向国务院外经贸主管部门备案。
      第四十二条配额持有者未使用完其持有的年度配额的,应当在当年10月31日前将未使用的配额交还出口配额管理部门;未按期交还并且在当年年底前未使用完的,出口配额管理部门可以在下一年度对其扣减相应的配额。
      第四十三条实行许可证管理的限制出口货物,出口经营者应当向国务院外经贸主管部门或者国务院有关部门(以下统称出口许可证管理部门)提出申请,出口许可证管理部门应当自收到申请之日起30天内决定是否许可。
      出口经营者凭出口许可证管理部门发放的出口许可证,向海关办理报关验放手续。
      前款所称出口许可证,包括法律、行政法规规定的各种具有许可出口性质的证明、文件。
      第四十四条出口配额管理部门和出口许可证管理部门应当根据本条例的规定制定具体管理办法,对申请人的资格、受理申请的部门、审查的原则和程序等事项作出明确规定并在实施前予以公布。
      受理申请的部门一般为一个部门。
      出口配额管理部门和出口许可证管理部门要求申请人提交的文件,应当限于为保证实施管理所必需的文件和资料,不得仅因细微的、非实质性的错讹拒绝接受申请。    第四章国营贸易和指定经营  
      第四十五条国家可以对部分货物的进出口实行国营贸易管理。
      实行国营贸易管理的进出口货物目录由国务院外经贸主管部门会同国务院有关经济管理部门制定、调整并公布。
      第四十六条国务院外经贸主管部门和国务院有关经济管理部门按照国务院规定的职责划分确定国营贸易企业名录并予以公布。
      第四十七条实行国营贸易管理的货物,国家允许非国营贸易企业从事部分数量的进出口。
      第四十八条国营贸易企业应当每半年向国务院外经贸主管部门提供实行国营贸易管理的货物的购买价格、销售价格等有关信息。
      第四十九条国务院外经贸主管部门基于维护进出口经营秩序的需要,可以在一定期限内对部分货物实行指定经营管理。
      实行指定经营管理的进出口货物目录由国务院外经贸主管部门制定、调整并公布。
      第五十条确定指定经营企业的具体标准和程序,由国务院外经贸主管部门制定并在实施前公布。
      指定经营企业名录由国务院外经贸主管部门公布。
      第五十一条除本条例第四十七条规定的情形外,未列入国营贸易企业名录和指定经营企业名录的企业或者其他组织,不得从事实行国营贸易管理、指定经营管理的货物的进出口贸易。
      第五十二条国营贸易企业和指定经营企业应当根据正常的商业条件从事经营活动,不得以非商业因素选择供应商,不得以非商业因素拒绝其他企业或者组织的委托。    第五章进出口监测和临时措施  
      第五十三条国务院外经贸主管部门负责对货物进出口情况进行监测、评估,并定期向国务院报告货物进出口情况,提出建议。
      第五十四条国家为维护国际收支平衡,包括国际收支发生严重失衡或者受到严重失衡威胁时,或者为维持与实施经济发展计划相适应的外汇储备水平,可以对进口货物的价值或者数量采取临时限制措施。
      第五十五条国家为建立或者加快建立国内特定产业,在采取现有措施无法实现的情况下,可以采取限制或者禁止进口的临时措施。
      第五十六条国家为执行下列一项或者数项措施,必要时可以对任何形式的农产品水产品采取限制进口的临时措施:
      (一)对相同产品或者直接竞争产品的国内生产或者销售采取限制措施;
      (二)通过补贴消费的形式,消除国内过剩的相同产品或者直接竞争产品;
      (三)对完全或者主要依靠该进口农产品水产品形成的动物产品采取限产措施。
      第五十七条有下列情形之一的,国务院外经贸主管部门可以对特定货物的出口采取限制或者禁止的临时措施:
      (一)发生严重自然灾害等异常情况,需要限制或者禁止出口的;
      (二)出口经营秩序严重混乱,需要限制出口的;
      (三)依照对外贸易法第十六条、第十七条的规定,需要限制或者禁止出口的。
      第五十八条对进出口货物采取限制或者禁止的临时措施的,国务院外经贸主管部门应当在实施前予以公告。

    第六章对外贸易促进  

      第五十九条国家采取出口信用保险、出口信贷、出口退税、设立外贸发展基金等措施,促进对外贸易发展。
      第六十条国家采取有效措施,促进企业的技术创新和技术进步,提高企业的国际竞争能力。
      第六十一条国家通过提供信息咨询服务,帮助企业开拓国际市场。
      第六十二条货物进出口经营者可以依法成立和参加进出口商会,实行行业自律和协调。
      第六十三条国家鼓励企业积极应对国外歧视性反倾销、反补贴、保障措施及其他限制措施,维护企业的正当贸易权利。  

      第七章法律责任  

      第六十四条进口或者出口属于禁止进出口的货物,或者未经批准、许可擅自进口或者出口属于限制进出口的货物的,依照刑法关于走私罪的规定,依法追究刑事责任;尚不够刑事处罚的,依照海关法的有关规定处罚;国务院外经贸主管部门并可以撤销其对外贸易经营许可。
      第六十五条擅自超出批准、许可的范围进口或者出口属于限制进出口的货物的,依照刑法关于走私罪或者非法经营罪的规定,依法追究刑事责任;尚不够刑事处罚的,依照海关法的有关规定处罚;国务院外经贸主管部门并可以暂停直至撤销其对外贸易经营许可。
      第六十六条伪造、变造或者买卖货物进出口配额证明、批准文件、许可证或者自动进口许可证明的,依照刑法关于非法经营罪或者伪造、变造、买卖国家机关公文、证件、印章罪的规定,依法追究刑事责任;尚不够刑事处罚的,依照海关法的有关规定处罚;国务院外经贸主管部门并可以撤销其对外贸易经营许可。
      第六十七条进出口经营者以欺骗或者其他不正当手段获取货物进出口配额、批准文件、许可证或者自动进口许可证明的,依法收缴其货物进出口配额、批准文件、许可证或者自动进口许可证明,国务院外经贸主管部门可以暂停直至撤销其对外贸易经营许可。
      第六十八条违反本条例第五十一条规定,擅自从事实行国营贸易管理或者指定经营管理的货物进出口贸易,扰乱市场秩序,情节严重的,依照刑法关于非法经营罪的规定,依法追究刑事责任;尚不够刑事处罚的,由工商行政管理机关依法给予行政处罚;国务院外经贸主管部门并可以暂停直至撤销其对外贸易经营许可。
      第六十九条国营贸易企业或者指定经营企业违反本条例第四十八条、第五十二条规定的,由国务院外经贸主管部门予以警告;情节严重的,可以暂停直至取消其国营贸易企业或者指定经营企业资格。
      第七十条货物进出口管理工作人员在履行货物进出口管理职责中,滥用职权、玩忽职守或者利用职务上的便利收受、索取他人财物的,依照刑法关于滥用职权罪、玩忽职守罪、受贿罪或者其他罪的规定,依法追究刑事责任;尚不够刑事处罚的,依法给予行政处分。  

      第八章附则  

      第七十一条对本条例规定的行政机关发放配额、关税配额、许可证或者自动许可证明的决定不服的,对确定国营贸易企业或者指定经营企业资格的决定不服的,或者对行政处罚的决定不服的,可以依法申请行政复议,也可以依法向人民法院提起诉讼。
      第七十二条本条例的规定不妨碍依据法律、行政法规对进出口货物采取的关税、检验检疫、安全、环保、知识产权保护等措施。
      第七十三条出口核用品、核两用品、监控化学品、军品等出口管制货物的,依照有关行政法规的规定办理。
      第七十四条对进口货物需要采取反倾销措施、反补贴措施、保障措施的,依照对外贸易法和有关法律、行政法规的规定执行。
      第七十五条法律、行政法规对保税区、出口加工区等特殊经济区的货物进出口管理另有规定的,依照其规定。
      第七十六条国务院外经贸主管部门负责有关货物进出口贸易的双边或者多边磋商、谈判,并负责贸易争端解决的有关事宜。
      第七十七条本条例自2002年1月1日起施行。1984年1月10日国务院发布的《中华人民共和国进口货物许可制度暂行条例》,1992年12月21日国务院批准、1992年12月29日对外经济贸易部发布的《出口商品管理暂行办法》,1993年9月22日国务院批准、1993年10月7日国家经济贸易委员会、对外贸易经济合作部发布的《机电产品进口管理暂行办法》,1993年12月22日国务院批准、1993年12月29日国家计划委员会、对外贸易经济合作部发布的《一般商品进口配额管理暂行办法》,1994年6月13日国务院批准、1994年7月19日对外贸易经济合作部、国家计划委员会发布的《进口商品经营管理暂行办法》,同时废止。

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