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

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

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

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

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

", "

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

", "

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

", "

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

", "

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



    根据国务院[1994]22号文,国家开发银行于1994年3月成立,注册资本500亿元人民币,100%政府拥有,直属国务院领导,是中国三家政策性银行中最大的一家,是除中国人民银行外唯一正部级金融机构
    主要职能:
    支持基础设施、基础产业和支柱产业项目建设
    支持国家区域发展政策
    承担国际金融组织转贷款业务
     
    开发银行介绍

    一、国家开发银行是何时成立的?其主要任务是什么?
       经国务院批准,国家开发银行成立于1994年3月17日,是中国唯一具有正部级级别的政策性金融机构,直属国务院领导,在银行业务上接受中国人民银行的监管。 国家开发银行的主要任务是:根据国民经济发展的战略目标和发展方向,以国家信用为基础,依靠市场发债,筹集和引导境内外资金,遵循金融规则,利用各种现代金融工具,为国家基础设施、基础产业、支柱产业和高新技术产业重点建设项目提供金融服务,促进国民经济持续、快速、健康发展。 自成立以来,国家开发银行在国家经济建设的各个领域中发挥了重要的作用,重点支持了电力、铁路、公路、石油石化、电信和城建等行业。国家开发银行力求通过其金融活动,平衡中西部地区和沿海地区的经济发展水平,引导和调节国家固定资产投资的总量和结构。

    二、国家开发银行与政府的关系怎样? 国家开发银行与政府的关系怎样?
       1.与国务院的关系:国家开发银行的经营活动直属于国务院领导。根据国务院[1994]22号文,国家开发银行的章程由国务院制定,任何修改均需经国务院同意。国家开发银行的行长、副行长及监事会成员由国务院直接任命。
      2.与财政部的关系:国家开发银行由政府全资拥有。根据国务院[1994]22号文,国家开发银行的注册资本为500亿元人民币,全部由财政部负责拨付。根据财政部和国家税务总局的规定,国家开发银行的所得税和营业税享有一定的先征后返政策,返还的税收将作为国家对国家开发银行的资本金注入。此外,财政部还通过对国家开发银行的部分贷款项目提供财政贴息间接地支持国家开发银行。由于国家开发银行在中国经济中的重要地位,财政部承诺将继续根据国家开发银行的资产增长情况适时补充资本金。
      3.与人民银行的关系:根据国务院[1994]22号文,在遇有流动性短缺时,中国人民银行有义务向国家开发银行提供短期贷款。这种短期贷款没有期限和金额上的限制。根据国家开发银行的信贷计划,中国人民银行将保证国家开发银行获得充足的长期资金来源。由于国家开发银行在实施宏观经济政策方面具有重要作用,中国人民银行承诺将一如既往地向开发银行提供强有力的支持。
       4.与国家计委、国家经贸委的关系:1997年以前,国家开发银行主要从国家计委和国家经贸委推荐的项目中挑选贷款项目。1998年以后,国家开发银行逐步面向市场,建立了贷款项目的市场开发机制,同时,对国家计委、国家经贸委的推荐项目,进行严格评审,自主决策。
       5.与地方政府的关系:国家开发银行和全国27个省区市政府签署了金融合作协议,构筑信用结构。各省区市政府在项目推荐、本息回收等方面均对国家开发银行提供必要的支持。 国家开发银行还是政府的转贷机构。根据国务院1998年4月下发的关于政府机构改革和职能转换的文件,国家开发银行被授权负责世界银行和亚洲开发银行给中国政府贷款的转贷工作。

    三、国家开发银行的注册资本是多少? 国家开发银行的注册资本是多少?
       根据国务院[1994]22号文,国家开发银行的注册资本是500亿元人民币,全部由财政部负责拨付。截止2001年6月底,国家开发银行的资本总额已达到560亿元人民币,按中国人民银行的标准,资本充足率为8.27%。

    四、国家开发银行的主要资金来源是什么? 国家开发银行的主要资金来源是什么?
       国家开发银行的主要资金来源包括:资本金、向国内金融机构发行人民币金融债券、吸收与贷款项目有关的存款、境外筹资以及向中国人民银行申请再贷款等。 在境外筹资方面,出口信贷、境外发债、商业贷款、政府贷款和国际金融组织贷款是国家开发银行的主要筹资手段。

    五、国家开发银行的资产质量如何?不良资产的比率是多少? 国家开发银行的资产质量如何?不良资产的比率是多少?
       国家开发银行非常重视本行的资产质量状况,从贷款的受理、评审、发放到本息回收的信贷管理全过程都建立了一套严格的风险防范措施,有效地提高了资产质量。 根据中国人民银行贷款五级分类指导原则,国家开发银行2000年12月31日不良资产(次级、可疑、损失类资产之和)占资产总额的比例为8.51%,2001年9月30日该项指标仅为7.63%。

    六、国家开发银行选择贷款项目的标准是什么? 国家开发银行选择贷款项目的标准是什么?
       国家开发银行选择贷款项目的标准主要有: 1、 项目符合国家宏观经济政策、产业政策和区域发展政策; 2、 借款人达到国家开发银行客户信用评级BBB级(含BBB级)以上; 3、 项目建设资本金比例符合国家要求; 4、 项目有较好的市场前景、具有还本付息能力; 5、 具有完善的信用结构。

    七、国家开发银行贷款主要投向的行业是那些? 国家开发银行贷款主要投向的行业是那些?
       国家开发银行贷款主要用于国家基础设施、基础产业、支柱产业以及重大技术改造和高新技术产业化项目建设。贷款主要投向的行业为: 1、 基础设施:铁路、公路、民航、城市基础设施、电信、水利等; 2、 基础产业:电力、石油等; 3、 支柱产业:石化、机械(重大技术装备)、电子等; 4、 其他:环境保护、高科技产业等。

    国家开发银行改革与发展的若干问题

    开发银行是怎样支持经济发展的?
      开发银行成立以来,积极贯彻国家政策,大力支持经济增长和结构调整。 --通过国家信用证券化,初步建立了长期稳定的资金来源。开行没有零售存款,利用发债筹资,发挥灵活稳定、数额大、成本低的优势,有效地把商业银行的短期存款转为长期资金。    1994至2000年,累计发行金融债券8272亿元,存量总额6382亿元,平均期限6.76年,市场化发债占发债总额的40.26%,外债发行总额11.18亿美元,我行金融债券余额占中央国债登记公司托管总额的39%,中长期贷款新增额占国有银行中长期贷款新增额的37%,近三年占基建贷款新增额的49%,在我国中长期信贷市场和资本市场占有重要地位。  --支持国家重点建设。在开行累计发放贷款总额中,列入国家投资计划的占89%,贷款支持了国家重点项目263个,发放贷款3495亿元,占国家重点项目贷款总额89%。承诺国债项目贷款2072亿元,已发放贷款1378亿元,占国债项目配套贷款38%。  --支持产业结构调整。支持重点由"九五"初期的电力、煤炭、铁道、化工、石化和钢铁行业(占比78.8%),调整到目前的电力、公路、铁道、城建、石油石化和电信六大行业(占比91.9%)。1994至1999年,在主要行业新增生产能力中,开行贷款项目新增生产能力的比重为:天然气原油开采72.6%,原煤开采72.5%,铁路新线、复线投产里程91.9%,电气化铁路交付93.8%,沿海港口新增吞吐能力57.9%,电力装机容量50.2%(其中火电40.35%,水电67.46%,核电100%),新建高速公路27.2%。  --支持中西部地区发展。成立以来累计安排中西部贷款占贷款总额60%以上,其中西部地区项目贷款近30%,重点支持了电力、铁路、油田、公路、城市基础设施和重大原材料项目。为了支持西部大开发,我行还提供了技援贷款,用于项目开发前期工作。  --支持国企改革和发展。通过项目评审,促进国有企业建立项目法人制度和资本金制度,为完善现代企业制度作出了努力。为帮助企业解困,近两年核销呆坏帐101.66亿元,剥离不良资产1000亿元,自费办理债转股399亿元,既改善了银行资产状况,又使部分国有企业摆脱了困境。

    开发银行的经营业绩怎么样?
      2000年以来,开发银行整体经营情况一直保持良好的发展态势,其中一些经营指标已经达到并保持了国际先进银行水平。 2001年1~3季度,国家开发银行累计本息回收率92.84%,比去年同期上升7.34个百分点;当期本息回收率99.79%,与去年同期基本持平;三季度当季本息回收率99.43%,并连续7个季度保持在98%以上的高水平。截至9月底,整体不良资产率7.63%,比二季度下降0.74个百分点。 2001年上半年,开发银行本息回收达到同行业最好水平,当期本息回收率达99.81%,资产质量稳步提高,整体不良资产率达8.37%,比年初降低0.14个百分点;信贷资产质量有较大幅度提高,不良贷款率为7%,比年初下降1.78个百分点。资金管理效益增加,利润稳步增长。 2000年,国家开发银行发放人民币贷款1687亿元,发放外币贷款超过13亿美元,资金来源主要包括发行金融债券1450亿元和吸收客户存款103亿元两大部分。截至2000年底,资产总额8083亿元,比上年末增长17.8%;负债总额7543亿元,比上年末增长18.8%。全年在提取专项呆帐准备金14.77亿元之后,实现帐面利润20.59亿元,达到历史最好水平;按五级分类,不良贷款率已降到8.78%,比年初下降9.88个百分点;按照较严格的回收指标,当期本息回收率达99.24%,累计本息回收率91.05%;费用率为1.55%,财务费用继续保持良好状况。 1999年,国家开发银行新发放贷款1568亿元,其中外币贷款共折合人民币127亿元;资金来源主要是发行人民币金融债券1581亿元,外币出口信贷7.58亿美元,境外发行外币债券5亿美元。截至1999年底,资产总额6864亿元,比上年末增长30.6%;负债总额为6345亿元,比上年末增长33.0%,实现净利润6.84亿元,比上年增长1.8%。通过加强项目监管,密切关注借款人经营状况,1999年底不良贷款下降为18.66%。 1998年,国家开发银行共筹措资金1675.97亿元,发放贷款1648.13亿元。截至1998年底,贷款余额5136.38亿元,实现营业收入386.56亿元,利润总额9.88亿元,净利润6.72亿元,按五级分类不良贷款率为32.63%。

    开发银行的本质特征和运行模式是什么?
      世界上的政策银行有两种模式:第一种模式,是以财政融资为基础。其特征是有强有力的财政支持,包括长期大量提供无偿或低成本的财政性资金来源、财政担保、亏损补贴、税收优惠等,属于财政投融资范畴。这种模式的典型是日本开发银行。这类政策性银行的任务实现有限的财政政策目标,也可在一定程度上利用信贷融资的功能,本质上不要求资产质量,做商业银行不愿意做的事情,弥补市场的缺陷,是运用财政性资金以财政融资方式去实现政策性目标。 第二种模式,是以信贷融资为基础。其特征是依靠国家信用在市场上融资,财政提供担保和一定的支持,是运用信贷融资规则和方式来实现政府的政策目标,弥补商业银行在长期融资上的缺陷,弥补资本市场发育不足的缺陷。这种模式的政策性银行,一般都具有较高的债信等级和完善的经营机制及手段,对资产质量要求高,以有效实现政策性目标。如德国复兴信贷银行。 两种模式的区别在于:以财政融资为基础的政策性银行,是财政政策的延伸,可实现一部分财政政策目标,不以资产安全为第一位;以信贷融资为基础的政策性银行,其本身就是市场的重要组成部分,在保证资产安全的前提下,为经济发展提供持续不断的和扩大的支持。 但无论哪种模式,政策性目标不是随意确定的,是由融资基础决定的。特别是以信贷融资为基础的政策性银行,超出融资基础去实现财政政策性目标,是盲目的、错误的,不能用信贷机构去实现财政政策目标。应汲取过去混淆财政融资和信贷融资的教训,制止财政融资以各种方式侵蚀信贷融资,不能再造成风险和大量不良贷款,不能再继续引起思想上的混乱,要严格规定财政融资和信贷融资相分离的原则,划分界限,杜绝财政融资目标混入信贷融资之中。除非国家设立财政性融资政策性银行,否则就不允许任何银行承担财政融资的任务,损害资产安全,造成金融风险。 我国政策性银行的基本特征和运行模式是以信贷融资为基础。开发银行在实际运行中形成了以信贷融资为基础的模式,除财政提供资本金、部分税收返还外,一开始就凭借国家信用在市场上筹集资金,成为市场的重要组成部分。而1994年我国设立政策性银行时,并没有明确是以财政融资为基础,还是以信贷融资为基础,没有明确设立财政融资和信贷融资之间的严格界限和防火墙,财政融资侵蚀信贷融资,使政策性银行在信贷融资的基础上承担了相当多的财政政策任务,没有按照信贷融资规则运行,造成了一些新的风险。更严重的是思想和工作上的混乱,使这个问题长期得不到解决,成为当前的突出矛盾,成为影响金融稳定、政策性银行发展和市场经济发展的障碍。这是当前第一位的问题,需要引起重视和急需解决,而且对信贷融资中出现的交叉、分工、合作需要正确认识。 政策性银行的改革发展无非是两条路:一是建立财政融资为基础的政策性银行体系,在目前条件下走这条路是不现实的;二是完善目前的信贷融资为基础的政策性银行,一方面要强化政府的支持,落实国家信用,加强政府对市场信用和市场秩序的监管,用法律约束,创造良好的信用环境;另一方面,给政策性银行以必要的市场手段和银行功能,使政策性银行能够有效地实现政策性目标。

    国外开发性金融机构的通行规则是什么?
      研究政策性银行的问题,要从事实出发,从实践出发,要尊重国际经验和国际惯例。从国际范围看,政策性银行都在随着经济的发展而取得新的发展,职能和作用进一步增强。 20世纪40年代以后,政策金融在各国经济发展特别是经济起飞阶段,成为政府推行经济政策的有力工具,起着重要而独特的作用。90年代以来,政策性银行积极运用新的金融手段,包括项目融资、组合金融、企业并购、债务重组、承销债券和风险投资等业务,为政策性目标服务。在当今市场经济发达国家,如德国、日本、韩国等,政策性银行仍很兴旺,规模中等,作用很大,日韩两国政策性银行还在亚洲金融危机中,承担了处理危机的重任。新加坡发展银行转型,是因为新加坡基础设施有限,后来转向支持信息、电子、生物技术等高科技领域的融资,尽管现已上市,但仍是本国资本输出、融资及对外发展、支撑新加坡成为国际金融中心政策目标的重要支柱,仍然执行其国策。 世界上政策性银行的核心是政府信用(或多个国家政府的联合主权信用,如世行、亚行等),把政府信用在资本市场、债券市场证券化变成筹资能力,债信级别高,规模适度,而资金投放必须是安全、能收回的,管理是专业的、高效的。 与国际惯例和通行规则相比,开行同样作为贯彻国家宏观经济政策的工具,在国家信用、债信级别、债券筹资、在资产质量、盈利能力、专业化管理、风险控制等方面,是基本一致的。但差别也是明显的,最大的差别,是开行缺少强有力的财政支持和完善的功能手段。

    开发银行的资金来源是什么?
      开行的资金来源除资本金是财政拨款外,信贷资金来源都是市场发债,是要对投资者还本付息的,而不是财政性资金。 银行的一个基本功能就是使资金续短为长,商业银行将储户和存款人的资金续短为长,开发银行将国家信用证券化,在金融市场发债筹集长期资金,将众多商业银行和金融机构的资金续较长为更长。这是国际惯例,德国复兴开发银行就是如此。1998年以来,开发银行开始实行市场化发债,建立了债券承销团发债机制,已经成功发行37期金融债券,保证了开发银行及时足额筹集到所需资金。人民银行再贷款一直不是开发银行的主要资金来源。2000年开发银行向人行借款的余额保持在140亿元,年底存放人行的款项为43.5亿元,净借款96.5亿元,仅占开行全部负债的1.3%。与商业银行一样,开行主要利用人行再贷款调剂临时资金头寸,与基础货币之间没有直接联系。开行债券规模是控制在国家信贷计划和债券发行计划范围内,受人民银行和其他机构监管的,同时由于债券通过银行间市场发行,发行规模受市场需求的约束,不在存在随意性。 开发银行资金来源与资金运用的期限结构没有突出矛盾。期限调换是政策性银行的基本功能,体现了政策性银行的价值和生存空间。2000年底,开行贷款的加权平均剩余期限为5.15年,金融债券加权平均剩余期限为4.88年,两者缺口仅为0.27年,期限错配问题并不严重。由于开发银行自身存在资本金、相关项目单位存款和本息回收,以及贷款和资本市场业务相结合等因素,信贷和发债规模不是无限扩大的。根据我们对未来资产和负债的测算,按照每年增加贷款1500亿元,到2005年当年的本息回收就超过了债券还本付息的数量;2007年达到信贷平衡点,信贷资产总量不再扩大,债券余额开始下降,贷款本息回收足以支付债券还本付息,债券发行量大幅度减少并基本稳定,不再"借新债还旧债"。

    开发银行信贷风险的锁定
      亚洲金融危机之后,我们抓住时机进行调整,有效地化解了风险。目前开发银行的风险在总体上是被锁定的。一是开行有债券银行的体制优势,通过市场发债对短期资金进行转换,能对冲和锁定一部分长期风险。二是开行服务于国家宏观经济目标,风险主要取决于宏观经济走势,只要不出现大的经济波动,资产质量就有保证。三是开行风险控制半径和责任链短得多,操作风险小,评审和决策集中在总行,评审能力强,贷款审查和决策设有防火墙,分行主要是贷后管理和本息回收。四是开行的经营稳健,规模适度,能够保持动态平衡。当然我们也看到,目前中国的国企改革尚未到位,道德风险严重,外部环境不宽松,开行还面临一定的风险。但在已有业绩和经验的基础上,防范风险的问题我们能解决,也有把握解决。

    开发银行的职能定位是什么?
    我国政策性金融是以信贷融资方式实现政府的政策目标而进行的金融活动。职能定位应在信贷融资规则和方式的前提下确立。具体确定政策性银行的职能定位,应体现以下几个原则: (1)在维护和巩固信贷融资的基础上,严格划分信贷融资和财政融资的界限,杜绝财政融资侵蚀信贷融资,政策银行体现政府政策导向,对国家经济政策的贯彻实施起支持、促进作用。(2)坚持信贷融资规则和市场原则,运用市场手段。在金融市场中,政策性银行是弥补商业银行的缺陷,弥补资本市场发育不足的缺陷。商业银行以柜台储蓄存款为基础,受保支付、零售和集中大额资金能力的限制,承担不了过多的长期贷款。而政策性银行是在各自专业领域发挥功能和作用。长期投资今后要让位资本市场,但现在基础设施长期融资还未转向资本市场,开行有条件弥补资本市场发育的不足。(3)政策性银行与商业银行的区分不是在效益上切一刀,而是要在长短期信贷上有所区分和分工。政策银行也要讲效益、讲管理、讲风险,要按市场方式和金融规律运作。 开发银行的职能定位,是依靠国家信用,以市场发债为基础,按照信贷融资规则,为国民经济有重大影响的产业提供长期融资,一定时期内还是支持基础设施、基础产业、支柱产业和高新技术产业的重大项目建设。

    开发银行的职能定位是什么?
    我国政策性金融是以信贷融资方式实现政府的政策目标而进行的金融活动。职能定位应在信贷融资规则和方式的前提下确立。具体确定政策性银行的职能定位,应体现以下几个原则: (1)在维护和巩固信贷融资的基础上,严格划分信贷融资和财政融资的界限,杜绝财政融资侵蚀信贷融资,政策银行体现政府政策导向,对国家经济政策的贯彻实施起支持、促进作用。(2)坚持信贷融资规则和市场原则,运用市场手段。在金融市场中,政策性银行是弥补商业银行的缺陷,弥补资本市场发育不足的缺陷。商业银行以柜台储蓄存款为基础,受保支付、零售和集中大额资金能力的限制,承担不了过多的长期贷款。而政策性银行是在各自专业领域发挥功能和作用。长期投资今后要让位资本市场,但现在基础设施长期融资还未转向资本市场,开行有条件弥补资本市场发育的不足。(3)政策性银行与商业银行的区分不是在效益上切一刀,而是要在长短期信贷上有所区分和分工。政策银行也要讲效益、讲管理、讲风险,要按市场方式和金融规律运作。 开发银行的职能定位,是依靠国家信用,以市场发债为基础,按照信贷融资规则,为国民经济有重大影响的产业提供长期融资,一定时期内还是支持基础设施、基础产业、支柱产业和高新技术产业的重大项目建设。

    开发银行如何面对"入世"?
    国家开发银行作为中国的开发性金融机构,在基本建设融资领域发挥着主力银行的作用。我们的既定目标,就是办好银行、支持经济发展。面对"入世",我们有信心有能力办成世界一流银行,为中国的金融体系建设作出贡献。 开行已在实践中走出了一条办好银行的路子。一是确立了办成世界一流的现代化银行的目标,确定了与国际接轨的八条标准。由于经验和能力不足,我们采取"拿来主义",直接应用发达国家比较成熟的经验和技术,实现跨越式发展。为此,我们成立了国际顾问委员会,聘请波士顿咨询公司进行诊断,聘请安达信公司进行外部审计,借鉴国内外先进方法设置信贷管理流程,推进电子银行建设,全方位加快与国际接轨。二是明确了市场定位,服务于国家宏观经济。我们依靠国家信用,以市场发债为基础,按照信贷规则,发挥开发性金融机构的优势,为国民经济有重大影响的产业提供长期融资,集中力量支持基础设施、基础产业、支柱产业和高新技术产业的重大项目建设。三是大胆尝试,构建信用结构。我们以国家信用为基础,企业信用为根本,法律为保障,发挥地方政府和行业主管部门的组织优势,运用资本市场手段,加强社会监督,以对信用缺损进行平衡和补充。四是坚持以本息回收和提高资产质量为中心,实行本息回收与项目贷款、评审、受理"三挂钩",杜绝人情贷款和奉命贷款。开发银行实践和业绩充分证明,中国的银行是能够办好的。 适应加入世贸组织的新形势,最近我们提出要在经营管理上尽快达到"五个世界一流",即世界一流的业绩、一流的业务发展、一流的管理水平、一流的员工队伍、一流的保障体系,进而在整体上达到国际一流银行的水平。在推进业务发展中,我们将发挥批发银行的优势,着力加强与商业银行的合作,把资本市场的原理用于信贷,推动银团贷款,发挥信贷融资的整体合力,扩大金融系统的稳定性,防范和降低风险,进一步提高资产质量,加速赶超国际先进水平。

    国家开发银行
    地址:北京西城区阜外大街29号
    邮编:100037
    热线电话:86-10-68307304
    人事部门: Tel:68307518 68307554 Email:zhaopin@cdb.com.cn
    企业债券承销咨询:86-10-68306991
    传真号码:86-10-68311517
    电子邮箱:webmaster@cdb.com.cn

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