<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 罗冰:富海做自己最擅长的事
    罗冰:富海做自己最擅长的事   类型:创业辅导



    九曲黄河,奔流不息,它以天然伟力造就了雄奇壮阔的黄河三角洲,这里风景秀美、人杰地灵。在这片年轻的土地上,一个现代化的企业――富海集团有限公司应运而生。短短几年的时间,她如一艘鼓满风帆的大船,乘长风,济沧海,驶入市场经济的海洋。多年来,集团董事长以“每天超越自我,时刻追求卓越”的经营理念,带领“富海团队”实施多样化经营战略,实现了跨越式发展,用义无返顾的追求书写着黄河骄子的风采。

    他,一个铁骨铮铮的山东汉子,憨厚、朴实、果敢、自信;他,又有别于一般的山东汉子,成熟、睿智、稳重、超前。

    从5年前的一千万元启动资金,到现在的2.86亿元总资产;从单纯的运输经营到今天的融建筑安装、房地产开发、餐饮娱乐、物业管理、货物运输、石油化工诸多行业于一体的大型有限公司;从成立之初的三个子公司发展到如今的石化公司、运输公司、建安公司、房地产开发公司、富海餐饮公司、物业公司六个子公司,和胜利油田国际石油开发投资有限公司、东营长安酒店有限公司两个参股公司。他,是奇迹的缔造者,是搏击商海的弄潮儿。他,就是东营市政协委员、东营富海实业有限公司董事长罗冰。

    我从未退缩过

    经济导报:罗董事长你好!前不久,公司刚刚度过了自己的6岁生日,回顾6年的创业历程,你感触最深的是什么?

    罗冰:今年3月18日,是富海公司成立6周年的日子。回顾公司6年来走过的道路,虽然曲折坎坷,但却充满了创业的激情和收获的喜悦。6年来,最令我感到欣慰的是,拥有了一个团结实干、开拓进取的班子,拥有了一支敢打硬仗、勤奋敬业的员工队伍。

    在6周年纪念会上,我就和全体职工说:我们不能忘记过去!忘记过去,就等于忘记历史。富海集团之所以发展到今天,之所以有今天的成绩和规模,是所有经营者和全体员工共同努力的结果。没有昨天的付出,就不会有今天的收获;没有过去创业的艰辛,就不会有现在初步成功的喜悦。可以说,我们走过的每一步,我们经历的所有挫折和取得的每一点成绩,都凝聚着大家的心血和汗水,所有这些,不但我们自己永世不忘,成为我们进一步发奋图强、开创未来的不竭的精神源泉,还将成为我们教育后代、引导子女艰苦创业、奋发有为的重要资源。我们共同用自己的双手创下的这份事业,已经和我们自己的未来、家庭的幸福、后代的成长紧紧地联系在一起。

    经济导报:听说你当时才25岁,是区政府最年轻的中层干部,从政应该说是前途无量,你出于怎样的考虑毅然辞职下海?

    罗冰:当时,我在河口区政府办公室工作,担任着值班主任、小车队长、区政府招待所副所长等多个职务,许多人的确做梦也想不到我会“下海”。1992年春天邓小平同志南巡讲话后,我就陷入了到社会下海创业还是继续在机关工作的思考和选择之中。下海经商,自己一无资金,二无技术,搞不好会呛一大口水;而继续在机关工作,将来提个一官半职,不成问题,以后的生活肯定会一帆风顺、衣食无忧。

    但经过反复权衡,1992年12月30日,我终于痛下决心,不顾家人的强烈反对和朋友们的善意劝阻,毅然决然地辞去所有职务,投身商海。

    当时,我每月的工资只有100多元,还有一个刚刚两周岁的孩子。

    辞职下海的时候,我身上揣着自己省吃俭用积攒下的工资和出差费总共700多元钱,办完注册登记、交纳完各种规费,双手捧到营业执照的时候,我已经一分钱都没有了,真的是房无一间,地无一垅,连个立锥之地都没有。最后,在领导的关心和朋友的帮助下,借了一间房子作为办公室,连上线和别人共用一部电话机,就这样,开始了自己12年的创业之旅。为了筹集开拓业务必须的资金,在借钱无门、贷款无路的情况下,我从一个乡镇供销社以高价赊进化肥,再以低价赔本卖给农民,用这种办法,我筹集了自己第一笔较大额的周转金,再以自己的经营所得去偿还供销社的赊欠。其间所饱尝的酸甜苦辣、人情冷暖,不是一句话两句话就能说清。我曾经驾驶大货车连续行驶近20个小时,也曾十几天身上只有几十块钱。但我心中有个美好的梦想,我从未退缩一步。经过6年辛苦打拼,公司的事业逐步有了起色。

    进退有序成大业

    经济导报:我在你的简历中注意到,下海后,你还曾经在华联石油化工厂担任过一段时间的副厂长。

    罗冰:情况是这样的,1997年,正当我准备进驻东营开发区,再谋新的发展的时候,区领导找到我,要我去华联石油化工厂任副厂长,主要负责原材料的购进工作。我思前想后,觉得一个人不能光想着自己挣钱,关键时刻,还应为一直关心自己的领导排忧解难,为区里做点力所能及的贡献。就这样,我找到当时任团市委书记、之前担任东营市经济开发区管委会副主任的田治颖书记,退掉了在东城黄金地段以每亩5万元取得的一宗土地,来到华联石油化工厂任职。

    经济导报:假如你那时不退,现在可是一大笔财富。

    罗冰:现在,那块地每亩100万也买不到了!虽然说自己在经济上受了很大的损失,但我无怨无悔。来到化工厂后,为了企业的发展,自己毕竟做出了一定的贡献,在化工厂资金紧张,原料款不能及时兑现的情况下,先后协调购进原油30余万吨,在一定程度上缓解了原材料供给不足的矛盾。另外,在这个行业我得到了许多金钱买不到的东西,为日后的创业打下了基矗经济导报:说起来,富海公司应该是在这段时间成立的。

    罗冰:是的。1998年3月18日,我作为主要发起人,注册成立了富海公司,当时的主要目的是想为化工厂提供产前产后服务。

    经济导报:当时的注册资金有多少?

    罗冰:当初,公司名称是东营市河口区富海有限责任公司,注册资金为1000万元;后来,随着业务发展的需要,又更名为东营富海实业有限公司,注册资本增至2100万元。刚开始,我们主要以服务河口石油化工厂为主,公司所属的运输公司、原油供应公司、成品油销售公司分别从不同的方面支持化工厂的生产和经营。

    2000年元月份,在成品油市场低迷的情况下,市石油公司退出了化工厂的经营。我意识到富海公司面临着一次很好的发展机遇,最终决定自筹资金启动化工厂的经营。然而,事事难料,正当我们的经营红红火火、收益丰厚的时候,化工厂的情况发生了重大变化,我们被迫退出化工厂的经营。

    经济导报:从化工厂被迫退出,对公司来讲应该说是痛苦的,对你本人来说也算是个不小的考验。

    罗冰:创业过程中,一些挫折是难免的,关键看你有没有毅力,能不能挺过来。现在,反过来看,受点挫折有时候不见得就是坏事,假如没有当初这次挫折,或许公司发展不到如此规模呢!我想古人说的“塞翁失马,焉知非福”就是这个道理。

    从化工厂退出后,为了争取生存空间,我们做了大量的工作,经过积极努力,2001年1月21日,我们投资1800万元参股济军基地石油化工厂,改制成立了有限责任公司,业务范围开始向更广阔的领域迈进。

    2002年,区政府为了启动化工厂的生产,和富海公司一道积极推进华联石油化工厂和济军基地化工公司的整合重组,经过长时间的协商,但由于军队政策等因素的影响,两厂的整合最终没能够完成。

    经济导报:整合重组过程中,双方的分歧究竟在哪?你最终选择了从济军基地化工公司退出,听说,当时正值回报的高峰期,作出这样的抉择的确需要一定的勇气和胆略。

    罗冰:当初,根据董事会的意见,2003年4月东西两厂分开经营,但是分开经营并不是富海公司的目的,我们的最终目标还是两厂的整合。两厂分开经营后,东厂常减压装置和催裂化装置不配套,而西厂没有深加工,这就给两厂带来巨大的经济损失。在与东厂各方股东沟通时,我们认为整合利大于弊:一是可以实现一、二期装置的配套;二是整合后资源配置相应增加;三是整合后可以抵御一定程度的政策风险。而军区基地的意见是不同意整合,而是新上一套50万吨的常减压设备。在现有基础上新上这套装置,需要投资2000万元,如果不扩大资本,势必增加公司负债,另外,原料也成问题,同时因国家和省里对炼油企业的政策,也带给企业巨大的风险。两厂整合的优势,正是东厂新上的50万吨的常减压设备的劣势,因此,我们不同意新上装置,而军区基地方面不同意两厂整合。如果两方各执己见,无疑会给东厂的多方股东带来巨大经济损失。军区方面坚持其资本不增加也不减少,唯一的办法就是我们转让股权。我们不能为了一个产业而影响富海的品牌,不能因为眼前的利益而做企业的罪人,更不能因为眼前的利益而侵害东厂职工的利益。

    最后,公司董事会经过反复研究,决定在济军基地化工公司已步入发展的快车道并处于获利的关键时期,转让股份,撤出经营,来激活我们自己的化工厂,和我们曾经在一起工作、奋斗过的华联化工厂的兄弟姐妹一道,拓展我们的生存之路和发展空间。我们的想法得取了区委、区政府主要领导,包括分管全区工业的张兆明副区长的大力支持。虽然我们当时从东厂退出,但我们仍从石化行业发展,并进一步明确石化产业的主导方向。

    经济导报:我们注意到,在公司多元化经营格局中,形成了以化工和房地产开发为主的两条产业链,这两个产业互不相干,之间会产生矛盾吗?

    罗冰:我们公司有个原则,就是做自己最擅长的事。石化、房地产的资本回收期短、回报率高,可以带动现在企业的发展,实现资本积累,同时,也是我们最熟悉的两个行业。房地产开发是目前公司第二大主导产业,它带动建安公司、物业公司形成了一条产业链。

    另外,为了公司未来的发展,我们正积极考察替代项目。目前,初步确定了中科院彭院士的两个高科技项目,利用这两个项目包装上市,进行直接融资,这是我们公司下一步瞄准的目标和方向。

    企业靠人才和文化取胜

    经济导报:美国GE公司前任CEO韦尔奇认为,文化是永远不能替代的竞争因素,企业靠人才和文化取胜,你如何看待这一说法?

    罗冰:我很赞同这种观点。21世纪应该说是文化管理的时代,是文化创富的时代。企业文化将成为企业的核心竞争力所在,是企业管理最重要的内容。企业文化是一种力量,随着知识经济的发展,它对企业的兴衰将起着越来越重要的作用,未来企业间的竞争,最根本的是企业文化的竞争,谁拥有文化优势,谁就拥有竞争优势、效益优势、发展优势。

    企业管理大体分为三个阶段:第一阶段是经验管理阶段,最大的特点就是人治,靠的是企业“一把手”的强势领导来管理;第二个阶段是科学管理阶段,最大的特点是法制,靠企业制度来管理;第三个阶段是文治,把企业文化作为企业管理的最重要的方面,这是企业管理的最高境界。

    经济导报:你觉得富海集团目前处在哪个阶段?

    罗冰:应该说我们处在第二个阶段,将来我们会一步步向第三个阶段迈进,这也将是我们的奋斗目标。前不久,集团刚刚制定了十年发展战略,提出了在未来10年内进入全国民营企业综合实力前十强的目标。要实现这个目标,就必须有深厚的企业文化。企业文化说白了,就是企业的个性,企业这种别人学不去的个性长存,必须具备浓厚的企业文化根底,必须有持之以恒的经营理念和管理思想。

    企业的价值观应该说是企业文化的最核心部分,健康向上的文化是企业行动的指南。多年以来,公司逐步形成了“诚信,创新,团队,奉献”的企业精神,确立了“每天超越自我,时刻追求卓越”的现代企业理念,公司广大员工就是靠着良好的企业文化形成了共同的价值观,增强了员工的集体凝聚力和向心力,解决了以前靠制度、纪律和规范不能解决的问题,从很大程度上提升了企业的素质。

    也正是在这样的精神动力的感召下,全体员工凭着强烈的事业心和坚强的意志力,不满足,不停步,圆满完成两个“三年计划”制定的各项任务目标,发展成为拥有石化公司、运输公司、建安公司、物业公司、餐饮公司、房开公司、经营部7个子公司和胜利国际石油公司、胜利长安酒店有限公司两家参股公司的企业集团。

    经济导报:我们注意到公司在招聘和培育人才方面,也是不遗余力。

    罗冰:是的。俗话说:“十年树木,百年树人。”人才是企业生存发展的根本,一个引不来、留不住人才的企业不可能长期持续发展。

    公司成立之初,我们便十分注重人才的储备,逐步建立了一套完善的用好人才、留住人才、吸收人才、培养人才的机制,并为广大员工创造了宽松的内、外部环境。为鼓励员工学习,我们还专门作出了凡因员工参加培训学习和自学考试均视为出勤的规定。为了提高中层干部的技能和综合素质,公司采取了“请进来,走出去学习”的措施,加强对中层的培训。去年,我们派出专人参加了山东省高校人才双向交流会及石油大学人才洽谈会,招收本科毕业生16人,今年,又与石大毕业生签订了16份就业合同。

    欲做国内民企10强

    经济导报:罗董事长,刚才你谈到公司制定了十年规划,目标直指国内民企10强,能详细谈谈吗?

    罗冰:目前,随着全球经济化及我国加入世贸组织和市场经济的深入发展,各个领域的市场竞争已经达到白热化的程度。国际上甚至引发了以争夺资源、能源为深层目的的大规模军事战争。

    在这种大形势下,我们富海集团如何才能在日趋激烈的市场竞争中立于不败之地,怎样才能保护和发展好我们多年来辛辛苦苦所取得的业绩和成果,使我们大家能够有一个稳定的安身立足之地,成就事业之所,这是摆在我们每一个富海人面前的不容回避的重大问题,也是集团董事会和经营层殚精竭虑、苦心谋划的重大课题。企业管理学界流行的一句话,叫做“观念决定思路,思路决定出路”,说的就是这个意思。今年2月28日集团董事会会议和3月14日至17日的专题会议上,我们进一步解放思想,更新观念,分析形势,研究制定了集团《2004-2013年十年发展战略》和《2004-2006年三年发展规划》。

    我们的十年发展战略,概括起来就是要在认真搞好战略分析、发挥优势、克服劣势、把握机遇、规避风险的基础上,肩负一个使命,瞄准一个目标,实施五大战略,搞好一项控制。肩负一个使命,即:为社会创造财富,为股东创造价值,为员工提供平台;瞄准一个目标,即:重点发展高新技术产业,以高新技术企业为载体实现公司上市;将集团现有产业做成行业最强;形成凝聚人心的先进企业文化;打造“富海”强势品牌,最终使集团公司在未来10年内进入全国民营企业综合实力前十强。实施五大战略,即:实施品牌战略。坚持诚信经营,提高企业美誉度;推出高科技含量、高附加值的产品,提高客户满意度;导入CI形象系统,加大宣传公关力度,提高企业知名度;实施多元战略。建设以石油炼制为核心的集石油开发、石油炼制、精细化工为一体的石油化工产业链;以房地产开发为龙头的集建筑设计、房地产开发、建筑安装、物业管理、工程监理为一体的建安产业链;以西维因生产为主的高科技产业链;实施人才战略。通过引进人才,培养人才,培训员工,形成自己高素质的人才和员工队伍,并建立和形成吸引人才、留住人才、用好人才、鼓励人才脱颖而出的用人机制;实施营销战略。以市场为导向,建立自己的营销渠道和营销网络;实施文化战略。营造有凝聚力的先进的企业文化,真正让我们企业以人为本的核心价值观,诚信、创新、团队、奉献的企业精神,每天超越自我,时刻追求卓越的企业理念,务实、高效的企业作风人尽皆知,深入人心,化为每一位员工的自觉行动。搞好一项控制,即:搞好战略控制。设立战略小组,对公司的战略实施进行动态跟踪,全过程控制,每年进行一次战略评审会,对近期内外部环境,对战略执行情况做出深入分析和评价,并逐步调整在执行过程中出现的偏差。

    未来三年,富海集团总的发展目标是成为全国民营企业100强。

    到2006年,石化公司成为全市石化行业效益最好的企业;房地产开发公司成为全市房地产业业绩最好的企业;物业公司非住宅物业增加面积120000平方米,成为全区业主满意率最高的物业公司;建安公司进入全市同行业前五名;餐饮公司建立连锁店,并着手建设三星级酒店;运输公司形成物流企业框架;经营部着手组建贸易公司,从事原油进出口业务;高新技术项目进入工业化生产阶段,同时进行其他项目的考察和论证。

    经济导报:目前,企业间的竞争越来越激烈,罗董事长对公司十年杀入国内民企10强,有多大信心和把握?

    罗冰:我们这个十年发展战略和三年发展规划不是凭空想象的,而是根据我们所在行业的特点,经过充分调查、论证形成的。另外,我们公司从无到有,从弱到强,可以说是走出了一条曲折但光明的发展之路。至目前,我们已经锻炼出了一支具有坚强的凝聚力和向心力,敢打硬仗的管理团队,拥有了一支忠诚于企业、勤奋敬业、无私奉献的员工队伍;形成了一套较为合理、行之有效的管理模式;创造了良好的外部关系和社会环境;打造了诚实守信、合法经营的金字招牌;有了一定的知名度、信用度和美誉度;具有了较强的筹资融资、整合社会资源的能力。可以说,整个集团已具备了快速发展、迅速壮大的条件和能力。因此,我相信,只要我们集团上下拧成一股绳,情系事业,心系发展,统一思想,转变观念,拓宽思路,创新经营,我们就一定能够实现国内民企10强的目标。

    【老板简介】

    1966年5月出生,山东沾化人1985年9月—1989年7月,山东工业大学;1989年9月—1996年11月,东营市河口区政府办公室;1997年1月—1998年3月,东营华联石油化工厂副厂长;1998年3月至今,富海集团有限公司董事长;2002年6月至今,胜利油田国际石油开发投资有限公司总经理。

    【老板签名】【老板档案】

    最初的职业:政府公务员。

    最大的业余爱好:读书。

    最自豪的事情:带出一支团结、精干的团队。

    最喜欢读的一本书:《杰克·韦尔奇自传》。

    最欣赏的企业家:杰克·韦尔奇。

    最欣赏的人生格言:人生能有几回搏。

    【精彩观点】

    ●6年来,最令我感到欣慰的是,拥有了一个团结实干、开拓进取的班子,拥有了一支敢打硬仗、勤奋敬业的员工队伍。

    ●富海集团之所以发展到今天,之所以有今天的成绩和规模,是所有经营者和全体员工共同努力的结果。没有昨天的付出,就不会有今天的收获;没有过去创业的艰辛,就不会有现在初步成功的喜悦。

    ●我们走过的每一步,我们经历的所有挫折和取得的每一点成绩,都凝聚着大家的心血和汗水,所有这些,不但我们自己永世不忘,成为我们进一步发奋图强,开创未来的不竭的精神源泉,还将成为我们教育后代、引导子女艰苦创业、奋发有为的重要资源。

    ●创业过程中,一些挫折是难免的,关键看你有没有毅力,能不能挺过来。现在,反过来看,受点挫折有时候不见得就是坏事。

    ●我们不能为了一个产业而影响富海的品牌,不能因为眼前的利益而做企业的罪人,更不能因为眼前的利益而侵害东厂职工的利益。

    ●企业文化是一种力量,随着知识经济的发展,它对企业的兴衰将起着越来越重要的作用,未来企业间的竞争,最根本的是企业文化的竞争,谁拥有文化优势,谁就拥有竞争优势、效益优势、发展优势。

    ●企业文化说白了,就是企业的个性,企业这种别人学不去的个性长存,必须具备浓厚的企业文化根底,必须有持之以恒的经营理念和管理思想。

    ●只要我们集团上下拧成一股绳,情系事业,心系发展,统一思想,转变观念,拓宽思路,创新经营,我们就一定能够实现国内民企10强的目标。

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