<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 粮食流通管理条例
    粮食流通管理条例   类型:基础产业


    (二00四年五月二十六日国务院发布,二00四年五月二十六日起实施)


    第一章 总 则

    第一条 为了保护粮食生产者的积极性,促进粮食生产,维护经营者、消费者的合法权益,保障国家粮食安全,维护粮食流通秩序,根据有关法律,制定本条例。

    第二条 在中华人民共和国境内从事粮食的收购、销售、储存、运输、加工、进出口等经营活动(以下统称粮食经营活动),应当遵守本条例。

    前款所称粮食,是指小麦、稻谷、玉米、杂粮及其成品粮。

    第三条 国家鼓励多种所有制市场主体从事粮食经营活动,促进公平竞争。依法从事的粮食经营活动受国家法律保护。严禁以非法手段阻碍粮食自由流通。

    国有粮食购销企业应当转变经营机制,提高市场竞争能力,在粮食流通中发挥主渠道作用,带头执行国家粮食政策。

    第四条 粮食价格主要由市场供求形成。

    国家加强粮食流通管理,增强对粮食市场的调控能力。

    第五条 粮食经营活动应当遵循自愿、公平、诚实信用的原则,不得损害粮食生产者、消费者的合法权益,不得损害国家利益和社会公共利益。

    第六条 国务院发展改革部门及国家粮食行政管理部门负责全国粮食的总量平衡、宏观调控和重要粮食品种的结构调整以及粮食流通的中长期规划;国家粮食行政管理部门负责粮食流通的行政管理、行业指导,监督有关粮食流通的法律、法规、政策及各项规章制度的执行。

    国务院工商行政管理、产品质量监督、卫生、价格等部门在各自的职责范围内负责与粮食流通有关的工作。

    省、自治区、直辖市人民政府在国家宏观调控下,按照粮食省长负责制的要求,负责本地区粮食的总量平衡和地方储备粮的管理。县级以上地方人民政府粮食行政管理部门负责本地区粮食流通的行政管理、行业指导;县级以上地方人民政府工商行政管理、产品质量监督、卫生、价格等部门在各自的职责范围内负责与粮食流通有关的工作。

    第二章 粮食经营

    第七条 粮食经营者,是指从事粮食收购、销售、储存、运输、加工、进出口等经营活动的法人、其他经济组织和个体工商户。

    第八条 从事粮食收购活动的经营者,应当具备下列条件:

    (一)具备经营资金筹措能力;

    (二)拥有或者通过租借具有必要的粮食仓储设施;

    (三)具备相应的粮食质量检验和保管能力。

    前款规定的具体条件,由省、自治区、直辖市人民政府规定、公布。

    第九条 取得粮食收购资格,并依照《中华人民共和国公司登记管理条例》等规定办理登记的经营者,方可从事粮食收购活动。

    申请从事粮食收购活动,应当向办理工商登记的部门同级的粮食行政管理部门提交书面申请,并提供资金、仓储设施、质量检验和保管能力等证明材料。粮食行政管理部门应当自受理之日起15个工作日内完成审核,对符合本条例第八条规定具体条件的申请者作出许可决定并公示。

    第十条 取得粮食行政管理部门粮食收购资格许可的,应当依法向工商行政管理部门办理设立登记,在经营范围中注明粮食收购;已在工商行政管理部门登记的,从事粮食收购活动也应当取得粮食行政管理部门的粮食收购资格许可,并依法向工商行政管理部门办理变更经营范围登记,在经营范围中注明粮食收购。

    第十一条 依法从事粮食收购活动的粮食经营者(以下简称粮食收购者),应当告知售粮者或者在收购场所公示粮食的品种、质量标准和收购价格。

    第十二条 粮食收购者收购粮食,应当执行国家粮食质量标准,按质论价,不得损害农民和其他粮食生产者的利益;应当及时向售粮者支付售粮款,不得拖欠;不得接受任何组织或者个人的委托代扣、代缴任何税、费和其他款项。

    第十三条 粮食收购者应当向收购地的县级人民政府粮食行政管理部门定期报告粮食收购数量等有关情况。

    跨省收购粮食,应当向收购地和粮食收购者所在地的县级人民政府粮食行政管理部门定期报告粮食收购数量等有关情况。

    第十四条 从事粮食销售、储存、运输、加工、进出口等经营活动的粮食经营者应当在工商行政管理部门登记。

    第十五条 粮食经营者使用的粮食仓储设施,应当符合粮食储存有关标准和技术规范的要求。粮食不得与可能对粮食产生污染的有害物质混存,储存粮食不得使用国家禁止使用的化学药剂或者超量使用化学药剂。

    第十六条 运输粮食应当严格执行国家粮食运输的技术规范,不得使用被污染的运输工具或者包装材料运输粮食。

    第十七条 从事食用粮食加工的经营者,应当具有保证粮食质量和卫生必备的加工条件,不得有下列行为:

    (一)使用发霉变质的原粮、副产品进行加工;

    (二)违反规定使用添加剂;

    (三)使用不符合质量、卫生标准的包装材料;

    (四)影响粮食质量、卫生的其他行为。

    第十八条 销售粮食应当严格执行国家有关粮食质量、卫生标准,不得短斤少两、掺杂使假、以次充好,不得囤积居奇、垄断或者操纵粮食价格、欺行霸市。

    第十九条 建立粮食销售出库质量检验制度。粮食储存企业对超过正常储存年限的陈粮,在出库前应当经过有资质的粮食质量检验机构进行质量鉴定,凡已陈化变质、不符合食用卫生标准的粮食,严禁流入口粮市场。陈化粮购买资格由省级人民政府粮食行政管理部门会同工商行政管理部门认定。陈化粮判定标准,由国家粮食行政管理部门会同有关部门制定,陈化粮销售、处理和监管的具体办法,依照国家有关规定执行。

    第二十条 从事粮食收购、加工、销售的经营者,必须保持必要的库存量。

    必要时,由省、自治区、直辖市人民政府规定最低和最高库存量的具体标准。

    第二十一条 国有和国有控股粮食企业应当积极收购粮食,并做好政府委托的粮食收购和政策性用粮的购销工作,服从和服务于国家宏观调控。

    第二十二条 对符合贷款条件的粮食收购者,银行应当按照国家有关规定及时提供收购贷款。中国农业发展银行应当保证中央和地方储备粮以及政府调控用粮和其他政策性用粮的信贷资金需要,对国有和国有控股的粮食购销企业、大型粮食产业化龙头企业和其他粮食购销企业,按企业的风险承受能力提供信贷资金支持。

    第二十三条 所有从事粮食收购、销售、储存、加工的粮食经营者以及饲料、工业用粮企业,应当建立粮食经营台账,并向所在地的县级人民政府粮食行政管理部门报送粮食购进、销售、储存等基本数据和有关情况。粮食经营者保留粮食经营台账的期限不得少于3年。粮食经营者报送的基本数据和有关情况涉及商业秘密的,粮食行政管理部门负有保密义务。

    国家粮食流通统计制度,由国家粮食行政管理部门制定,报国务院统计部门批准。

    第二十四条 粮食行业协会以及中介组织应当加强行业自律,在维护粮食市场秩序方面发挥监督和协调作用。

    第三章 宏观调控

    第二十五条 国家采取储备粮吞吐、委托收购、粮食进出口等多种经济手段和价格干预等必要的行政手段,加强对粮食市场的调控,保持全国粮食供求总量基本平衡和价格基本稳定。

    第二十六条 国家实行中央和地方分级粮食储备制度。粮食储备用于调节粮食供求,稳定粮食市场,以及应对重大自然灾害或者其他突发事件等情况。

    政策性用粮的采购和销售,原则上通过粮食批发市场公开进行,也可以通过国家规定的其他方式进行。

    第二十七条 国务院和地方人民政府建立健全粮食风险基金制度。粮食风险基金主要用于对种粮农民直接补贴、支持粮食储备、稳定粮食市场等。

    国务院和地方人民政府财政部门负责粮食风险基金的监督管理,确保专款专用。

    第二十八条 当粮食供求关系发生重大变化时,为保障市场供应、保护种粮农民利益,必要时可由国务院决定对短缺的重点粮食品种在粮食主产区实行最低收购价格。

    当粮食价格显著上涨或者有可能显著上涨时,国务院和省、自治区、直辖市人民政府可以按照《中华人民共和国价格法》的规定,采取价格干预措施。

    第二十九条 国务院发展改革部门及国家粮食行政管理部门会同农业、统计、产品质量监督等部门负责粮食市场供求形势的监测和预警分析,建立粮食供需抽查制度,发布粮食生产、消费、价格、质量等信息。

    第三十条 国家鼓励粮食主产区和主销区以多种形式建立稳定的产销关系,鼓励建立产销一体化的粮食经营企业,发展订单农业,在执行最低收购价格时国家给予必要的经济优惠,并在粮食运输方面给予优先安排。

    第三十一条 在重大自然灾害、重大疫情或者其他突发事件引起粮食市场供求异常波动时,国家实施粮食应急机制。

    第三十二条 国家建立突发事件的粮食应急体系。国务院发展改革部门及国家粮食行政管理部门会同国务院有关部门制定全国的粮食应急预案,报请国务院批准。省、自治区、直辖市人民政府根据本地区的实际情况,制定本行政区域的粮食应急预案。

    第三十三条 启动全国的粮食应急预案,由国务院发展改革部门及国家粮食行政管理部门提出建议,报国务院批准后实施。

    启动省、自治区、直辖市的粮食应急预案,由省、自治区、直辖市发展改革部门及粮食行政管理部门提出建议,报本级人民政府决定,并向国务院报告。

    第三十四条 粮食应急预案启动后,所有粮食经营者必须按国家要求承担应急任务,服从国家的统一安排和调度,保证应急工作的需要。

    第四章 监督检查

    第三十五条 粮食行政管理部门依照本条例对粮食经营者从事粮食收购、储存、运输活动和政策性用粮的购销活动,以及执行国家粮食流通统计制度的情况进行监督检查。

    粮食行政管理部门应当根据国家要求对粮食收购资格进行核查。

    粮食行政管理部门在监督检查过程中,可以进入粮食经营者经营场所检查粮食的库存量和收购、储存活动中的粮食质量以及原粮卫生;检查粮食仓储设施、设备是否符合国家技术规范;查阅粮食经营者有关资料、凭证;向有关单位和人员调查了解相关情况。

    第三十六条 产品质量监督部门依照有关法律、行政法规的规定,对粮食加工过程中的以假充真、以次充好、掺杂使假等违法行为进行监督检查。

    第三十七条 工商行政管理部门依照有关法律、行政法规的规定,对粮食经营活动中的无照经营、超范围经营以及粮食销售活动中的囤积居奇、欺行霸市、强买强卖、掺杂使假、以次充好等扰乱市场秩序和违法违规交易行为进行监督检查。

    第三十八条 卫生部门依照有关法律、行政法规的规定,对粮食加工、销售中的卫生以及成品粮储存中的卫生进行监督检查。

    第三十九条 价格主管部门依照有关法律、行政法规的规定,对粮食流通活动中的价格违法行为进行监督检查。

    第四十条 任何单位和个人有权对违反本条例规定的行为向有关部门检举。有关部门应当为检举人保密,并依法及时处理。

    第五章 法律责任

    第四十一条 未经粮食行政管理部门许可或者未在工商行政管理部门登记擅自从事粮食收购活动的,由工商行政管理部门没收非法收购的粮食;情节严重的,并处非法收购粮食价值1倍以上5倍以下的罚款;构成犯罪的,依法追究刑事责任。

    由粮食行政管理部门查出的,移交工商行政管理部门按照前款规定予以处罚。

    第四十二条 以欺骗、贿赂等不正当手段取得粮食收购资格许可的,由粮食行政管理部门取消粮食收购资格,工商行政管理部门吊销营业执照,没收违法所得;构成犯罪的,依法追究刑事责任。

    粮食行政管理部门工作人员办理粮食收购资格许可,索取或者收受他人财物或者谋取其他利益,构成犯罪的,依法追究刑事责任;尚不构成犯罪的,依法给予行政处分。

    第四十三条 粮食收购者有未按照规定告知、公示粮食收购价格或者收购粮食压级压价,垄断或者操纵价格等价格违法行为的,由价格主管部门依照《中华人民共和国价格法》的有关规定给予行政处罚。

    第四十四条 有下列情形之一的,由粮食行政管理部门责令改正,予以警告,可以处20万元以下的罚款;情节严重的,并由粮食行政管理部门暂停或者取消粮食收购资格:

    (一)粮食收购者未执行国家粮食质量标准的;

    (二)粮食收购者被售粮者举报未及时支付售粮款的;

    (三)粮食收购者违反本条例规定代扣、代缴税、费和其他款项的;

    (四)从事粮食收购、销售、储存、加工的粮食经营者以及饲料、工业用粮企业未建立粮食经营台账,或者未按照规定报送粮食基本数据和有关情况的;

    (五)接受委托的粮食经营者从事政策性用粮的购销活动未执行国家有关政策的。

    第四十五条 陈粮出库未按照本条例规定进行质量鉴定的,由粮食行政管理部门责令改正,给予警告;情节严重的,处出库粮食价值1倍以上5倍以下的罚款,工商行政管理部门可以吊销营业执照。

    倒卖陈化粮或者不按照规定使用陈化粮的,由工商行政管理部门没收非法倒卖的粮食,并处非法倒卖粮食价值20%以下的罚款,有陈化粮购买资格的,由省级人民政府粮食行政管理部门取消陈化粮购买资格;情节严重的,由工商行政管理部门并处非法倒卖粮食价值1倍以上5倍以下的罚款,吊销营业执照;构成犯罪的,依法追究刑事责任。

    第四十六条 从事粮食收购、加工、销售的经营者的粮食库存低于规定的最低库存量的,由粮食行政管理部门责令改正,给予警告;情节严重的,处不足部分粮食价值1倍以上5倍以下的罚款,并可以取消粮食收购资格,工商行政管理部门可以吊销营业执照。

    从事粮食收购、加工、销售的经营者的粮食库存超出规定的最高库存量的,由粮食行政管理部门责令改正,给予警告;情节严重的,处超出部分粮食价值1倍以上5倍以下的罚款,并可以取消粮食收购资格,工商行政管理部门可以吊销营业执照。

    第四十七条 粮食经营者未按照本条例规定使用粮食仓储设施、运输工具的,由粮食行政管理部门或者卫生部门责令改正,给予警告;被污染的粮食不得非法销售、加工。

    第四十八条 违反本条例第十七条、第十八条规定的,由产品质量监督部门、工商行政管理部门、卫生部门等依照有关法律、行政法规的规定予以处罚。

    第四十九条 财政部门未按照国家关于粮食风险基金管理的规定及时、足额拨付补贴资金,或者挤占、截留、挪用补贴资金的,由本级人民政府或者上级财政部门责令改正,对有关责任人员依法给予行政处分;构成犯罪的,依法追究有关责任人员的刑事责任。

    第五十条 违反本条例规定,阻碍粮食自由流通的,依照《国务院关于禁止在市场经济活动中实行地区封锁的规定》予以处罚。

    第五十一条 监督检查人员违反本条例规定,非法干预粮食经营者正常经营活动的,依法给予行政处分;构成犯罪的,依法追究刑事责任。

    第六章 附 则

    第五十二条 本条例下列用语的含义是:

    粮食收购,是指为了销售、加工或者作为饲料、工业原料等直接向种粮农民或者其他粮食生产者批量购买粮食的活动。

    粮食加工,是指通过处理将原粮转化成半成品粮、成品粮,或者将半成品粮转化成成品粮的经营活动。

    第五十三条 大豆、油料和食用植物油的收购、销售、储存、运输、加工、进出口等经营活动,适用本条例除第八条、第九条、第十条以外的规定。

    粮食进出口的管理,依照有关法律、行政法规的规定执行。

    中央储备粮的管理,依照《中央储备粮管理条例》的规定执行。

    第五十四条 本条例自公布之日起施行。1998年6月6日国务院发布的《粮食收购条例》、1998年8月5日国务院发布的《粮食购销违法行为处罚办法》同时废止。

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