<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 国务院关于加快发展中西部地区乡镇企业的决定
    国务院关于加快发展中西部地区乡镇企业的决定
      类型:综合


    (1993年2月14日,国务院国发[1993]10号)


    党的十一届三中全会以来,我国乡镇企业异军突起,为农村发展和国民经济增长作出了重大贡献,成为我国社会主义市场经济中生机勃勃的力量。但是,由于多种原因,乡镇企业发展的区域分布很不平衡,占全国人口约三分之二的广大中西部地区只拥有全国乡镇企业产值的三分之一,已成为我国中西部与东部地区经济发展差距的重要原因。党的十四大指出:“继续大力发展乡镇企业,特别要扶持和加快中西部地区和少数民族地区乡镇企业的发展”。这对逐步缩小东西部地区差距,振兴少数民族地区经济,改变贫穷落后面貌,巩固和发展团结稳定的大局,实现共同富裕,具有十分重要的经济意义和政治意义。为此,特决定如下:

    一、提高认识,加强领导,把加快发展乡镇企业作为中西部地区经济工作的一个战略重点

    我国中西部地区幅员广大,资源丰富,是少数民族主要聚居区。经过十多年的改革,中西部地区经济发展取得了重大成就,绝大多数农民温饱问题已基本解决,有条件集中精力大力发展乡镇企业。通过加快发展乡镇企业,促进中西部地区经济腾飞,较快地增加农民收入,实现农村小康和国民经济翻两番的战略目标;更有力地支持和建设农业,推动农业向高产、优质、高效发展,逐步实现农业现代化;大批转移农村剩余劳动力,加快农村工业化和城镇化进程;为进一步促进我国工业和整个经济的改革与发展,做出更大的贡献。

    为此,必须把加快发展乡镇企业作为中西部地区整个经济工作的一个战略重点,提到各级政府重要工作日程上来。改变过去抓工业就是抓国有工业,抓农村经济就是抓农业的传统观念,正确认识乡镇企业与国有企业和农业相互促进、协调发展的关系。要求省、自治区在坚持以农业为基础的前提下,一手抓国有大中型企业,一手抓乡镇企业;地、县要一手抓农业,一手抓乡镇企业。今后,中西部地区县城二、三产业的发展,除国家统一规划开发的工程和项目外,要逐步转到以发展乡镇企业为主的轨道上来;从中央到地方的综合部门和有关业务部门,在为国有大中型企业职务的同时,要积极为发展乡镇企业服务。各级政府主要负责同志要加强领导,一年抓几次,及时解决乡镇企业发展中的重要问题。要选派和配备得力干部充实和加强各级乡镇企业管理机构。

    二、实行适应中西部地区经济发展要求的产业政策

    兴办乡镇企业要立足于开发利用当地资源。把资源优势转化为经济优势,是实现中西部地区经济迅速增长的重要途径。中央和各级地方政府的综合经济部门、有关业务部门,都要从中西部地区实际情况和加快经济发展的要求出发,因地制宜地执行国家的产业政策,创造有利于开发资源的条件和环境,促进乡镇企业发展。

    中西部地区发展乡镇企业,要面向国内外市场需要,立足当地资源优势,除国家明文规定的外,适合发展什么就发展什么,不受限制;只要产品质量高,销路好,又有治理污染和保护资源、环境的可靠措施,项目规模大小不受限制,并免征固定资产投资方向调节税;在保证效益的前提下,发展速度能多快就多快,不受限制。但是,也不能不顾条件,层层硬性规定指标、摊派任务。

    中西部大多数地区,应当在农林牧副渔全面发展的基础上,把积极兴办农副产品加工、储藏、保鲜、运销等企业放在重要地位。在有条件的地方,要发展附加值较高的外向型农产品加工企业。暂时没有条件办加工业的地方,要把运销业作为突破口来抓。

    要充分利用山上山下、地上地下的丰富资源,在各级政府统一规划下,进行合理开发,发展矿业、建材、小水电和旅游等资源型产业。各有关部门要帮助进行技术论证,提出可行性方案,提供必要的服务。除国务院明文规定外,任何部门、单位增加收费种类和提高收费标准,都必须经省、自治区、直辖市人民政府批准。

    要利用中西部地区劳动力多的优势,发展商业、服务业、手工业、建筑业、运输业、旅游业及其他劳动密集型产业,组织劳务输出,繁荣城乡经济。

    三、提倡不同组织形式的乡镇企业共同发展

    发展乡镇企业,要在继续坚持原来乡办、村办、户办、联户办“四轮驱动”的基础上,再加上联营企业、中外合资企业等,实行“多轮驱动、多轨运行”。

    近几年来,我国农村涌现出一批不同类型的乡村股份制企业(包括股份合作制企业)。这种新型的企业组织形式,有利于筹集民间资金,明晰产权关系,实行政企分开,具有适应商品经济发展的许多好处,各地要认真总结试点经验,并积极推广。国家在农村投资开发的项目,凡是适合与地方联营的,可以与乡村集体股份相结合,建立联营企业,以减少国家在征地、招工等方面的投入,带动更多的农民脱贫致富。

    中西部地区生产力发展水平还比较低,在乡镇企业的组织形式上,更需要放开手脚,实行“多种轮子一齐转,哪个转得快就让它转”。不同地区生产力水平不同,多种“轮子”不可能在每个地区都以同样的比重、同样的速度运转,要允许和支持适合当地生产力发展水平的“轮子”转得快些,不限制其发展速度。在那些贫困落后,集体经济薄弱,办乡、村集体企业缺乏条件的地区,可以放手发展个体、私营和股份合作制企业。不同所有制企业,都要进入市场,实行平等竞争。

    建立健全对乡镇企业的法律保护制度。各级政法机关要保护乡镇企业及其经营者的合法经营活动和合法收入,严禁一切“吃大户”、乱摊派甚至敲诈勒索等不法行为。要纠正对个体与私营企业认识上的偏见和政策上的歧视,严禁对个体、私营企业的赎买行为。不得利用行政手段随意平调乡镇企业资产、改变隶属关系或变更企业性质。

    四、鼓励和支持各类人才走上开发乡镇经济的主战场

    乡镇企业的发展,人才是关键。各级政府要下决心,采取有力措施,为乡镇企业创造一个大胆使用人才、积极吸引人才、加速培养人才和坚决保护人才的环境与机制。

    要破除“左”的思想束缚,大胆选拔和放手启用那些敢想敢干,善于经营,在实践中成长起来的各种农村能人。他们是农村发展社会主义市场经济的积极分子,要充分发挥他们的带头示范作用和骨干作用。鼓励他们以个体、私营、联户、承包、租赁、股份制等各种形式领办、创办乡镇企业。农村党员干部要带头兴办乡镇企业,勇于带领群众致富。

    中西部地区要结合机构改革,鼓励一部分有才能、有志向从事经济工作的党政机关和事业单位的干部,走向发展乡镇企业的主战场。对离开党政机关到乡镇企业去的干部,在严格实行政企分开的原则下,允许各地采取一些过渡办法,积极创造与党政机关”脱钩”的条件。

    乡镇企业是大中专毕业生员能大显身手的场所之一。国家教育部门要鼓励大中专毕业生到乡镇企业就职,对新分配的大中专毕业生,凡是到乡镇企业工作的,允许保留国家干部身份,行政关系保存在县乡镇企业主管部门或人才交流中心,免除见习期,其工资奖金在不低于国家规定标准的前提下,由企业自行确定。为了提高乡镇企业的整体素质,各有关大中专院校要为乡镇企业定向培养人才,并列入各级教育部门的计划;有条件的大专院校,要增设适用于乡镇企业的专业;通过职业中学、民间办学、短期培训等途径加强对农村现有知识青年的职业教育,不断扩大乡镇企业的人才后备资源。

    要积极支持科研、事业单位工作人员、国有企业技术人员和职工,利用工余时间和节假日,为乡镇企业提供有偿服务。允许离退休人员接受乡镇企业的聘任,原有离退休待遇保持不变。

    对在乡镇企业生产经营中做出突出贡献的科技人员、管理人员,实行收入上不封顶、依法纳税的政策。要严格区分依靠自己专业知识为乡镇企业提供服务所取得的收入与收受贿赂的界线。

    五、走因地制宜、合理布局、集中连片发展的路子

    中西部地区地域辽阔,交通不便,不少地方缺水缺电,发展乡镇工业不能“遍地开花”。要从当地的资源、人才、交通、能源、水源等综合条件出发,因地制宜,合理布局,建设乡镇工业小区,集中连片发展。这样,有利于扬长避短,选择最容易成功的地方重点突破;有利于节省资源,减少基础设施建设的投入;有利于加强宏观指导,避免重复建设;有利于带动农村小城镇建设。这是一条促进中西部地区经济、社会发展的路子。

    集中连片发展,主要是依托现有小城镇和乡镇企业有一定基础的地方,相对集中发展;在沿边开放地区,边贸口岸,有水有电、处于交通沿线、有丰富资源可开发的地方,要重点发展;中小城市实行开放政策,要打破城乡分割格局,允许农村集体和个人进城办二、三产业。各级地方政府和有关部门要集中人力财力物力,在集中连片发展的地方搞好基础设施和环境建设。对适宜分散发展的手工业等,继续实行分散经营。

    对集中连片发展乡镇企业实行鼓励政策。各地要采取优惠的措施,吸引农民自理口粮,自带资金,来兴办二、三产业;吸引条件较差的乡、村进行异地开发,到条件较好的地方创办乡镇企业;吸引东部地区企业家和国外投资者来办二、三产业。在小城镇和其他集中连片发展的地方,实行土地有偿使用和转让,合理收取费用,用于基础设施建设,以及为小城镇建设配套的文化、教育、卫生和其他社会公益事业。

    六、积极在中西部地区培育和发展市场体系

    为了加快中西部地区乡镇企业发展,必须建立和发育市场体系,搞活商品流通,实现人才、技术、劳动力和资金等要素的有效配置。要改变乡镇企业千辛万苦地在社会上到处寻求原料、人才、技术、资金和销售对象的状况,逐步转向通过日益完善、公平竞争的市场使供需双方直接见面,去满足自己发展经济的需求,把资源配置和产品交换提高到新的水平。这对交通不便、信息不灵的中西部地区,具有更为迫切、更为重要的意义。今后各级政府要把市场建设作为发展第三产业的重点抓紧办好。各有关部门要把培育商品市场和生产要素市场作为发展乡镇企业和为其提供服务的一项重要任务,逐步建立规范的和公平的市场秩序,促进乡镇企业发展。

    七、多渠道增加中西部地区乡镇企业的资金投入

    资金短缺是制约中西部地区乡镇企业发展的重要因素。为此,国家要给予必要的支持,同时必须进一步放开搞活农村金融,逐步建立、完善农村资金市场,发展横向经济联合,培植企业投资能力,广辟资金渠道,加大资金投入。

    从1993年起到2OOO年,除了用好现有乡镇企业贷款存量和每年正常新增贷款外,再由中国人民银行每年在国家信贷计划中单独安排五十亿元贷款,支持发展中西部地区乡镇企业。这项贷款由中国农业银行经营发放,重点用于中西部地区乡镇企业集中连片发展的地方,按项目投放资金,实行资金与人才、技术、管理诸要素综合投入,保证效益。由中国农业银行和农业部共同拟定具体实施办法。各专业银行和有关金融机构,要把发展中西部乡镇企业作为资金投放的一个重点。农村信用社在支持农业稳定发展的基础上,积极增加乡镇企业信贷投放量。各级财政每年要安排一定资金支持发展乡镇企业。

    开辟新的乡镇企业投资渠道。提倡各地建立乡镇企业发展基金。允许乡镇企业从销售收入中提取1%作为企业技改和新产品开发资金。鼓励农民以劳带资或以资带劳进厂、联户集股办厂。

    八、抓住机遇,推进东西部横向经济联合和城乡联合

    当前我国东部经济较发达地区乡镇企业已开始进入产业结构升级换代的阶段。要在现有基础上不断提高乡镇企业发展水平,注重调整结构,改进技术、提高产品质量、增加经济效益,努力向外向型、高科技发展,为中西部地区乡镇企业腾市场,转移劳动密集型产业,以东部的发展带动中西部发展,实现全国大发展。

    要充分利用沿边、沿江地区及内陆省会城市对外开放的机遇,鼓励和支持沿海发达地区乡镇企业、大中城市和国有企业,按照互利互惠的原则,与中西部地区发展横向经济联合,开发资源,实行优势互补,共同发展。中西部地区要从当地经济发展的实际需要出发,采用多种形式,吸引东部地区前往投资,联合兴办乡镇企业。

    凡是东部地区和大中城市到中西部地区投资兴办乡镇企业或乡镇联营企业的,都享受当地制定的优惠政策。同样,中西部地区到东部地区兴办或联办的乡镇企业,也享受东部地区的优惠政策。

    鼓励城乡联合,提倡中西部地区国有大中型企业、三线军工企业,通过扩散零部件生产、原材料开发和加工等形式,与当地联办乡镇企业。凡是与乡镇企业联办的企业,可以实行乡镇企业经营机制,享受当地的优惠政策。

    近几年来,东部地区与中西部地区之间的干部双向交流,对于推进经济发展与区域合作起到了很好的作用,应坚持下去并不断发展。

    九、各有关部门通力合作,为促进中西部地区乡镇企业上新台阶做出贡献

    加快中西部地区乡镇企业的发展,离不开各部门的大力支持。从中央到地方的各有关部门,都要把支持中西部地区乡镇企业的发展,作为贯彻落实党的十四大精神的实际行动。计划部门要把乡镇企业纳入国民经济发展规划,安排和落实在中西部地区的能源、交通、通信和资源开发的重要工程项目,为当地的经济发展创造良好的外部环境;工交和国防军工部门要鼓励大中型企业通过产品和技术扩散及原材料基地建设等方式,带动中西部地区乡镇企业的发展和技术进步,并把乡镇企业列入运输计划;商业、外贸部门要加快发育国内市场,对具备国家规定条件的外向型企业赋予进出口经营权;地矿、冶金部门要帮助乡镇企业兴办乡镇矿业和以矿产品为原料的加工业,提供技术和信息服务;财政、金融部门要在资金筹集、融通方面给予积极支持,帮助企业建立健全财务制度,培训财会管理人员;水利部门要帮助解决水土流失防治和乡镇企业供水问题;环保、国土等部门要帮助乡镇企业解决污染、节约用地等问题,税务部门要对中西部乡镇企业实行优惠的税收政策,“放水养鱼”,培育税源;工商部门要在企业登记方面提供方便,经营项目尽可能放活一些;政法、监察、审计部门要保护乡镇企业的合法经营,合法权益;教育、科技、人事部门要在人才培养、技术开发方面提供支持。

    各有关部门都要根据以上原则要求,制订支持乡镇企业发展的政策措施,作为国务院决定的配套文件下达;同时,清理废除过去一切不利于乡镇企业发展的条例、文件和规定,并公诸于众。各级政府要定期检查各有关部门的工作,组织交流经验,表彰为发展乡镇企业做出重要贡献的单位。

    本文件的基本精神,也适用于东部经济欠发达的地区。

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