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

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

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

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

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

", "

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

", "

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

", "

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

", "

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



    办公厅
      办公厅职责任务
      (一)协助部领导处理日常工作。
      (二)负责协调部机关政务工作。
      (三)负责部党组会、部务会、部常务会、部长办公会及全国性农业重要会议的组织和服务工作;负责部系统全国性会议计划的管理工作。
      (四)负责部党组和部领导的秘书工作。
      (五)负责组织有关重要的综合性报告、文件、讲话的起草工作。
      (六)负责政务信息和政务值班工作。
      (七)负责部党组和部领导议定、批办事项的督查工作。
      (八)负责部内请示件预处理及编写《农业部大事记》工作。
      (九)负责部机关公文处理和机要文件运转工作,对在京部属单位公文处理工作进行业务指导。
      (十)负责组织全国人大代表和全国政协委员有关建议、提案的办理工作。
      (十一)负责制定部机关有关规章制度并组织实施。
      (十二)负责部机关保密管理工作,并对部直属单位保密工作进行业务指导。
      (十三)负责新闻发布、组织重要新闻报道及部系统新闻、出版、影视、展览等宣传业务工作的组织指导和归口管理。
      (十四)归口管理全国农业劳动模范人物的评选、表彰和农业系统表彰工作。
      (十五)负责群众来信、来访的处理和接待工作。
      (十六)对档案工作进行业务指导。
      (十七)负责部机关办公自动化的组织协调工作。
      (十八)负责对台农业合作与交流工作。
      (十九)负责部机关安全保卫工作,对在京部属单位安全保卫工作进行业务指导。
      (二十)指导有关社团组织的业务工作。
      (二十一)完成部领导交办的其他工作。

    人事劳动司
      人事劳动司职责任务
      (一)负责管理部机关和部属单位人事劳动工作;研究拟定部机关、部属单位人事劳动管理和人事劳动制度改革方面的政策、规定,并监督实施。
      (二)研究拟定部机关和部属单位领导班子和人员队伍建设总体规划,拟定有关政策规定,并监督实施。
      (三)承办部机关和部属单位领导班子建设工作和干部培训工作。按照干部管理权限,负责部机关公务员和部属单位领导干部考核、任免、调配、待遇、奖惩、辞职、辞退、培训和后备干部队伍建设工作。
      (四)组织拟定部机关和部属单位机构改革方案,并组织实施。负责部机关和部属单位机构设置、职能配置、人员编制和流动调配工作;负责部业务主管社会团体管理工作。
      (五)负责农业行业和部属单位科技人才队伍建设规划及科技人员管理工作;研究制定农业系列专业技术职务评审标准并指导实施,承办部驻外机构人员选派和国外智力引进工作。
      (六)负责部机关和部属单位劳动工资和保险福利待遇方面的管理工作,研究提出农业行业劳动工资政策、标准建议。
      (七)综合管理部系统和农业行业职业技能开发工作;组织、指导、协调部属单位和农业行业安全生产工作。
      (八)负责部机关公务员和部属单位领导班子成员人事档案管理,指导部属单位做好人事档案目标管理工作。
      (九)负责部机关和部属单位出国(境)人员审查、审批工作。
      (十)组织指导部机关、部属单位和农业行业人事劳动统计工作。
      (十一)完成部领导交办的其他工作。

    产业政策与法规司
      产业政策与法规司职责任务
      (一)研究拟定农业产业政策,提出调整和优化农业产业结构及合理配置生产要素的政策建议;研究提出促进高产、优质、高效农业和农业产业化经营的方针、政策。
      (二)组织研究提出农业和农村经济发展的战略方针和政策措施建议;研究提出深化农村经济体制改革意见和实施方案;指导农村改革试验工作,协调本部各产业部门的体改工作;提出政府对农业和农村经济实行引导、支持、保护、调控的政策建议。
      (三)组织、协调和管理农业部软科学研究及其成果转化工作。
      (四)研究、指导农业法制建设,拟定主管产业的立法规划,组织农业法律、法规的起草工作;承办农业部规章的起草或审查工作;对有关部门起草的法律、法规中涉及农业和农村经济的条款提出审核意见。
      (五)拟定农业法制宣传教育工作规划并组织实施;指导农业行政执法体系建设,监督检查农业行政执法工作,组织农业行政执法听证;承担农业行政复议和行政赔偿工作。
      (六)审核《中国农业发展报告》,并报部领导审定;编辑《决策参考》、《农村经济文稿》和有关参阅材料。
      (七)负责有关单位和业务归口管理,指导有关社团组织的业务工作。
      (八)完成部领导交办的其他工作。

    农村经济体制与经营管理司
      农村经济体制与经营管理司职责任务
      (一)研究提出稳定和完善以家庭承包经营为基础、统分结合的双层经营体制的政策建议,经批准后组织实施。
      (二)研究起草农村土地承包、农业承包合同的法律、法规及相关政策建议,颁布后组织监督检查;指导重大承包合同纠纷案件的调解与仲裁;研究提出耕地使用权、承包经营权流转的政策建议。
      (三)指导乡村集体经济组织的建设,指导其建立健全各项规章制度,搞好民主管理和各项服务。
      (四)研究起草农业社会化服务体系的相关法规和政策,拟定发展规划,并监督实施;协调、指导农业社会化服务体系建设。
      (五)研究起草减轻农民负担的法律、法规和相关政策建议,并负责颁布后的监督实施;参与审核中央和国家机关涉及农民负担的文件和项目;协助有关部门查处涉及农民负担的重大恶性案件。
      (六)研究起草农村集体资产管理的法规和相关政策,经批准后组织实施;指导农村集体资产所有权的界定、登记和产权变更审核;指导农村集体资产清产核资和集体债权、债务的清理工作;指导乡(镇)村集体经济组织审计;监督农村集体资产评估和产权交易。
      (七)指导农业产业化经营和乡村集体经济组织财务会计工作,组织对农村经济收支、农民收入与农民负担情况的监测,指导农民专业合作经济组织的建设工作,并进行审核和监督检查。
      (八)完成部领导交办的其他工作。

    市场与经济信息司
      市场与经济信息司职责任务
      (一)拟定全国大宗农产品市场体系建设规划并组织实施,指导农产品批发市场建设与规范化管理;组织协调农业生产资料市场体系建设,指导农业生产资料批发市场的建设与规范化管理。
      (二)研究提出菜篮子工程建设的政策建议,组织协调和实施菜篮子工程建设。
      (三)研究提出发展农产品市场与流通的政策建议,促进农业产前、产中、产后一体化。
      (四)研究拟定农村经济信息体系建设规划和有关政策、规定,并组织实施、监督检查;统筹协调农村经济信息体系建设的投资计划和有关项目安排;协调、指导农业部门信息网络建设和信息服务工作;协调组织实施部机关办公自动化,负责部办公自动化投资计划和项目经费安排。
      (五)研究提出农产品、农业生产资料流通及价格的政策建议和改革方案。
      (六)审核、管理农业行业统计、信息调查报表;组织实施农业统计及农产品流通与价格、成本、信息调查,预测并发布农产品及农业生产资料供求情况等农村经济信息,跟踪分析农业农村经济运行形势。
      (七)研究提出农业质量标准工作的政策建议和措施,研究拟定农业标准体系和质量监测体系发展规划并组织实施。
      (八)综合协调管理农业投入品和农业各产业质量、标准、监督、认证、计量和新产品鉴定工作。组织实施农业质量振兴计划和农业名牌发展战略;承办农业部工业生产许可证和质量"打假"工作。
      (九)协调指导全国绿色食品工作,拟定绿色食品的政策、规划,起草有关法律法规,审批发布部级标准,实施质量监督,推动绿色食品事业发展。
      (十)负责农业部全国菜篮子工程办公室、部农村经济信息体系领导小组办公室、部办公自动化领导小组办公室、部质量办公室的日常工作。
      (十一)完成部领导交办的其他工作。

    发展计划司(全国农业资源区划办公室)
      发展计划司(全国农业资源区划办公室)职责任务
      (一)研究提出农业和农村经济发展战略并拟定具体实施方案,组织编制农业和农村经济发展及农业可持续发展中长期规划。
      (二)协调农业各产业间的结构调整与综合平衡工作,组织编制农业和农村经济发展年度计划。
      (三)组织编制农业固定资产投资规划,负责农业部固定资产投资工作;编制、下达预算内农业基本建设投资年度计划,制定农业商品生产基地、生态农业、旱作农业等农业重点建设规划和年度计划,负责扶持农业产业化经营的投资计划管理工作;负责农业建设项目审批、监督检查和验收工作,组织农业基本建设和技术改造贷款项目的推荐工作;负责农业行业工程建设管理工作。
      (四)制定农业对外贸易中长期发展规划并组织实施,负责农业在世界贸易组织和亚太经济合作组织等多边机构的有关工作,研究提出主要农产品、重要农业生产资料的进出口政策和关税政策建议,归口管理农业部进出口计划工作,负责农业部进口物资关税减免和机电设备进出口管理工作。
      (五)负责制定农业利用外资、境外投资中长期规划、年度计划并组织实施,负责农业部管理的国外贷款项目、外商投资项目、境外投资项目和对外经济援助项目的申报、审查、审批等工作,负责农业技术引进项目的计划管理工作。
      (六)组织编制全国农业综合开发总体规划并监督实施,负责农业发展基金农业部专项项目的计划管理工作。归口管理农业部扶贫、援藏、三峡库区移民工作,负责制定有关规划、计划和项目管理。
      (七)组织全国农业资源的调查、区划和开发利用规划工作,负责农业资源的综合管理和协调工作,指导农业资源持续高效利用和农业可持续发展,归口管理农业遥感应用工作。
      (八)完成部领导交办的其他工作。

    财务司
      财务司职责任务
      (一)研究提出有关农业和农村发展的财政、税收和金融政策建议,并对行业提供信息指导。
      (二)研究提出农业部预算管理指导意见。
      (三)组织、审核、汇总、编报农业部预算和决算;组织、监督农业部预算的执行。
      (四)分管事业经费、农业专项资金、农业基本建设资金、住房基金等有关预算内资金、预算外资金和农业部利用外资、外汇的资金管理、会计核算与财务监督。
      (五)研究提出行业财务管理工作的指导意见。
      (六)指导、监督部属单位的财务管理和会计工作;组织实施部系统会计电算化和对财会人员的培训。
      (七)监管农业部机关及部属单位的国有资产;对农垦国有资产监管和直属垦区国有资产运营工作,实施监督检查;指导部机关及部属单位(含直属垦区)住房制度改革。
      (八)研究拟定农业部政府采购管理办法,监督落实重大项目招投标和政府采购制度。
      (九)研究提出利用资本市场支持农业企业改革的意见,承办部属单位利用资本市场筹资的相关业务。
      (十)承担农业部审计室的职责。
      (十一)完成部领导交办的其他工作。

    国际合作司
      国际合作司职责任务
      (一)研究拟定我国农业对外开放和国际合作的有关规划,制定我部农业涉外工作的规章制度,指导、协调和管理农业涉外事务。
      (二)归口管理我部系统与世界各国的农业合作。负责农业部系统出国、来华团组及举办、出席国际会议等的审批、报批工作。承办政府间及部门间农业协议、协定的谈判、签订的组织工作。负责我部与有关部门相关涉外事务的协调工作。
      (三)归口管理我国与联合国粮农组织、世界粮食计划署和国际农业发展基金的业务联系与合作,负责各省利用国际农发基金贷款项目的申报、初审和推荐工作;归口管理我部系统与国际组织的涉外事务和农业领域里的交往与合作。
      (四)指导农业经济、科技、贸易的国际交流与合作,负责对华援助和引进外资项目的争取工作,制定外援项目管理办法,负责有关项目的申请工作。
      (五)研究世界农业生产、贸易发展趋势及政策动态,收集农业科技和经贸信息,提出对策建议。
      (六)领导中国常驻联合国粮农组织代表处的业务工作,负责与联合国粮农组织和世界粮食计划署驻华代表处的业务联系,协助选拔外派工作人员。
      (七)指导有关归口事业单位的业务工作。
      (八)完成部领导交办的其他工作。

    科技教育司
      科技教育司职责任务
      (一)拟定农业科技教育发展规划与政策,承办实施科教兴农战略和可持续发展战略工作。
      (二)拟定农业科研及科研基地专项规划;组织重大科研项目、科研基地建设项目的遴选协调及监督实施;组织农业生物基因安全管理工作。
      (三)组织重大科技推广和科技产业项目的遴选及实施工作。
      (四)组织拟定农业植物新品种保护、成果管理规章制度,负责受理、审查、授予农业植物新品种权,查处重大品种权案件;组织重大农业科技成果鉴定、评审;管理农业科技保密工作。
      (五)组织重大农业技术引进项目的遴选及实施管理;组织农业科技教育的对外交流与国际合作工作。
      (六)组织协调农科教结合,指导农业教育工作。
      (七)指导并组织实施农民职业技术教育、农业职业教育和农业继续教育工作。
      (八)组织生态农业建设试点示范;指导农业生态环境监测体系建设;承办农业生态环境及农业生物多样性保护和管理的协调监督工作。
      (九)组织、指导农村可再生能源的综合开发、利用、重大技术的科研和试点示范;指导农村可再生能源体系建设和产业发展。
      (十)管理科学事业费。
      (十一)完成部领导交办的其它工作。

    种植业管理司
      种植业管理司职责任务
      (一)负责种植业(粮食、棉花、油料、糖料、瓜菜、水果、茶叶、蚕桑、花卉、麻类、中药材、烟叶、食用菌等)的行业管理。
      (二)研究提出促进种植业发展的政策建议、宏观发展战略、规划和年度计划,指导种植业结构和布局的调整。
      (三)组织起草有关种植业的法律、法规、规章,组织制定种植业有关标准和技术规范,负责种植业质量管理工作。
      (四)组织提出种植业发展的主要技术措施,组织实施重大技术推广项目,指导种植业技术推广体系建设。
      (五)负责农作物种子行业管理工作。
      (六)研究提出农用生产资料的中长期发展规划和年度计划;主管农业专项农用生产资料的分配并监督使用;负责农业系统经营农用生产资料的资格审核工作。
      (七)主管农药登记、使用和监督管理工作;负责肥料登记;参与化肥、农膜的市场管理。
      (八)研究提出耕地保护、补偿与改良的政策措施、编制规划,并监督实施。
      (九)负责农情调度、农情信息发布和种植业信息网络建设。
      (十)组织救灾备荒种子的储备和调拨,负责救灾化肥的分配。
      (十一)负责编制种植业商品生产基地、基础设施建设和重大专项资金项目的规划、计划,并组织实施和进行日常监督管理。
      (十二)主管植物检疫工作,组织起草植物检疫法律、法规草案和有关标准,并监督实施。负责政府间植物检疫协议文本的起草和谈判;发布进境植物的禁令和解禁令。
      (十三)承办政府间种植业的涉外事务,组织种植业有关国际经济、技术交流与合作。
      (十四)完成部领导交办的其他工作。

    农业机械化管理司
      农业机械化管理司职责任务
      (一)负责农业机械化行业管理,研究提出农业机械化发展战略、中长期规划以及农业机械(牧业机械、植保机械)产品结构调整方向和措施。
      (二)研究拟定农业机械化产业政策、法规以及农机作业技术规范、标准,并监督实施。
      (三)研究提出有关设施农业、农用航空的重大经济、技术政策,并监督实施。
      (四)研究提出农业机械化的重大技术措施,组织农业机械化重点科技攻关、关键机具设备开发、技术推广项目的论证、立项、实施及监督管理工作。
      (五)组织实施农机产品试验鉴定、质量检验、认证管理工作,发布农机产品质量检验、鉴定、认证结果。
      (六)负责拖拉机、联合收割机、农用运输车等农业机械的安全技术检验、注册、发放牌证及农机驾驶操作人员考试、考核发证工作的监督管理;拟定农机安全监理法规、标准并监督实施;指导农机行政执法体系建设、违章行为查处、事故调查处理工作。
      (七)研究制定农机服务体系建设政策措施,指导基层农机服务体系建设。
      (八)指导农业机械使用管理及驾驶操作人员的教育培训工作,并监督实施。
      (九)负责农业机械化统计工作,指导农业机械化管理系统信息网络建设。
      (十)协调农用柴油供应和价格政策,研究提出农用救灾柴油和补贴资金的分配意见,并对使用情况进行监督管理。
      (十一)组织协调重大农业机械化生产活动,指导农机抗灾救灾工作。
      (十二)指导农机维修管理工作,制定管理规范和技术措施,并监督实施。
      (十三)承办政府间农业机械化涉外事务,组织有关国际技术交流与经济合作。
      (十四)归口管理部直属农机事业单位。
      (十五)承办部领导交办的其他工作。

    畜牧兽医局(全国饲料工作办公室)
      畜牧兽医局(全国饲料工作办公室)职责任务
      (一)研究拟定畜牧、兽医、草原、饲料的行业发展战略及政策;提出行业发展重大技术进步措施;起草行业的法律、法规草案,拟定管理规章,经发布、批准后组织实施;编制行业发展规划和计划;实施行业管理。
      (二)指导行业结构和布局调整,提出国家用于畜牧、兽医、草原、饲料行业投资方案,并组织实施;承办行业基本建设、综合开发和财政资金等方面的项目审查工作。
      (三)负责组织畜禽品种、畜产资源、饲料资源的保护及合理开发利用工作。
      (四)负责动物疫病防治、检疫、监督、兽医医政、兽药药政药检及兽医医疗器械管理工作;制定动物疫病防治规划,组织实施动物防疫和监督工作,发布疫情并组织扑灭。
      (五)承办政府间兽医合作协议、协定的商谈、签定工作;负责进出境动物、动物产品检疫条款的谈判和签定工作;发布进境动物及动物产品禁令和禁令解除;负责进出境动物及动物产品的检疫审批;负责种畜禽、草种、兽药、兽用生物制品、饲料和饲料添加剂产品登记及进出口审批。
      (六)负责组织草原资源保护、合理开发利用和生态建设工作;组织实施草原监理;组织协调、指导监督全国草原防火工作。
      (七)组织拟定畜牧、兽医、草原、饲料的标准和技术规范;负责饲料产品标准的审批和质量监督;审核发放种畜禽、草种生产经营许可证和饲料生产许可证;负责审核、发布兽药国家标准、行业标准和质量监督;负责兽药残留检测标准制定、发布和管理;组织核发兽药生产许可证和批准文号。
      (八)组织畜牧、兽医、草原、饲料科研和技术推广项目的遴选及实施。
      (九)负责畜牧、兽医、草原、饲料行业经济、技术信息工作。
      (十)完成部领导交办的其他工作。

    农垦局
      农垦局职责任务
      (一)制定全国农垦经济与社会发展战略;拟定有关政策、法规、规章制度和农垦经济体制改革方案并组织实施。
      (二)制定全国农垦经济与社会发展的中长期规划、资源开发利用规划、产业发展规划和年度计划并组织实施;研究提出农垦主要产业发展政策,指导垦区产业结构调整。
      (三)协调农垦改革、经济发展与社会事业等方面的政策落实及垦区的对外关系。
      (四)组织垦区完成国家交给的政治、经济任务。
      (五)编制上报垦区、归口管理事业单位中央固定资产投资和各专项投资计划,并监督实施;制定技术改造规划和计划,并监督实施;负责承办农垦系统重大投资建设项目的申报和审批,负责中央基建资金的预决算。
      (六)指导全国农垦财务会计管理工作,汇总全国农垦企业财务决算;监督管理直属直供垦区国有资产和财务工作;负责编报和批复直属直供垦区的预决算,向财政等部门办理请拨款手续。
      (七)负责全国热带、南亚热带作物的行业管理;制定全国南亚热带作物发展和资源开发利用规划,拟定政策、法规草案和扶持措施,经批准后组织监督实施;指导全国南亚热带作物产业结构和布局调整;负责南亚热带作物发展专项资金及项目的监督管理和组织实施。
      (八)制定垦区农产品商品基地、良种生产基地建设和种植业、养殖业及农业机械化发展措施,并组织实施;指导农垦农业产业化和社会化服务体系建设。
      (九)制定农垦工业、第三产业行业发展措施并指导实施;负责国家安排物资的分配与管理;指导垦区农产品流通体制改革、市场体系建设和农垦企业管理。
      (十)制定农垦系统科研、技术推广中长期规划和年度计划并监督实施;组织实施重大科研推广项目;协调、指导农垦质量、标准工作。
      (十一)负责全国农垦统计工作,发布全国农垦的社会经济信息,指导农垦系统信息体系建设。
      (十二)组织垦区的国际合作与交流,监管有关外资项目。
      (十三)组织国家确定的垦区贫困农场的扶贫开发工作,制定扶贫开发计划和措施,负责扶贫资金的监管。
      (十四)制定农垦职工培训政策、规划和计划,并组织实施;指导垦区文化、教育、卫生、城镇建设等其他社会事业的发展;指导垦区社会保障体系建设;指导垦区抗灾救灾和疫病防治工作。

    乡镇企业局
      乡镇企业局职责任务
      (一)研究提出有关乡镇企业法律、法规、规章草案,经发布后组织监督实施。
      (二)研究提出有关发展乡镇企业的政策措施,经批准后组织监督实施。
      (三)研究提出乡镇企业发展战略、规划和计划;指导乡镇企业改革。
      (四)指导乡镇企业结构和布局调整,引导地区间经济技术合作。
      (五)指导乡镇企业科技开发、技术改造、科技创新奖项的评审及科技成果的转化、推广。
      (六)指导乡镇企业经营管理、财务会计和内部审计工作。
      (七)组织乡镇企业统计工作,进行乡镇企业经济运行情况分析。
      (八)指导乡镇企业外经外贸工作;负责民间国际交流团组的审核报批。
      (九)协调和指导乡镇企业科技创新、教育培训、质量监测和信息等服务体系建设。
      (十)完成部领导交办的其他工作。

    渔业局(中华人民共和国渔政渔港监督管理局)
      渔业局(中华人民共和国渔政渔港监督管理局)职责任务
      (一)研究提出渔业发展战略、发展规划和计划、技术进步措施以及相关的法律、法规和重大政策建议,并组织实施。
      (二)负责渔业行业管理,指导渔业生产结构和布局调整,提出国家用于渔业行业的投资方案,并组织实施;承办建设项目和重大示范性项目的遴选审查及组织实施和验收工作,承办渔业科技项目的初审,会同有关部门组织实施和监督检查。
      (三)拟定保护和合理开发利用渔业资源、保护渔业水域生态环境和水生野生动植物的政策措施及规划,并组织实施。
      (四)代表国家行使渔政、渔港和渔船检验监督管理权;负责渔政渔港监督管理和渔业电信工作,监督渔业法规的执行,提出全国渔业行政执法队伍建设规划和措施并指导实施,处理重大的涉外渔事纠纷。
      (五)提出水产品加工业发展和水产市场体系建设规划;组织协调渔业质量与标准化管理工作,组织拟定渔业标准、技术规程、质量管理规范并监督实施。
      (六)组织实施水生动物的防疫、渔药使用监督管理工作,参与起草有关法律法规;负责起草国家标准和行业标准,并组织实施;参与渔用饲料的监督管理。
      (七)参与组织制定并监督执行国际渔业公约和双边、多边渔业协定,组织开展国际渔业经济技术合作;负责远洋渔业规划、项目的审核及协调管理。
      (八)负责渔业统计和渔业信息发布。
      (九)完成部领导交办的其他工作。

    国务院扶贫开发领导小组办公室
      国务院扶贫开发领导小组办公室职责任务
      (一)调查研究并提出扶贫开发和促进贫困地区社会经济发展的方针、政策和规划,经批准后组织实施。
      (二)动员和组织社会各界参与支持贫困地区的开发建设。
      (三)协调和组织中央国家机关定点扶贫工作。
      (四)协调和组织东部发达省市支持西部贫困省区的东西扶贫协作工作。
      (五)拟定贫困人口和国定贫困县的扶持标准,指导扶贫系统统计信息工作。
      (六)负责对扶贫开发情况和贫困地区社会经济发展状况的统计和监测工作。
      (七)拟定中央扶贫资金的分配方案,指导、检查和监督扶贫资金的使用,指导有关重点扶贫项目。
      (八)组织开展扶贫开发宣传工作。
      (九)负责外援扶贫项目和有关扶贫的国际交流与合作。
      (十)负责贫困地区干部培训工作。
      (十一)承办国务院扶贫开发领导小组的日常工作及交办的其他事项。

    机关党委
      机关党委职责任务
      (一)宣传和执行党的路线、方针、政策,以及党中央、上级组织和本组织的决议,发挥党组织的战斗堡垒作用和党员的先锋模范作用,围绕我部中心任务开展工作。
      (二)组织党员干部学习马列主义、毛泽东思想、邓小平理论和党的路线、方针、政策以及决议,学习科学、文化和业务知识。
      (三)负责在京直属单位党组织和党员的管理工作,指导做好发展党员工作。
      (四)协助部党组管理机关党组织和群众组织的干部;配合干部人事部门对机关行政领导干部和在京直属单位党委、纪委领导班子进行考核和民主评议;对机关行政干部的任免、调动和奖惩提出意见和建议。
      (五)了解掌握干部职工的思想动态,做好思想政治工作,协调机关及在京直属单位社会主义精神文明建设工作;负责部直属机关党建研究会、思想政治研究会工作。
      (六)领导部机关纪委开展工作,全面履行"保护、惩处、监督、教育"职能,对党员进行监督,严格执行党的纪律,加强党风廉政建设。
      (七)领导机关工会、共青团、妇工委等群众组织,支持这些组织依据各自的章程独立负责地开展工作。
      (八)协助部党组做好统战工作。
      (九)完成部领导交办的其他工作。

    中央纪委驻农业部纪检组、监察部驻农业部监察局
      中央纪委驻农业部纪检组监察部驻农业部监察局职责任务
      (一)检查和督促农业部部属单位及党组织、党员领导干部和部机关行政职能部门及其工作人员贯彻执行党的路线、方针、政策、决议和国家法律法规及国务院、农业部的决定、命令的情况;对同级党组织及其成员和其他党员领导干部实行党章规定范围内的监督。
      (二)贯彻中央纪委、监察部和农业部党组关于纪检监察工作的指示、决定,指导农业部系统的纪检监察工作。
      (三)贯彻执行中共中央、国务院、中央纪委、监察部和农业部关于党风廉政建设的决定、指示,协助同级党组织抓好党风廉政建设工作,会同有关部门组织、督促实施并进行检查。
      (四)承办部属单位党员领导干部违反党纪的案件和其他重要违纪案件的核实、检查工作,并提出处理意见。
      (五)调查处理部机关公务员、部直属单位及党组任命(聘任)的部直属单位的领导干部违反国家政策、法律法规以及违反政纪的案件。
      (六)负责来信来访举报工作;受理部机关和部属单位党员的控告、检举和申诉,保护党员的民主权利;受理对监察对象违反政纪行为的检举、控告以及监察对象不服行政处分的申诉;依照国家的有关政策、法律和法规,保护监察对象依法行使职权。
      (七)宣传纪检监察工作的方针、政策,抓好党风党纪、政纪、反腐败的宣传教育;对部机关及部属单位党风、廉政建设情况及贯彻党和国家政策、法律法规情况进行调查研究,提出对策和建议。
      (八)对部属单位纪检监察部门负责人的配备、任免提出审核意见。
      (九)协调和指导农业系统行业纠风工作和执法监察工作。
      (十)完成中央纪委、监察部和部党组、部领导交办的其他工作。

    离退休干部局
      离退休干部局职责任务
      (一)贯彻党中央、国务院有关离退休干部工作的方针、政策,并根据离退休干部统一管理,待遇分开的原则,具体拟定农业部的实施办法。
      (二)按规定组织落实离退休干部的政治和生活待遇;组织离退休干部开展有益于身心健康的政治文化、体育、娱乐活动;组织发挥离退休干部在社会主义两个文明建设中的作用。
      (三)负责离退休干部的信访工作,并注意收集、听取离退休干部的意见和要求,会同有关部门合理解决他们的实际问题;受理离退休干部的易地安置工作,落实易地安置干部的待遇,处理离退休干部的历史遗留问题。
      (四)会同有关部门办理离退休干部的丧葬和善后处理事宜。
      (五)负责部机关离退休干部的各项经费的管理,负责部机关离退休干部活动的基础设施建设。
      (六)负责对部属单位离退休干部工作的检查指导。
      (七)完成部领导交办的其他工作。

    中华人民共和国常驻联合国粮农机构代表处
      中华人民共和国常驻联合国粮农机构代表处职责任务
      (一)协助国内开展与联合国粮农组织、世界粮食计划署、国际农业发展基金会三个国际组织的合作与交流,配合国内做好多边外交工作。
      (二)协助国内有关部委争取外援,引进农业领域的资金、技术和人才。
      (三)开展与有关国家驻罗马的外交机构的合作与交往,加强沟通,增进了解,协调立场。
      (四)配合驻意使馆开展与意大利的双边农业交流与合作。
      (五)收集国际农业和粮食问题的动态信息,对国际粮农政策和形势开展调研,为国内决策提供咨询服务。
      (六)负责国内参加国际粮农机构各种活动的代表团组的接待和联络工作。
      (七)完成国内交办的其他工作。

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