<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 政府部门
    国有资产监督管理委员会——组织机构   类型:政府部门



    办公厅 (党委办公室)
      主要职责:负责协助委领导处理机关运转的日常工作;负责委机关文秘、会议、机要、保密、信息、档案、安全工作;负责党委会和委主任办公会议决定事项的督办工作;负责委机关财务工作;负责委机关信息化工作;负责信访工作(对外可使用委信访办公室名义);负责联系行业协会。
      下设处室:综合处、委主任书记办公室、秘书一处、秘书二处、保密档案处、信息调研处、信访办公室、信息化工作处。
       联系电话:63192370
       E-MAIL:bangong@sasac.gov.cn

    政策法规局
      主要职责:研究起草国有资产管理和监督的法律法规草案,负责有关法规和重大政策起草、拟订的协调工作;研究国有企业改革和发展中的有关法律问题,负责指导国有企业法律顾问工作;承担委机关的法律事务。
      下设处室:综合处、政策法规一处、政策法规二处、政策法规三处。
       联系电话:63193261
       E-MAIL:fagui@sasac.gov.cn

    业绩考核局
      主要职责: 拟订并组织落实国有资产经营责任制度,研究和完善授权经营制度并对授权企业进行监督,研究提出业绩合同等企业资产保值增值目标管理的方法并组织实施;综合研究国有经济和重点企业的运行状况;根据各方面对所监管企业的评价意见,综合考核所监管企业的经营业绩;研究提出重大决策责任追究的意见和措施。
      下设处室:综合处、考核一处、考核二处、考核三处、考核四处。
       联系电话:63192597
       E-MAIL:kaohe@sasac.gov.cn

    统计评价局
       主要职责:负责国有资产的统计和所监管企业财务决算备案工作,建立国有资本金统计信息网络,根据有关规定对外发布统计信息;建立和完善国有资产保值增值考核办法,拟订考核标准;建立和完善企业绩效评价体系并负责组织实施;拟订国有企业清产核资的政策及制度、办法,组织所监管企业清产核资工作;按照国家有关规定,负责所监管企业资产损失核销工作。
      下设处室:综合处、统计处、评价处、清产核资处、企业一处、企业二处。
       联系电话:63193896
       E-MAIL:pingjia@sasac.gov.cn

    产权管理局
      主要职责:研究提出改革国有资产管理办法和管理制度的意见,拟订国有资产产权界定、登记、划转、处置及产权纠纷调处等方面的规章制度和管理办法;负责所监管企业国有资产产权界定、登记、划转、处置及产权纠纷调处等工作;负责所监管企业资产评估项目的核准和备案;对所监管企业国有资产进行预算管理,对资本收益的使用进行监督;审核所监管企业资本金变动、股权转让及发债方案;监督、规范国有产权交易。
      下设处室:综合处、股权处、监管处、评估处、产权一处、产权二处。
      联系电话:63193946
       E-MAIL:chanquan@sasac.gov.cn

    规划发展局
      主要职责:研究提出国有经济布局和战略性调整的政策建议,指导所监管企业进行结构调整;审核所监管企业的发展战略和规划;对所监管企业重大投资决策履行出资人职责,必要时对投资决策进行后评估;协助所监管企业解决发展中的有关问题。
      下设处室:综合处、规划一处、规划二处、规划三处。
       联系电话:63193597
       E-MAIL:guihua@sasac.gov.cn

    企业改革局
      主要职责:研究提出国有企业改革的方针政策;指导国有企业的现代企业制度建设,完善公司治理结构;研究所监管企业合并、股份制改造、上市、合资等重组方案和国有资产经营公司的组建方案,对其中需要国有股东决定的事项提出意见;研究提出发展具有国际竞争力的大公司大企业集团的政策、措施;指导所监管企业的管理现代化和信息化工作。
      下设处室:综合处、企业管理处、企业体制处、公司集团处、企业重组处、地方企业改革处。
       联系电话:63193112
       E-MAIL:gaige@sasac.gov.cn

    企业改组局(全国企业兼并破产和职工再就业工作办公室)
      主要职责:编制并组织实施国有企业兼并破产计划,研究提出有关债权损失核销和职工安置等方案;组织协调债转股工作;组织协调所监管企业的合并、分立、解散、清算和关闭破产、困难企业重组工作,协调解决企业改组中的重大问题。
      下设处室:综合处、企业改组一处、企业改组二处、企业改组三处。
       联系电话:63193758
       E-MAIL:gaizu@sasac.gov.cn

    企业分配局
      主要职责:拟订国有企业收入分配制度改革的指导意见;根据国家有关规定,对所监管企业工资分配的总体水平进行调控,研究拟订所监管企业负责人的薪酬制度和激励方式并组织实施;指导所监管企业分离办社会负担、主辅分离和辅业改制、富余人员分流工作,配合有关部门做好下岗职工的安置工作。
      下设处室:综合处、分配调控处、薪酬管理处、改制分流处、配套改革处。
       联系电话:63193585
       E-MAIL:fenpei@sasac.gov.cn

    监事会工作局 (国有企业监事会工作办公室)
      主要职责:根据《国有企业监事会暂行条例》,负责监事会的日常管理工作。
      下设处室:综合处、一处、二处、三处、联络处、调研处。
       联系电话:64471335
       E-MAIL:jiandu@sasac.gov.cn

    企业领导人员管理一局
      主要职责:根据有关规定,承担对所监管企业领导人员的考察工作并提出任免建议;考察推荐董事、监事及独立董事人选;探索符合社会主义市场经济体制和现代企业制度要求的企业领导人员考核、评价和选任方式;研究拟订向国有控股和参股公司派出国有股权代表的工作方案。
      下设处室:综合处、一处、二处、三处、四处。
       联系电话:64470455
       E-MAIL:ganyi@sasac.gov.cn

    企业领导人员管理二局
      主要职责:根据有关规定,承担对所监管企业领导人员的考察工作并提出任免建议;考察推荐董事、监事及独立董事人选;探索符合社会主义市场经济体制和现代企业制度要求的企业领导人员考核、评价和选任方式;研究拟订向国有控股和参股公司派出国有股权代表的工作方案。
      下设处室:综合处、一处、二处、三处、四处、五处、六处。
       联系电话:64471652
       E-MAIL:ganer@sasac.gov.cn

    党建工作局(党委组织部)
      主要职责:根据有关规定,负责所监管企业党的组织建设和党员教育工作。
      下设处室:综合处、组织处、党员教育管理处、党建处(培训处)。
       联系电话:64471623
       E-MAIL:dangjian@sasac.gov.cn

    宣传工作局(党委宣传部)
      主要职责:根据有关规定,负责所监管企业党的思想建设、精神文明建设和宣传工作,指导所监管企业的思想政治工作和企业文化建设工作;负责对外宣传和新闻工作。
      下设处室:综合处、宣传处、新闻处、企业文化处(研究会秘书处)、思想教育处。
       联系电话:64471608
       E-MAIL:xuanchuan@sasac.gov.cn

    群众工作局(党委群众工作部、党委统战部)
      主要职责:根据有关规定,协调所监管企业的工会、青年、妇女工作,承担所监管企业共青团工作委员会的日常工作;负责所监管企业维护稳定方面的工作;指导所监管企业的统战工作和知识分子工作。
      下设处室:综合处、工会工作处、统战处、青年工作处。
       联系电话:64471605
       E-MAIL:qungong@sasac.gov.cn

    研究室
      主要职责:负责研究总结国有资产管理体制改革的理论和实践经验;负责调查研究所监管企业的改革发展、党的建设、领导班子建设和社会主义精神文明建设等重大问题;负责重要文件和报告的起草工作。
      下设处室:综合处、研究一处、研究二处、行业协会处。
       联系电话:63192638
       E-MAIL:yanjiu@sasac.gov.cn

    外事局
      主要职责:负责委机关和直属单位的外事工作,开展国际交流与合作。
      下设处室:综合处、一处、二处。
       联系电话:63193616
       E-MAIL:waishi@sasac.gov.cn

    人事局
      主要职责:按照管理权限,负责委机关和直属单位的人事管理工作。
      下设处室:综合处、调配处、干部一处、干部二处、干部三处(劳资处)。
       联系电话:63193932
       E-MAIL:renshi@sasac.gov.cn

    机关服务管理局 (离退休干部管理局)
      主要职责:负责所属离退休干部机构、机关服务中心的各项管理工作;负责委机关和所属单位的国有资产、财务等行政管理工作;负责指导、监管所联系协会的国有资产和财务等工作。
      下设处室:办公室、离退休干部管理办公室、机关服务中心管理办公室、国有资产管理办公室、财务办公室(国资委机关审计办公室)、人事(党委)办公室。
      联系电话:63192856
      E-MAIL:sguanli@sasac.gov.cn

    机关党委
      主要职责:负责委机关和在京直属单位的党群工作。
      下设处室:办公室(直属机关工会办公室)、组织部(统战部)、宣传部(直属机关团委)、直属机关纪委办公室。
       联系电话:63193774
       E-MAIL:zhidang@sasac.gov.cn


    直属事业单位
      信息中心
      监事会工作技术研究中心
      培训中心
      经济研究中心
      中国经济出版社

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