<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 音像制品出版管理规定
    音像制品出版管理规定   类型:知识产权、互联网


    (2004年6月17日新闻出版总署颁布 ,2004年8月1日起施行)



    第一章 总则

    第一条 为了加强音像制品出版的管理,促进我国音像出版事业的健康发展与繁荣,根据《出版管理条例》、《音像制品管理条例》,制定本规定。

    第二条 在中华人民共和国境内从事音像制品出版活动,适用本规定。
    本规定所称音像制品是指录有内容的录音带(AT)、录像带(VT)、激光唱盘(CD)、数码激光视盘(VCD)及高密度光盘(DVD)等。

    第三条 任何组织和个人不得出版含有《音像制品管理条例》第三条第二款禁止内容的音像制品。

    第四条 新闻出版总署负责全国音像制品出版的监督管理工作。县级以上地方人民政府负责出版管理的行政部门(以下简称出版行政部门)负责本行政区域内音像制品出版的监督管理工作。
    音像出版单位的主管机关、主办单位应当按照出版法律、法规和规章,对音像出版单位的出版活动履行管理职责。

    第五条 国家对出版音像制品,实行许可制度;未经许可,任何单位和个人不得从事音像制品的出版活动。
    音像制品出版的许可证件和批准文件,不得出租、出借、出售或者以其他任何形式转让。

    第六条 音像出版行业的社会团体按照其章程,在出版行政部门的指导下,实行自律管理。


    第二章 出版单位的设立


    第七条 设立音像出版单位,应当具备下列条件:

    (一)有音像出版单位的名称、章程;
    (二)有符合新闻出版总署认定的主办单位及其主管机关;
    (三)有确定的业务范围;
    (四)有适应业务范围需要的组织机构和取得国家出版专业技术人员资格的编辑人员,其人数不得少于10人,其中从事音像出版业务2年以上并具有中级以上出版专业技术人员职业资格的不得少于5人;
    (五)有30万元以上的注册资本;
    (六)有适应业务范围需要的设备和工作场所,其固定工作场所面积不得低于200平方米;
    (七)法律、行政法规规定的其他条件。
    审批设立音像出版单位,除依照前款所列条件外,还应当符合国家关于音像出版单位总量、布局和结构的规划。

    第八条 申请设立音像出版单位,由主办单位向所在地省、自治区、直辖市人民政府出版行政部门提出申请;省、自治区、直辖市人民政府出版行政部门自受理申请之日起20日内提出审核意见,连同申请材料报新闻出版总署审批。

    第九条 设立音像出版单位的申请书应当载明下列事项:

    (一)音像出版单位的名称、地址;
    (二)音像出版单位的主办单位及其主管机关的名称、地址;
    (三)音像出版单位的法定代表人或者主要负责人及音像出版专业人员的姓名、住址、资格证明文件;
    (四)音像出版单位的资金来源、数额及其信用证明;
    (五)音像出版单位工作场所使用证明文件。
    申请书应当附具出版单位的章程和设立出版单位的主办单位及主管机关的有关证明材料。

    第十条 新闻出版总署应当自收到申请书之日起60日内作出批准或者不批准的决定,并由省、自治区、直辖市人民政府出版行政部门书面通知主办单位;不批准的,应当说明理由。

    第十一条 音像出版单位的主办单位应当自收到批准决定之日起60日内,向所在地省、自治区、直辖市人民政府出版行政部门登记,领取《音像制品出版许可证》(以下简称出版许可证)。音像出版单位经登记后,持出版许可证到工商行政管理部门登记,依法领取营业执照。

    音像出版单位自登记之日起满180日未从事出版活动的,由原登记的出版行政部门注销登记,并报新闻出版总署备案。因不可抗力或者其他正当理由发生前款所列情形的,向出版行政部门申请延期。

    第十二条 音像出版单位变更名称、主办单位或者主管机关、业务范围,或者兼并其他音像出版单位,或者因合并、分立而设立新的音像出版单位的,应当依照本规定第七条至第十条的规定办理审批手续,并到原登记的工商行政管理部门办理相应的登记手续。

    第十三条 音像出版单位变更地址、法定代表人或者主要负责人,或者终止音像出版经营活动的,应当到原登记的工商行政管理部门办理变更登记或者注销登记,并在30日内向新闻出版总署备案。

    第十四条 音像出版单位的法定代表人或者主要负责人应当具有中级以上出版专业技术人员职业资格,具有从事音像出版业务3年以上的经历,并应通过新闻出版总署或省、自治区、直辖市人民政府出版行政部门组织的岗位培训,获得《岗位培训合格证书》。

    第十五条 音像出版单位中从事编辑、出版、校对等专业技术工作的人员,必须通过国家出版专业技术人员职业资格考试,取得规定级别的出版专业职业资格,持相应的《中华人民共和国出版专业技术人员职业资格证书》上岗。


    第三章 出版活动的管理


    第十六条 音像出版单位不得超出出版许可证确定的业务范围从事音像制品的出版活动。

    第十七条 音像出版单位应当按照国家标准及其他有关规定标识、使用《中国标准音像制品编码》(以下简称版号)。版号由新闻出版总署负责管理和调控,由省、自治区、直辖市人民政府出版行政部门发放。

    第十八条 音像出版单位实行编辑责任制度,保障音像制品刊载的内容合法。

    第十九条 音像出版单位实行年度出版计划备案制度,出版计划的内容应包括选题名称、制作单位、主创人员、类别、载体、内容提要、节目长度、计划出版时间。出版计划报送的程序为:

    (一)本年度上一年的12月20日以前报送本年度出版计划;本年度3月1日一20日、9月1日一20日报送本年度出版调整计划。
    (二)出版计划及出版调整计划,须经所在地省、自治区、直辖市人民政府出版行政部门审核。
    (三)省、自治区、直辖市人民政府出版行政部门应当自受理出版计划报送申请之日起20日内,向音像出版单位回复审核意见,并报新闻出版总署备案。

    第二十条 音像出版单位出版涉及国家安全、社会安定等方面的重大选题,应当依照重大选题备案的有关规定报新闻出版总署备案。未经备案的重大选题,不得出版。

    第二十一条 图书出版社、报社、期刊社、电子出版物出版社,出版配合本版出版物的音像制品,须向所在地省、自治区、直辖市人民政府出版行政部门提交申请书和样本。

    第二十二条 出版配合本版出版物的音像制品申请书,须写明本版出版物的名称、制作单位;主创人员、主要内容、出版时间、节目长度;复制数量和载体形式等内容。

    第二十三条 出版单位所在地省、自治区、直辖市人民政府出版行政部门,应当自受理申请之日起20日内对其申请书和样本进行审核。审核同意的,配发版号,发放复制委托书,并报新闻出版总署备案;审核不同意的,应当说明理由。

    第二十四条 经批准出版的配合本版出版物音像制品,其名称须与本版出版物一致,并须与本版出版物统一配套销售,不得单独定价销售。

    第二十五条 音像出版单位及经批准出版配合本版出版物音像制品的其他出版单位,应在其出版的音像制品及其包装的明显位置,标明出版单位的名称、地址和音像制品的版号;出版时间、责任编辑、著作权人和条形码。出版进口的音像制品,还应当标明进口批准文号。

    第二十六条 音像出版单位不得向任何单位或者个人出租、出借、出售或者以其他任何形式转让本单位的名称,不得向任何单位或者个人出售或者以其他形式出售或转让本单位版号。

    第二十七条 任何单位和个人不得以购买、租用、借用、擅自使用音像出版单位的名称或者以购买、伪造版号等形式从事音像制品出版活动。

    第二十八条 音像出版单位不得委托未取得《音像制品制作许可证》的单位制作音像制品。

    第二十九条 音像出版单位、经批准出版配合本版出版物音像制品的出版单位,应自音像制品出版之日起30日内,分别向国家图书馆、中国版本图书馆和新闻出版总署免费送交样本。


    第四章 非卖品的管理


    第三十条 用于无偿赠送、发放及业务交流的音像制品属于音像非卖品,不得定价,不得销售或变相销售,不得收取任何费用。

    第三十一条 委托复制音像非卖品,须向委托方或者受托方所在地省、自治区、直辖市人民政府出版行政部门提出申请,其申请书应写明非卖品使用目的、名称、制作单位、主要内容、发送对象、复制数量、节目长度和载体形式等内容,并附样本。

    省、自治区、直辖市人民政府出版行政部门,应当自受理委托复制音像非卖品申请之日起20日内予以审查,对符合本规定的,向委托复制单位核发音像制品复制委托书。

    第三十二条 音像非卖品须统一编号。编号为四段:第一段为各省、自治区、直辖市简称,第二段为“音像非卖品”字样,第三段为年度,第四段为数字编号。音像非卖品应当在其包装和盘(带)显著位置注明其音像非卖品编号。


    第五章 委托复制的管理


    第三十三条 委托复制音像制品,须使用复制委托书。
    音像出版单位及其他委托复制单位,必须遵守国家关于复制委托书的管理规定。
    复制委托书由新闻出版总署统一印制。

    第三十四条 复制委托书由音像出版单位及其他委托复制单位向所在地省、自治区、直辖市人民政府出版行政部门领取。

    第三十五条 出版单位及其他委托复制单位应当按照规定开具或填写复制委托书,并将复制委托书直接交送复制单位。

    出版单位及其他委托复制单位须保证复制委托书内容真实、准确、完整。
    出版单位及其他委托复制单位不得以任何形式向任何单位或者个人出售或者转让复制委托书。

    第三十六条 音像出版单位及其他委托复制单位,须确定专人管理复制委托书并建立使用记录。复制委托书使用记录的内容包括开具时间、音像制品及具体节目名称、相对应的版号、管理人员签名。
    复制委托书使用记录保存期为两年。

    第三十七条 音像出版单位及其他委托复制单位,自音像制品完成复制之日起30日内,向所在地省、自治区、直辖市人民政府出版行政部门上交由本单位及复制单位签章的复制委托书第二联及音像制品样品。

    第三十八条 申请出版配合本版出版物音像制品或音像非卖品的单位,自获得批准之日起90日内未能出版的,须向所在地省、自治区、直辖市人民政府出版行政部门交回复制委托书。

    第三十九条 音像出版单位出版的音像制品、其他出版单位出版的配合本版出版物音像制品、音像非卖品须委托依法设立的复制单位复制。


    第六章 审核登记


    第四十条 音像出版单位实行审核登记制度,审核登记每两年进行一次。

    第四十一条 申请审核登记的音像出版单位应提交以下材料:

    (一)《音像出版单位审核登记表》;
    (二)音像制品出版业务情况报告,应当包括:执行出版管理的法律、法规和规章的情况,出版经营情况,人员、场所、设施情况;
    (三)两年内出版的音像制品登记表;
    (四)出版许可证的复印件。

    第四十二条 音像出版单位应于审核登记年度1月15日前向所在地省、自治区、直辖市人民政府出版行政部门申请年度审核登记并提交相应材料。各省、自治区、直辖市人民政府出版行政部门对本行政区域内申请登记的音像出版单位进行审核,并于同年2月底前完成审核登记工作。

    第四十三条 对符合下列条件的音像出版单位,省、自治区、直辖市人民政府出版行政部门予以登记:

    (一)符合本规定第七条的规定;
    (二)两年内无违反出版管理法律、法规和规章的情形;
    (三)两年内出版音像制品不少于10种。

    第四十四条 对不符合前条所列条件之一的音像出版单位,省、自治区、直辖市人民政府出版行政部门予以暂缓登记。

    暂缓登记的期限为3个月。省、自治区、直辖市人民政府出版行政部门应当责令暂缓登记的出版单位在此期限内进行整顿,达到本规定第七条的规定条件。

    在暂缓登记的期限届满前,省、自治区、直辖市人民政府出版行政部门应对暂缓登记的出版单位进行审查,对于达到本规定第七条的规定条件的,予以登记。对于未达到本规定第七条的规定条件的,提出注销登记意见报新闻出版总署批准。对注销登记的出版单位,由所在地省、自治区、直辖市人民政府出版行政部门缴回其出版许可证。

    第四十五条 各省、自治区、直辖市人民政府出版行政部门应于同年3月20日前将审核登记情况及有关材料复印件汇总后报新闻出版总署备案。


    第七章 罚则


    第四十六条 未经批准,擅自设立音像制品出版单位,擅自从事音像制品出版业务的,依照《音像制品管理条例》第三十九条处罚。

    第四十七条 出版含有《音像制品管理条例》第三条第二款禁止内容的音像制品,依照《音像制品管理条例》第四十条处罚。

    第四十八条 出版音像制品的单位有下列行为之一的,依照《音像制品管理条例》第四十二条处罚:

    (一)向其他单位、个人出租、出借、出售或者以其他任何形式转让本单位的名称、音像制品出版的许可证件或者批准文件,出售或者以其他任何形式转让本单位的版号或者复制委托书的;
    (二)委托未取得《音像制品制作许可证》的单位制作音像制品,或者委托非依法设立的复制单位复制音像制品的。

    第四十九条 出版音像制品的单位有下列行为之一的,依照《音像制品管理条例》第四十四条处罚:

    (一)未按规定将年度出版计划和涉及国家安全、社会安定等方面的重大选题报新闻出版总署备案的;
    (二)变更名称、主办单位或者主管机关、地址、法定代表人或者主要负责人、业务范围等,未依照本规定第十二条、第十三条办理审批、备案手续的;
    (三)未在其出版的音像制品及其包装的明显位置标明本规定所规定的项目的;
    (四)未依照规定期限送交音像制品样本的。

    第五十条 有下列行为之一的,由出版行政部门责令停止违法行为,给予警告,并处3万元以下的罚款:

    (—)其他出版单位配合本版出版物出版音像制品,其名称与本版出版物不一致或者单独定价销售的;
    (二)音像出版单位及其他委托复制单位,未按照本规定第三十六条规定的内容、期限留存备查材料的;
    (三)委托复制非卖品的单位销售或变相销售非卖品或者以非卖品收取费用的;
    (四)委托复制非卖品的单位未在非卖品包装和盘带显著位置注明非卖品编号的。


    第八章 附则


    第五十一条 音像制品的出版许可证由新闻出版总署统一印制。

    第五十二条 本规定有关行政许可的期限以工作日计算,不含法定节假日。

    第五十三条 本办法自2004年8月1日起施行,新闻出版署1996年2月1日发布的《音像制品出版管理办法》同时废止。

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