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

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

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

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

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

", "

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

", "

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

", "

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

", "

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


    (1994年5月12日八届全国人大常委会第七次会议通过,2004年7月1日修订施行)


    第一章 总 则

    第一条 为了发展对外贸易,维护对外贸易秩序,促进社会主义市场经济的健康发展,制定本法。

    第二条 本法所称对外贸易,是指货物进出口、技术进出口和国际服务贸易。

    第三条 国务院对外经济贸易主管部门依照本法主管全国对外贸易工作。

    第四条 国家实行统一的对外贸易制度,依法维护公平的、自由的对外贸易秩序。

    国家鼓励发展对外贸易,发挥地方的积极性,保障对外贸易经营者的经营自主权。

    第五条 中华人民共和国根据平等互利的原则,促进和发展同其他国家和地区的贸易发展。

    第六条 中华人民共和国在对外贸易方面根据所缔结或者参加的国际条约、协定,给予其他缔约方、参加方或者根据互惠、对等原则给予对方最惠国待遇、国民待遇。

    第七条 任何国家或者地区在贸易方面对中华人民共和国采取歧视性的禁止、限制或者其他类似措施的,中华人民共和国可以根据实际情况对该国家或者该地区采取相应的措施。

    第二章 对外贸易经营者

    第八条 本法所称对外贸易经营者,是指依照本法规定从事对外贸易经营活动的法人和其他组织。

    第九条 从事货物进出口与技术进出口的对外贸易经营,必须具备下列条件,经国务院对外经济贸易主管部门许可:

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

    (二)有明确的对外贸易经营范围;

    (三)具有其经营的对外贸易业务所必需的场所、资金和专业人员;

    (四)委托他人办理进出口业务达到规定的实绩或者具有必需的进出口货源;

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

    前款规定的实施办法由国务院规定。

    外商投资企业依照有关外商投资企业的法律、行政法规的规定,进口企业自用的非生产物品,进口企业生产所需的设备,原材料和其他物资,出口其生产的产品,免予办理第一款规定的许可。

    第十条 国际服务贸易企业和组织的设立及其经营活动,应当遵守本法和其他有关法律、行政法规的规定。

    第十一条 对外贸易经营者依法自主经营、自负盈亏。

    第十二条 对外贸易经营者从事对外贸易经营活动,应当信守合同,保证商品质量,完善售后服务。

    第十三条 没有对外贸易经营许可的组织或者个人,可以在国内委托对外贸易经营者在其经营范围内代为办理其对外贸易业务。

    接受招手的对外贸易经营者应当向委托方如实提供市场行情、商品价格、客户情况等有关的经营信息。委托方与被委托方应当签订委托合同,双方的权利义务由合同约定。

    第十四条 对外贸易经营者应当按照国务院对外经济贸易主管部门的规定,向有关部门提交与其对外贸易经营活动有关的文件及资料。有关部门应当为提供者保守商业秘密。

    第三章 货物进出口与技术进出口

    第十五条 国家用准许货物与技术的自由进出口。但是,法律、行政法规另有规定的除外。

    第十六条 属于下列情形之一的货物、技术,国家可以限制进口或者出口:

    (一)为维护国家安全或者社会公共利益,需要限制进口或者出口的;

    (二)国内供应短缺或者为有效保护可能用竭的国内资源,需要限制出口的;

    (三)输往国家或者地区的市场容量有限,需要限制出口的;

    (四)为建立或者加快建立国内特定产业,需要限制进口的;

    (五)对任何形式的农业、牧业、渔业产品有必要限制进口的;

    (六)为保障国家国际金融地位和国际收支平衡,需要限制进口的;

    (七)根据中华人民共和国所缔结或者参加的国际条约、协定的规定,需要限制进口或者出口的。

    第十七条 属于下列情形之一的货物、技术,国家禁止进口或者出口:

    (一)危害国家安全或者社会公共利益的;

    (二)为保护人的生命或者健康,必须禁止进口或者出口的;

    (三)破坏生态环境的;

    (四)根据中华人民共和国所缔结或者参加的国际条约、协定的规定,需要禁止进口或者出口的。

    第十八条 国务院对外经济贸易主管部门应当会同国务院有关部门,依照本法第十六条、第十七条的规定,制定、调整并公布限制或者禁止进出口的货物、技术目录。

    国务院对外经济贸易主管部门或者由其会同国务院有关部门,经国务院批准,可以在本法第十六条、第十七条规定的范围内,临时决定限制或者禁止前款规定目录以外的特定货物、技术的进口或者出口。

    第十九条 对限制进口或者出口的货物,实行配额或者许可证管理;对限制进口或者出口的技术,实行许可证管理。

    实行配额或者许可证管理的货物、技术,必须依照国务院规定经国务院对外经济贸易主管部门或者由其会同国务院有关部门许可,方可进口或者出口。

    第二十条 进出口货物配额,由国务院对外经济贸易主管部门或者国务院有关部门在各自的职责范围内,根据申请者的进出口实绩、能力等条件,按照效益、公正、公开和公平竞争的原则进行分配。

    第二十一条 对文物、野生动植物及其产品等货物、物品,其他法律、行政法规有禁止进出口或者限制进出口规定的,依照有关法律、行政法规的规定办理。

    第四章 国际服务贸易

    第二十二条 国家促进国际服务贸易的逐步发展。

    第二十三条 中华人民共和国在国际服务贸易方面根据所缔结或者参加的国际条约、协定中所作的承诺,给予其他缔约方、参加方市场准入国民待遇。

    第二十四条 国家基于下列原因之一,可以限制国家服务贸易:

    (一)为维护国家安全或者社会公共利益;

    (二)为保护生态环境;

    (三)为建立或者加快建立国内特定的服务行业;

    (四)为保障国家外汇收支平衡;

    (五)法律、行政法规规定的其他限制。

    第二十五条 属于下列情形之一的国际服务贸易,国家予以禁止:

    (一)危害国家安全或者社会公共利益的;

    (二)违反中华人民共和国承担的国际义务的;

    (三)法律、行政法规规定禁止的。

    第二十六条 国务院对外经济贸易主管部门和国务院有关部门,依照本法和其他有关法律、行政法规,对国际服务贸易进行管理。

    第五章 对外贸易秩序

    第二十七条 对外贸易经营者在对外贸易经营活动中,应当依法经营,公平竞争,不得有下列行为:

    (一)伪造、变造或者买卖进出口原产地证明、进出口许可证;

    (二)侵害中华人民共和国法律保护的知识产权;

    (三)以不正当竞争手段排挤竞争对手;

    (四)骗取国家的出口退税;

    (五)违反法律、行政法规规定的其他行为。

    第二十八条 对外贸易经营者在对外贸易经营活动中,应当依照国家有关规定结汇、用汇。

    第二十九条 因进口产品数量增加,使国内相同产品或者与其直接竞争的产品的生产者受到严重损害或者严惩损害的威胁时,国家可以采取必要的保障措施,消除或者减轻这种损害或者损害的威胁。

    第三十条 产品以低于正常价值的方式进口,并由此对国内已建立的相关产业造成实质损害或者产生实质损害的威胁,或者对国内建立相关产业造成实质阻碍时,国家可以采取必要措施,消除或者减轻这种损害或者损害的威胁或者阻碍。

    第三十一条 进口的产品直接或者间接地接受出口国给予的任何形式的补贴,并由此对国内已建立的相关产业造成实质损害或者产生实质损害的威胁,或者对国内建立相关产业造成实质阻碍时,国家可以采取必要措施,消除减轻这种损害或者损害的威胁或者阻碍。

    第三十二条 发生第二十九条、第三十条、第三十一条规定的情况时,国务院规定的部门或者机构应当依照法律、行政法规的规定进行调查,作出处理。

    第六章 对外贸易促进

    第三十三条 国家根据对外贸易发展的需要,建立和完善为对外贸易服务的金融机构,设立对外贸易发展基金、风险基金。

    第三十四条 国家采取进出口信贷、出口退税及其他对外贸易促进措施,发展对外贸易。

    第三十五条 对外贸易经营者可以依法成立和参加进出口商会。

    进出口商会应当遵守法律、行政法规,依照章程对其会员的对外贸易经营活动进行协调指导,提供咨询服务,向政府有关部门反映会员有关对外贸易促进方面的建议,并积极开展对外贸易促进活动。

    第三十六条 中国国际贸易促进组织依照章程开展对外联系,举办展览,提供信息、咨询服务和其他对外贸易促进活动。

    第三十七条 国家扶持和促进民族自治地方和经济不发达地区发展对外贸易。

    第七章 法律责任

    第三十八条 走私禁止进出口或者限制进出口的货物,构成犯罪的,依照惩治走私罪的补充规定追究刑事责任;不构成犯罪的,依照海关法的规定处罚。国务院对外经济贸易主管部门并可以撤销其对外贸易经营许可。

    第三十九条 伪造、变造进出口原产地证明、进出口许可证,依照刑法第一百六十七条的规定追究刑事责任;买卖进出口原产地证明、进出口许可证或者买卖伪造、变造的进出口原产地证明、进出口许可证,比照刑法第一百六十七条的规定追究刑事责任。

    单位犯前款罪的,判处罚金,并对单位直接负责的主管人员和其他直接责任人员依照或者比照刑法第一百六十七条的规定追究刑事责任。国务院对外经济贸易主管部门并可以撤销其对外贸易经营许可。

    明知是伪造、变造的进出口许可证而用以进口或者出口货物,依照本法第三十八条的规定处罚。

    第四十条 违反本法规定,进口或者出口禁止进出口或者限制进出口的技术,构成犯罪的,比照惩治走私罪的补充规定追究刑事责任。

    第四十一条 国家对外贸易工作人员玩忽职守、徇私舞弊或者滥用职权,构成犯罪的,贪污追究刑事责任;不构成犯罪的,给予行政处分。

    国家对外贸易工作人员利用职务上的便利,索取他人财物,或者非法收受他人财物为他人谋取利益,构成犯罪的,依照惩治贪污罪贿赂罪的补充规定追究刑事责任;不构成犯罪的,给予行政处分。

    第八章 附 则

    第四十二条 国家对边境城镇写接壤国家边境城镇之间的贸易以及边民互市贸易,采取灵活措施,给予优惠和便利。具体办法由国务院规定。

    第四十三条 中华人民共和国的单独关税区不适用本法。

    第四十四条 本法自1994年7月1日起施行。

    中华人民共和国对外贸易法

    1994年5月12日第八届全国人民代表大会常务委员会第七次会议通过

    第一章 总 则

    第一条 为了发展对外贸易,维护对外贸易秩序,促进社会主义市场经济的健康发展,制定本法。

    第二条 本法所称对外贸易,是指货物进出口、技术进出口和国际服务贸易。

    第三条 国务院对外经济贸易主管部门依照本法主管全国对外贸易工作。

    第四条 国家实行统一的对外贸易制度,依法维护公平的、自由的对外贸易秩序。

    国家鼓励发展对外贸易,发挥地方的积极性,保障对外贸易经营者的经营自主权。

    第五条 中华人民共和国根据平等互利的原则,促进和发展同其他国家和地区的贸易发展。

    第六条 中华人民共和国在对外贸易方面根据所缔结或者参加的国际条约、协定,给予其他缔约方、参加方或者根据互惠、对等原则给予对方最惠国待遇、国民待遇。

    第七条 任何国家或者地区在贸易方面对中华人民共和国采取歧视性的禁止、限制或者其他类似措施的,中华人民共和国可以根据实际情况对该国家或者该地区采取相应的措施。

    第二章 对外贸易经营者

    第八条 本法所称对外贸易经营者,是指依照本法规定从事对外贸易经营活动的法人和其他组织。

    第九条 从事货物进出口与技术进出口的对外贸易经营,必须具备下列条件,经国务院对外经济贸易主管部门许可:

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

    (二)有明确的对外贸易经营范围;

    (三)具有其经营的对外贸易业务所必需的场所、资金和专业人员;

    (四)委托他人办理进出口业务达到规定的实绩或者具有必需的进出口货源;

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

    前款规定的实施办法由国务院规定。

    外商投资企业依照有关外商投资企业的法律、行政法规的规定,进口企业自用的非生产物品,进口企业生产所需的设备,原材料和其他物资,出口其生产的产品,免予办理第一款规定的许可。

    第十条 国际服务贸易企业和组织的设立及其经营活动,应当遵守本法和其他有关法律、行政法规的规定。

    第十一条 对外贸易经营者依法自主经营、自负盈亏。

    第十二条 对外贸易经营者从事对外贸易经营活动,应当信守合同,保证商品质量,完善售后服务。

    第十三条 没有对外贸易经营许可的组织或者个人,可以在国内委托对外贸易经营者在其经营范围内代为办理其对外贸易业务。

    接受招手的对外贸易经营者应当向委托方如实提供市场行情、商品价格、客户情况等有关的经营信息。委托方与被委托方应当签订委托合同,双方的权利义务由合同约定。

    第十四条 对外贸易经营者应当按照国务院对外经济贸易主管部门的规定,向有关部门提交与其对外贸易经营活动有关的文件及资料。有关部门应当为提供者保守商业秘密。

    第三章 货物进出口与技术进出口

    第十五条 国家用准许货物与技术的自由进出口。但是,法律、行政法规另有规定的除外。

    第十六条 属于下列情形之一的货物、技术,国家可以限制进口或者出口:

    (一)为维护国家安全或者社会公共利益,需要限制进口或者出口的;

    (二)国内供应短缺或者为有效保护可能用竭的国内资源,需要限制出口的;

    (三)输往国家或者地区的市场容量有限,需要限制出口的;

    (四)为建立或者加快建立国内特定产业,需要限制进口的;

    (五)对任何形式的农业、牧业、渔业产品有必要限制进口的;

    (六)为保障国家国际金融地位和国际收支平衡,需要限制进口的;

    (七)根据中华人民共和国所缔结或者参加的国际条约、协定的规定,需要限制进口或者出口的。

    第十七条 属于下列情形之一的货物、技术,国家禁止进口或者出口:

    (一)危害国家安全或者社会公共利益的;

    (二)为保护人的生命或者健康,必须禁止进口或者出口的;

    (三)破坏生态环境的;

    (四)根据中华人民共和国所缔结或者参加的国际条约、协定的规定,需要禁止进口或者出口的。

    第十八条 国务院对外经济贸易主管部门应当会同国务院有关部门,依照本法第十六条、第十七条的规定,制定、调整并公布限制或者禁止进出口的货物、技术目录。

    国务院对外经济贸易主管部门或者由其会同国务院有关部门,经国务院批准,可以在本法第十六条、第十七条规定的范围内,临时决定限制或者禁止前款规定目录以外的特定货物、技术的进口或者出口。

    第十九条 对限制进口或者出口的货物,实行配额或者许可证管理;对限制进口或者出口的技术,实行许可证管理。

    实行配额或者许可证管理的货物、技术,必须依照国务院规定经国务院对外经济贸易主管部门或者由其会同国务院有关部门许可,方可进口或者出口。

    第二十条 进出口货物配额,由国务院对外经济贸易主管部门或者国务院有关部门在各自的职责范围内,根据申请者的进出口实绩、能力等条件,按照效益、公正、公开和公平竞争的原则进行分配。

    第二十一条 对文物、野生动植物及其产品等货物、物品,其他法律、行政法规有禁止进出口或者限制进出口规定的,依照有关法律、行政法规的规定办理。

    第四章 国际服务贸易

    第二十二条 国家促进国际服务贸易的逐步发展。

    第二十三条 中华人民共和国在国际服务贸易方面根据所缔结或者参加的国际条约、协定中所作的承诺,给予其他缔约方、参加方市场准入国民待遇。

    第二十四条 国家基于下列原因之一,可以限制国家服务贸易:

    (一)为维护国家安全或者社会公共利益;

    (二)为保护生态环境;

    (三)为建立或者加快建立国内特定的服务行业;

    (四)为保障国家外汇收支平衡;

    (五)法律、行政法规规定的其他限制。

    第二十五条 属于下列情形之一的国际服务贸易,国家予以禁止:

    (一)危害国家安全或者社会公共利益的;

    (二)违反中华人民共和国承担的国际义务的;

    (三)法律、行政法规规定禁止的。

    第二十六条 国务院对外经济贸易主管部门和国务院有关部门,依照本法和其他有关法律、行政法规,对国际服务贸易进行管理。

    第五章 对外贸易秩序

    第二十七条 对外贸易经营者在对外贸易经营活动中,应当依法经营,公平竞争,不得有下列行为:

    (一)伪造、变造或者买卖进出口原产地证明、进出口许可证;

    (二)侵害中华人民共和国法律保护的知识产权;

    (三)以不正当竞争手段排挤竞争对手;

    (四)骗取国家的出口退税;

    (五)违反法律、行政法规规定的其他行为。

    第二十八条 对外贸易经营者在对外贸易经营活动中,应当依照国家有关规定结汇、用汇。

    第二十九条 因进口产品数量增加,使国内相同产品或者与其直接竞争的产品的生产者受到严重损害或者严惩损害的威胁时,国家可以采取必要的保障措施,消除或者减轻这种损害或者损害的威胁。

    第三十条 产品以低于正常价值的方式进口,并由此对国内已建立的相关产业造成实质损害或者产生实质损害的威胁,或者对国内建立相关产业造成实质阻碍时,国家可以采取必要措施,消除或者减轻这种损害或者损害的威胁或者阻碍。

    第三十一条 进口的产品直接或者间接地接受出口国给予的任何形式的补贴,并由此对国内已建立的相关产业造成实质损害或者产生实质损害的威胁,或者对国内建立相关产业造成实质阻碍时,国家可以采取必要措施,消除减轻这种损害或者损害的威胁或者阻碍。

    第三十二条 发生第二十九条、第三十条、第三十一条规定的情况时,国务院规定的部门或者机构应当依照法律、行政法规的规定进行调查,作出处理。

    第六章 对外贸易促进

    第三十三条 国家根据对外贸易发展的需要,建立和完善为对外贸易服务的金融机构,设立对外贸易发展基金、风险基金。

    第三十四条 国家采取进出口信贷、出口退税及其他对外贸易促进措施,发展对外贸易。

    第三十五条 对外贸易经营者可以依法成立和参加进出口商会。

    进出口商会应当遵守法律、行政法规,依照章程对其会员的对外贸易经营活动进行协调指导,提供咨询服务,向政府有关部门反映会员有关对外贸易促进方面的建议,并积极开展对外贸易促进活动。

    第三十六条 中国国际贸易促进组织依照章程开展对外联系,举办展览,提供信息、咨询服务和其他对外贸易促进活动。

    第三十七条 国家扶持和促进民族自治地方和经济不发达地区发展对外贸易。

    第七章 法律责任

    第三十八条 走私禁止进出口或者限制进出口的货物,构成犯罪的,依照惩治走私罪的补充规定追究刑事责任;不构成犯罪的,依照海关法的规定处罚。国务院对外经济贸易主管部门并可以撤销其对外贸易经营许可。

    第三十九条 伪造、变造进出口原产地证明、进出口许可证,依照刑法第一百六十七条的规定追究刑事责任;买卖进出口原产地证明、进出口许可证或者买卖伪造、变造的进出口原产地证明、进出口许可证,比照刑法第一百六十七条的规定追究刑事责任。

    单位犯前款罪的,判处罚金,并对单位直接负责的主管人员和其他直接责任人员依照或者比照刑法第一百六十七条的规定追究刑事责任。国务院对外经济贸易主管部门并可以撤销其对外贸易经营许可。

    明知是伪造、变造的进出口许可证而用以进口或者出口货物,依照本法第三十八条的规定处罚。

    第四十条 违反本法规定,进口或者出口禁止进出口或者限制进出口的技术,构成犯罪的,比照惩治走私罪的补充规定追究刑事责任。

    第四十一条 国家对外贸易工作人员玩忽职守、徇私舞弊或者滥用职权,构成犯罪的,贪污追究刑事责任;不构成犯罪的,给予行政处分。

    国家对外贸易工作人员利用职务上的便利,索取他人财物,或者非法收受他人财物为他人谋取利益,构成犯罪的,依照惩治贪污罪贿赂罪的补充规定追究刑事责任;不构成犯罪的,给予行政处分。

    第八章 附 则

    第四十二条 国家对边境城镇写接壤国家边境城镇之间的贸易以及边民互市贸易,采取灵活措施,给予优惠和便利。具体办法由国务院规定。

    第四十三条 中华人民共和国的单独关税区不适用本法。

    第四十四条 本法自1994年7月1日起施行。

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