<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 中华人民共和国邮政法实施细则
    中华人民共和国邮政法实施细则   类型:交通运输、物流


    (1990年11月12日国务院发布 1990年11月12日实施)



    第一章 总 则

     第一条 根据《中华人民共和国邮政法》(以下简称《邮政法》)的规定,制定本实施细则。
     第二条 中华人民共和国邮电部(以下简称邮电部)是国务院邮政主管部门,管理全国邮政工作。
      各省、自治区、直辖市邮电管理局(以下简称邮电管理局)是地区邮政管理机构,管理该地区的邮政工作。
     第三条 市、县邮电局(含邮政局,下同)是全民所有制的经营邮政业务的公用企业(以下简称邮政企业),经邮电管理局授权,管理该地区的邮政工作。
      邮电支局、邮电所、邮政支局、邮政所是办理邮政业务的分支机构,(以下简称分支机构);邮亭、邮政报刊亭等是邮政企业的服务点。
      邮电代办所视同邮政企业所属的分支机构。
     第四条 未经邮政企业委托,任何单位或者个人不得经营信函、明信片或者其他具有信件性质的物品的寄递业务,但国务院另有规定的除外。
      信函是指以套封形式传递的缄封的信息的载体。其他具有信件性质的物品是指以符号、图象、音响等方式传递的信息的载体。具体内容由邮电部规定。
     第五条 邮政企业委托其他单位或者个人代办邮政业务时,应当协商一致,并签订代办合同。
     第六条 凡使用我国邮政业务的一切单位或者个人统称邮政用户(以下简称用户)。
     第七条 邮政企业应当为用户提供迅速、准确、安全、方便的邮政服务,保障用户使用邮政的合法权益。
      任何单位或者个人均负有保护通信自由、通信秘密和邮件安全的责任;任何单位或者个人不得利用邮政业务进行法律、法规和政策所禁止的活动。
      除因国家安全或者追查刑事犯罪需要,由公安机关、国家安全机关或者检察机关依法对通信进行检查外,邮件在运输、传递过程中,任何单位或者个人不得以任何理由检查、扣留。
     第八条 因国家安全或者追查刑事犯罪需要,公安机关、国家安全机关、检察机关检查、扣留邮件、冻结汇款、储蓄存款时,必须依法向相关县或者县级以上的邮政企业、邮电管理局出具相应的检查、扣留、冻结通知书,并开列邮件、汇款、储蓄存款的具体节目,办理检查、扣留、冻结手续后,由邮政企业指派专人负责拣出,逐件登记后办理交接手续;对于不需要继续检查、扣留、冻结或者查明与案件无关的邮件、汇款、储蓄存款,应当及时退还邮政企业。邮件、汇款、储蓄存款在检查、扣留、冻结期间造成丢失、损毁的,由相关的公安机关、国家安全机关、检察机关负责赔偿。
     第九条 人民法院、检察机关依法没收国内邮件、汇款、储蓄存款时,必须出具法律文书,向相关县或者县级以上邮政企业、邮电管理局办理手续。没收进出口国际邮递物品应当由海关作出决定,并办理手续。
     第十条 有关单位依照法律规定需要收集、调取证据、查阅邮政业务档案时,必须凭相关邮政企业所在地的公安机关、国家安全机关、检察机关、人民法院出具有书面证明,并开列邮件具体节目,向相关县或者县级以上的邮政企业、邮电管理局办理手续。
     第十一条 任何单位或者个人不得从事下列行为妨害邮政工作的正常进行:
      (一)损坏邮政设施;
      (二)在邮政企业及分支机构门前或者出入通道设摊、堆物,妨害用户用邮或者影响运邮车辆通行;
      (三)在办理邮政业务的场所无理取闹或者扰乱正常秩序;
      (四)阻碍邮政工作人员依法执行公务或者寻衅滋事;
      (五)拦截邮政运输工具、非法阻碍邮件运递或者强行登乘邮政运输工具;
      (六)非法检查或者截留邮件;
      (七)其他妨害邮政企业及分支机构或者邮政人员正常工作的行为。 

    第二章 邮政企业的设置和邮政设施

     第十二条 邮政企业及分支机构的设置标准,由邮电部规定;邮政企业的设置或者撤销,由邮电部批准;分支机构的设置或者撤销,由邮电管理局批准,报邮电部备案。
     第十三条 地方各级人民政府应当将邮政企业及分支机构的设置和邮政设施的建设纳入城乡建设规划。
     第十四条 建设城市新区、独立工矿区、住宅区或者旧城区成片改造,应当同时规划和设置与之配套的邮政企业及分支机构和邮政设施。
     第十五条 邮政企业依法设置邮亭、邮政报刊亭、邮筒、信箱或者流动服务时,有关单位或者个人应当提供方便。
     第十六条 接收邮件的信报箱是居民楼房的配套设施,设计单位应当将其纳入民用住宅建筑设计标准。
      居民楼房每一单元的地面层应当安装与住户房号相适应的信报箱或者在楼房集中处设置信报箱间(群),供住户接收邮件使用。
      信报箱由居民楼房的产权所有者或者管理单位负责维修、更换,也可以委托当地邮政企业或者其分支机构维修、更换,所需工料费由委托单位支付。
     第十七条 较大的车站、机场、港口、饭店,应当在方便旅客的地方提供办理邮政业务的场所;邮政企业应当提供邮政业务服务。
     第十八条 任何单位因建设需要,征用、拆迁邮政企业及分支机构或者邮政设施时,应当与当地邮政企业协商,在保证邮政通信正常进行的情况下,应当将邮政企业及分支机构、邮政设施迁至适宜的地方或者另建,的需费用由征用、拆迁单位承担。

    第三章 邮政业务和种类

     第十九条 邮政企业经营国内、国际邮件的寄递业务和邮件的特快专递业务。
      国内邮件是指在中华人民共和国领域内互寄的邮件,其中寄自或者寄往香港、澳门、台湾地区的邮件称港澳台地区邮件;国际邮件是指中华人民共和国与其他国家、地区之间互寄的邮件和其他国家、地区通过中国境内经转的邮件。
     第二十条 国内报刊发行业务是指报刊社委托邮政企业发行报纸、杂志的业务。
     第二十一条 报刊社委托邮政企业发行报刊时,应当根据报刊发行的范围向指定的邮政企业或者邮政报刊发行局,出具有关主管部门批准出版和领有报纸、期刊登记证的证明。邮政企业有接办发行能力的,应当与报刊社遵循平等互利、协商一致、等价有偿的原则,按照国家有关规定签订报刊发行合同。
     第二十二条 邮政储蓄、邮政汇兑业务是邮政企业为国家积聚资金、沟通经济往来所经办的金融业务,由邮电部统一管理,并按照国家有关规定,在金融业务上接受中国人民银行的指导。各相关银行应当为邮政企业办理的储蓄、汇兑业务提供便利。
     第二十三条 各项邮政业务的具体种类和邮件分类,由邮电部规定。

    第四章 邮政业务资费和邮资凭证

     第二十四条 邮政业务的基本资费是指邮政专营的国内平常信函、明信片的资费;非基本资费是指基本资费以外的邮政业务资费。
      邮政业务的基本资费由国务院物价主管部门制定,报国务院批准;非基本资费由邮电部规定。
     第二十五条 制定的调整邮政业务资费的依据是:
      (一)以保证邮政通信企业的成本费用和自我发展能力为原则,适应社会需要;
      (二)国内邮政业务资费,依据支出费用的变动相应调整;
      (三)国际邮政业务资费,依据“万国邮政联盟“的规定的国际、国内成本费用以及人民币汇率比价的变化作相应调整。
     第二十六条 邮资凭证是邮电部发行的,作为邮件纳费标志的有价证券,包括邮票,印在邮资信封、邮资明信片、邮资邮简上的邮票图案,邮资机打印的邮资符志。
     第二十七条 “万国邮政联盟”发行的国际回信券,可以根据国际统一规定,兑换成等于特定重量级别的特定类别资费的邮票,但是不得兑换现金。
     第二十八条 因工作需要,仿印邮票图案的,必须按照仿印邮票图案的有关规定,报经邮电部邮票主管部门或者有关邮电管理局审核、批准。
      印刷单位不得承印未经批准的仿印邮票图案和与邮票相似的印件。
     第二十九条 印制通信使用的信封必须符合国家标准,并由当地邮电管理局监制。
     第三十条 印制明信片必须符合邮电部规定的规格标准。
      县以上邮政企业,经邮电管理局批准,可以印制、发行带有“中国人民邮政”字样的明信片;其他单位印制明信片,由当地邮电管理局监制,但不得带有“中国人民邮政”字样。 

    第五章 邮件的寄递的损失赔偿

     第三十一条 义务兵从部队发出的平常信函,免费寄递,其他军人不得免费寄递信函。义务兵寄递平常信函的监督管理办法由邮电部会同中国人民解放军有关部门制定。
     第三十二条 用户交寄邮件应当符合邮电部规定的准寄内容、封装规格、书写格式,并正确书写邮政编码,其中,用户交寄信函使用的信封,必须符合国家标准;邮件封面和邮政业务单式上不得印(写)有或者粘贴与邮件无关的文字或者其他物品;邮资凭证正面不得涂抹、覆盖其他物品;不得使用伪造、仿印、剪割拼补、加工去污的邮资凭证。
     第三十三条 禁止寄递或者在邮件内夹带下列物品:
      (一)法律规定禁止流通或者寄递的物品;
      (二)反动报刊书籍、宣传品或者淫秽物品;
      (三)爆炸性、易燃性、腐蚀性、放射性、毒性等危险物品;
      (四)妨害公共卫生的物品;
      (五)容易腐烂的物品;
      (六)各种活的动物;
      (七)各种货币;
      (八)不适合邮寄条件的物品;
      (九)包装不妥,可能危害人身安全、污染或者损毁其他邮件、设备的物品。
      前款物品,符合邮电部特准交寄规定并确保安全的,可以收寄。
     第三十四条 国内限量寄递物品由邮电部会同国务院有关部门规定。
     第三十五条 对于违反禁寄、限寄规定寄递的物品,邮政企业或者分支机构应当根据其种类、性质、数量等分别作出下列处理:
      (一)不予寄递;
      (二)通知寄件人限期领回,逾期不领的就地处理;
      (三)移送相关部门依法处理;
      (四)造成危害人身安全或者污染 、损毁其他邮件 、设备的,由寄件人承担赔偿责任。
      按照前款(二)项、(三)项处理所需的费用,由寄件人承担。
     第三十六条 新建的企业、事业、居民住宅,应当由单位或者居民住宅的主管部门到当地邮政企业或者分支机构办理邮件投递登记手续;单位更改称、收件人变更地址,应当事先通知当地邮政企业或者分支机构,也可以办理邮件改寄新址手续。邮政企业应当公布登记地点和电话号码。
      具备下列条件者,有关邮政企业或者分支机构应当予以登记,并自登记之日起九十日内安排投递:
      (一)具备邮政车辆和邮政工作人员执行公务的通行条件;
      (二)有公安机关统一编制的门牌号数;
      (三)已安装接收邮件的信报箱或者已设立收发室;
      (四)按规定需要办理中外文名称登记的,应当办妥手续。
     第三十七条 邮件的投递方式,除邮电部另有规定外,按下列方式投递:
      (一)按址投递
      城镇居民的邮件,按收件人地址投递到平房院落门口或者楼房地面层的信报箱或者收发室。单位、单位内附设的机构和个人以及单位院内宿舍用户的邮件,投递到单位收发室。收发室应当设在楼房的地面层,两个以上单位同在一处的,应当商定统一接收邮件的地点。需要上楼投递邮件、报刊的,用户应当与相关邮政企业或者分支机构协商,并按照规定用户支付特殊服务费。
      农村、牧区的邮件,根据交通条件和邮件量的具体情况,一般投递到乡或者行政村的固定地点;乡或者行政村以下的邮件,由乡人民政府或者村民委员会与邮政企业或者分支机构协商妥交收人的方式。
      寄交船舶的邮件,投递到船舶隶属单位的收发室。
      (二)用户领取
      必须凭通知单到邮政企业或者分支机构办理手续才能领取的邮件,以邮政信箱(用户专用信箱)号码为收件人地址的邮件,存局候领的邮件,超出按址投递规定重量的邮件以及大宗邮件,采用用户领取的方式。
     第三十八条 收件人领取给据邮件,收款人兑领汇款,应当向相关邮政企业或者分支机构交验本人有效证件,并在相关单式上盖章或者签名。
      代收人受收件(款)人委托,代收给据邮件(汇款)时,应当交验收件(款)人和代收人的有效证件,经邮政企业或者分支机构确认后,由代收人盖章或者签名接收。
      有效证件包括居民身份证、户口簿、工作证。
     第三十九条 收件人接收给据邮件时发现封皮破损,应当场声明,并核对内件。确属邮政企业或者分支机构的责任而造成内件短少、损毁的,或者由于邮政企业、分支机构的责任造成给据邮件丢失、损毁的,邮政企业或者分支机构应当按照规定予以赔偿。由于收件人所在单位收发人员的过失造成给据邮件丢失、损毁、内件短少者,相关收发人员应当承担规定的赔偿责任。
      邮件运递的具体要求由邮电部规定,并予以公告。邮件运递违反邮电部规定的,邮政企业或者分支机构应当向用户补偿,具体补偿办法由邮电部规定。
     第四十条 用户误收的邮件,应当及时退还邮政企业或者分支机构;用户误拆的邮件应当重封签章后退还邮政企业或者分支机构,并对误拆邮件的内容保守秘密。
     第四十一条 单位收发人员接收给据邮件时,应当认真点核无误后,在相关清单上盖章签收。
      收发人员对于各种邮件负有保护和及时传送的责任,不得私拆、隐匿、毁弃邮件或者撕揭邮票。

    第六章 邮件的运输、验关和检疫

     第四十二条 邮电部、邮电管理局应当把邮件运输流向流量变化情况及时通告相关运输部门。各运输部门应当根据邮政通信需要,优先提供有效的车次、航班、舱容。
      相关运输部门应当在车站、机场、港口、码头妥善安排装卸、储存邮件和作业所需的场地、出入通道、房屋,以及通报行车或者航行情况的信息设施。
      新建、改建、扩建车站、机场、港口、码头,应当统一规划邮件存放、转运所需的场地和通道,其有关基建费用由邮政企业承担。
     第四十三条 邮政企业委托运输单位运送邮件,应当签订运邮协议。
     第四十四条 运输单位承运的邮件应当先于货物发运。因故临时停运或者改变运行时间、停靠位置时,运输单位应当及时通知邮政企业或者分支机构。
     第四十五条 载有邮件的船舶应当悬挂邮旗,各有关港口对于悬挂邮旗的船舶应当优先放行。
     第四十六条 运输单位承运邮件,除邮政企业或者分支机构派员押运者外,应当与邮政企业或者分支机构办理交接签收手续。
      除不可抗力原因外,邮件在运输单位保管期间或者在运输途中发生丢失、短少、损毁等,相关运输单位应当按照运邮协议的规定予以赔偿。
      运邮船舶发生海难必须抛弃所载货物时,非至最后,不得抛弃所运邮件。
     第四十七条 执行邮件运输和投递任务的车、船、邮政工作人员通过桥梁、渡口、隧道、检查站时,有关方面应当优先放行。带有邮政专用标志的邮政车辆在运递邮件时,凭公安机关核发的通行证,可以不受禁行路线、禁停地段的限制。运邮车辆或者邮政工作人员在运递邮件途中违章,有关主管部门应当记录后放行,待其完成运递任务后,再行处理。
     第四十八条 邮政企业依据运输工具到站(港)、离站(港)时间和运递时限制订的作业时间表应当在变更前三日通知海关。海关应当按照邮政企业通知的作业时间表派员到场监管国际邮袋、查验进出口国际邮递物品;逾时不到场,延误运递时限造成的相关责任,由海关承担。
      海关依法查验国际邮包时,在设关地应当与用户当面查验。收、寄件不能到场的,由海关开拆查验,邮政工作人员在场配合。被开拆查验的邮包,由海关和邮政企业共同封装,双方加具封签或者戳记。海关依法开拆查验的印刷品,应当重封并加具海关封签或者戳记。
     第四十九条 用户交寄应当施行卫生检疫或者动植物检疫的邮件,必须附有检疫证书。检疫部门应当及时对邮件进行验放,以保征邮件的运递时限。
     第五十条 海关、检疫部门依法查验国际邮递物品或者检疫邮件,应当注意爱护;需要封存时,除向寄件人或者收件人发出通知外,应当同邮政企业或者分支机构履行交接手续,并负责保管,封存期不得超过四十五日。特殊情况需要延长封存期的,应当征得邮政企业或者分支机构及寄件人或者收件人的同意,并以不致造成被封存国际邮递物品或者邮件的损失为前提。被封存国际邮递物品或者邮件退还邮政企业或者分支机构时,邮政工作人员应当核对无误后予以签收。
      依法没收国际邮递物品或者经卫生、动植物检疫必须依法销毁的邮件,海关或者检疫部门应当出具没收或者检疫处理通知单,并及时通知寄件人或者收件人和邮政企业或者分支机构。
      国际邮递物品在依法查验、封存期间,发生丢失、短少、损毁等,由海关或者检疫部门负责赔偿或处理。
     第五十一条 依法查验邮递物品或者对邮件实施检疫需要使用邮政企业或者分支机构的场地和房屋时,由邮政企业与有关部门根据工作需要和实际可能协商解决。
     第五十二条 由海关依法处理的无着进口国际邮包,海关应当支付相关邮政费用。
     第五十三条 出口国际邮件的海关关单的传递方式由海关总署与邮电部商定。

    第七章 罚 则

     第五十四条 违反本细则第十一条规定的,由有关部门按照国家有关规定根据情节轻重,予以处罚;违反治安管理有关规定的,由公安机关依照《中华人民共和国治安管理处罚条例》处罚。
     第五十五条 违反本细则第三十三条第三项规定,尚未造成严重后果的,由公安机关依照《中华人民共和国治安管理处罚条例》处理。
     第五十六条 伪造或者冒用邮政专用标志、邮政标志服或者邮政日戳、邮政夹钳、邮袋等邮政专用品的 ,由邮电管理局或其授权单位处以一千五百元以下罚款 ,并没收有关物品。
     第五十七条 以营利为目的,伪造邮资凭证,未经许可仿印邮票图案或者印制带有“中国人民邮政”字样明信片的,由邮电管理局或其授权单位处以五千元以下罚款,并没收非法所得和非法物品。
      由于用户的故意,交寄的邮件使用不符合规定的邮资凭证的,邮政企业或者分支机构不予发寄,通知寄件人限期撤回,并处以应付邮资十倍的罚款;无法通知寄件人或者逾期不办理撤回手续的,作为无着邮件处理。
     第五十八条 邮政工作人员隐匿、毁弃、私拆、盗窃邮件,贪污、冒领用户款项的,邮政企业应当追回赃款赃物,可以并处罚款,还可以根据情节轻重,给予行政处分。具体办法由邮电部规定。
     第五十九条 违反本细则第四十一条第二款规定的,依照《邮政法》第三十六条规定追究责任。
     第六十条 违反本细则规定,构成犯罪的,由司法机关依法追究刑事责任。
     第六十一条 误收、误拆他人信件不予退还或者已退还但泄露信件内容,侵犯他人通信自由权利的,依照《邮政法》第三十六条规定追究责任。

    第八章 附 则

     第六十二条 本细则所称公安机关、国家安全机关、检察机关是指县以上(含县级)公安机关、国家安全机关、检察机关。
     第六十三条 邮电部可以根据本细则制定有关规章。
     第六十四条 本细则由邮电部负责解释。  
     第六十五条 本细则自发布之日起施行。

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