<% 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 %> 管理资料--中国企业天地网--企业管理
     
     
     
    目前位置: 首页中小企业 → 工程建设项目勘察设计招标投标办法
    工程建设项目勘察设计招标投标办法   类型:市场、贸易


    (2003年6月12日发布 2003年8月1日实施)


    第一章 总则

    第一条 为规范工程建设项目勘察设计招标投标活动,提高投资效益,保证工程质量,根据《中华人民共和国招标投标法》制定本办法。

    第二条 在中华人民共和国境内进行工程建设项目勘察设计招标投标活动,适用本办法。

    第三条 工程建设项目符合《工程建设项目招标范围和规模标准规定》(国家计委令第3号)规定的范围和标准的,必须依据本办法进行招标。

    任何单位和个人不得将依法必须进行招标的项目化整为零或者以其他任何方式规避招标。

    第四条 按照国家规定需要政府审批的项目,有下列情形之一的,经批准,项目的勘察设计可以不进行招标:

    (一)涉及国家安全、国家秘密的;
    (二)抢险救灾的;
    (三)主要工艺、技术采用特定专利或者专有技术的;
    (四)技术复杂或专业性强,能够满足条件的勘察设计单位少于三家,不能形成有效竞争的;
    (五)已建成项目需要改、扩建或者技术改造,由其他单位进行设计影响项目功能配套性的。

    第五条 勘察设计招标工作由招标人负责。任何单位和个人不得以任何方式非法干涉招标投标活动。

    第六条 各级发展计划、经贸、建设、铁道、交通、信息产业(通信、电子)、水利、民航、广电等部门依照《国务院办公厅印发国务院有关部门实施招标投标活动行政监督的职责分工意见的通知》(国办发[2000]34号)和各地规定的职责分工,对工程建设项目勘察设计招标投标活动实施监督,依法查处招标投标活动中的违法行为。

    第二章 招标

    第七条 招标人可以依据工程建设项目的不同特点,实行勘察设计一次性总体招标;也可以在保证项目完整性、连续性的前提下,按照技术要求实行分段或分项招标。

    招标人不得利用前款规定将依法必须进行招标的项目化整为零,或者以其他任何方式规避招标。

    第八条 依法必须招标的工程建设项目,招标人可以对项目的勘察、设计、施工以及与工程建设有关的重要设备、材料的采购,实行总承包招标。

    第九条 依法必须进行勘察设计招标的工程建设项目,在招标时应当具备下列条件:

    (一)按照国家有关规定需要履行项目审批手续的,已履行审批手续,取得批准。
    (二)勘察设计所需资金已经落实。
    (三)所必需的勘察设计基础资料已经收集完成。
    (四)法律法规规定的其他条件。

    第十条 工程建设项目勘察设计招标分为公开招标和邀请招标。

    全部使用国有资金投资或者国有资金投资占控股或者主导地位的工程建设项目,以及国务院发展和改革部门确定的国家重点项目和省、自治区、直辖市人民政府确定的地方重点项目,除符合本办法第十一条规定条件并依法获得批准外,应当公开招标。

    第十一条 依法必须进行勘察设计招标的工程建设项目,在下列情况下可以进行邀请招标:
    (一)项目的技术性、专业性较强,或者环境资源条件特殊,符合条件的潜在投标人数量有限的;
    (二)如采用公开招标,所需费用占工程建设项目总投资的比例过大的;
    (三)建设条件受自然因素限制,如采用公开招标,将影响项目实施时机的。

    招标人采用邀请招标方式的,应保证有三个以上具备承担招标项目勘察设计的能力,并具有相应资质的特定法人或者其他组织参加投标。

    第十二条 招标人应当按招标公告或者投标邀请书规定的时间、地点出售招标文件或者资格预审文件。自招标文件或者资格预审文件出售之日起至停止出售之日止,最短不得少于五个工作日。

    第十三条 进行资格预审的,招标人只向资格预审合格的潜在投标人发售招标文件,并同时向资格预审不合格的潜在投标人告知资格预审结果。

    第十四条 凡是资格预审合格的潜在投标人都应被允许参加投标。
    招标人不得以抽签、摇号等不合理条件限制或者排斥资格预审合格的潜在投标人参加投标。

    第十五条 招标人应当根据招标项目的特点和需要编制招标文件。

    勘察设计招标文件应当包括下列内容:
    (一)投标须知;
    (二)投标文件格式及主要合同条款;
    (三)项目说明书,包括资金来源情况;
    (四)勘察设计范围,对勘察设计进度、阶段和深度要求;
    (五)勘察设计基础资料;
    (六)勘察设计费用支付方式,对未中标人是否给予补偿及补偿标准;
    (七)投标报价要求;
    (八)对投标人资格审查的标准;
    (九)评标标准和方法;
    (十)投标有效期。

    投标有效期,是招标文件中规定的投标文件有效期,从提交投标文件截止日起计算。

    对招标文件的收费应仅限于补偿编制及印刷方面的成本支出,招标人不得通过出售招标文件谋取利益。

    第十六条 招标人负责提供与招标项目有关的基础资料,并保证所提供资料的真实性、完整性。涉及国家秘密的除外。

    第十七条 对于潜在投标人在阅读招标文件和现场踏勘中提出的疑问,招标人可以书面形式或召开投标预备会的方式解答,但需同时将解答以书面方式通知所有招标文件收受人。该解答的内容为招标文件的组成部分。

    第十八条 招标人可以要求投标人在提交符合招标文件规定要求的投标文件外,提交备选投标文件,但应当在招标文件中做出说明,并提出相应的评审和比较办法。

    第十九条 招标人应当确定潜在投标人编制投标文件所需要的合理时间。

    依法必须进行勘察设计招标的项目,自招标文件开始发出之日起至投标人提交投标文件截止之日止,最短不得少于二十日。

    第二十条 除不可抗力原因外,招标人在发布招标公告或者发出投标邀请书后不得终止招标,也不得在出售招标文件后终止招标。

    第三章 投标

    第二十一条 投标人是响应招标、参加投标竞争的法人或者其他组织。

    在其本国注册登记,从事建筑、工程服务的国外设计企业参加投标的,必须符合中华人民共和国缔结或者参加的国际条约、协定中所作的市场准入承诺以及有关勘察设计市场准入的管理规定。

    投标人应当符合国家规定的资质条件。

    第二十二条 投标人应当按照招标文件的要求编制投标文件。投标文件中的勘察设计收费报价,应当符合国务院价格主管部门制定的工程勘察设计收费标准。

    第二十三条 投标人在投标文件有关技术方案和要求中不得指定与工程建设项目有关的重要设备、材料的生产供应者,或者含有倾向或者排斥特定生产供应者的内容。

    第二十四条 招标文件要求投标人提交投标保证金的,保证金数额一般不超过勘察设计费投标报价的百分之二,最多不超过十万元人民币。

    第二十五条 在提交投标文件截止时间后到招标文件规定的投标有效期终止之前,投标人不得补充、修改或者撤回其投标文件,否则其投标保证金将被没收。评标委员会要求对投标文件作必要澄清或者说明的除外。

    第二十六条 投标人在投标截止时间前提交的投标文件,补充、修改或撤回投标文件的通知,备选投标文件等,都必须加盖所在单位公章,并且由其法定代表人或授权代表签字。

    招标人在接收上述材料时,应检查其密封或签章是否完好,并向投标人出具标明签收人和签收时间的回执。

    第二十七条 以联合体形式投标的,联合体各方应签订共同投标协议,连同投标文件一并提交招标人。

    联合体各方不得再单独以自己名义,或者参加另外的联合体投同一个标。

    第二十八条 联合体中标的,应指定牵头人或代表,授权其代表所有联合体成员与招标人签订合同,负责整个合同实施阶段的协调工作。但是,需要向招标人提交由所有联合体成员法定代表人签署的授权委托书。

    第二十九条 投标人不得以他人名义投标,也不得利用伪造、转让、无效或者租借的资质证书参加投标,或者以任何方式请其他单位在自己编制的投标文件代为签字盖章,损害国家利益、社会公共利益和招标人的合法权益。

    第三十条 投标人不得通过故意压低投资额、降低施工技术要求、减少占地面积,或者缩短工期等手段弄虚作假,骗取中标。

    第四章 开标、评标和中标

    第三十一条 开标应当在招标文件确定的提交投标文件截止时间的同一时间公开进行;除不可抗力原因外,招标人不得以任何理由拖延开标,或者拒绝开标。

    第三十二条 评标工作由评标委员会负责。评标委员会的组成方式及要求,按《中华人民共和国招标投标法》及《评标委员会和评标方法暂行规定》(国家计委等七部委联合令第12号)的有关规定执行。

    第三十三条 勘察设计评标一般采取综合评估法进行。评标委员会应当按照招标文件确定的评标标准和方法,结合经批准的项目建议书、可行性研究报告或者上阶段设计批复文件,对投标人的业绩、信誉和勘察设计人员的能力以及勘察设计方案的优劣进行综合评定。

    招标文件中没有规定的标准和方法,不得作为评标的依据。

    第三十四条 评标委员会可以要求投标人对其技术文件进行必要的说明或介绍,但不得提出带有暗示性或诱导性的问题,也不得明确指出其投标文件中的遗漏和错误。

    第三十五条 根据招标文件的规定,允许投标人投备选标的,评标委员会可以对中标人所提交的备选标进行评审,以决定是否采纳备选标。不符合中标条件的投标人的备选标不予考虑。

    第三十六条 投标文件有下列情况之一的,应做废标处理或被否决:

    (一) 未按要求密封;
    (二)未加盖投标人公章,也未经法定代表人或者其授权代表签字;
    (三)投标报价不符合国家颁布的勘察设计取费标准,或者低于成本恶性竞争的;
    (四)未响应招标文件的实质性要求和条件的;
    (五)以联合体形式投标,未向招标人提交共同投标协议的。

    第三十七条 投标人有下列情况之一的,其投标应作废标处理或被否决:

    (一)未按招标文件要求提供投标保证金;
    (二)与其他投标人相互串通报价,或者与招标人串通投标的;
    (三)以他人名义投标,或者以其他方式弄虚作假;
    (四)以向招标人或者评标委员会成员行贿的手段谋取中标的;
    (五)联合体通过资格预审后在组成上发生变化,含有未经过资格预审或者资格
    预审不合格的法人或者其他组织;
    (六)投标文件中标明的投标人与资格预审的申请人在名称和组织结构上存在实质性差别的。

    第三十八条 评标委员会完成评标后,应当向招标人提出书面评标报告,推荐合格的中标候选人。

    评标报告的内容应当符合《评标委员会和评标方法暂行规定》第四十二条的规定。但是,评标委员会决定否决所有投标的,应在评标报告中详细说明理由。

    第三十九条 评标委员会推荐的中标候选人应当限定在一至三人,并标明排列顺序。

    能够最大限度地满足招标文件中规定的各项综合评价标准的投标人,应当推荐为中标候选人。

    第四十条 使用国有资金投资或国家融资的工程建设项目,招标人一般应当确定排名第一的中标候选人为中标人。

    排名第一的中标候选人放弃中标、因不可抗力提出不能履行合同,或者招标文件规定应当提交履约保证金而在规定的期限内未能提交的,招标人可以确定排名第二的中标候选人为中标人。

    排名第二的中标候选人因前款规定的同样原因不能签订合同的,招标人可以确定排名第三的中标候选人为中标人。

    第四十一条 招标人应在接到评标委员会的书面评标报告后十五日内,根据评标委员会的推荐结果确定中标人,或者授权评标委员会直接确定中标人。

    第四十二条 招标人和中标人应当自中标通知书发出之日起三十日内,按照招标文件和中标人的投标文件订立书面合同。

    中标人履行合同应当遵守《合同法》以及《建设工程勘察设计管理条例》中勘察设计文件编制实施的有关规定。

    第四十三条 招标人不得以压低勘察设计费、增加工作量、缩短勘察设计周期等做为发出中标通知书的条件,也不得与中标人再行订立背离合同实质性内容的其他协议。

    第四十四条 招标人与中标人签订合同后五个工作日内,应当向中标人和未中标人一次性退还投标保证金。招标文件中规定给予未中标人经济补偿的,也应在此期限内一并给付。

    招标文件要求中标人提交履约保证金的,中标人应当提交;经中标人同意,可将其投标保证金抵作履约保证金。

    第四十五条 招标人应当在将中标结果通知所有未中标人后七个工作日内,逐一返还未中标人的投标文件。

    招标人或者中标人采用其他未中标人投标文件中技术方案的,应当征得未中标人的书面同意,并支付合理的使用费。

    第四十六条 评标定标工作应当在投标有效期结束日三十个工作日前完成,不能如期完成的,招标人应当通知所有投标人延长投标有效期。

    同意延长投标有效期的投标人应当相应延长其投标担保的有效期,但不得修改投标文件的实质性内容。

    拒绝延长投标有效期的投标人有权收回投标保证金。招标文件中规定给予未中标人补偿的,拒绝延长的投标人有权获得补偿。

    第四十七条 依法必须进行勘察设计招标的项目,招标人应当在确定中标人之日起十五日内,向有关行政监督部门提交招标投标情况的书面报告。

    书面报告一般应包括以下内容:
    (一)招标项目基本情况;
    (二)投标人情况;
    (三)评标委员会成员名单;
    (四)开标情况;
    (五)评标标准和方法;
    (六)废标情况;
    (七)评标委员会推荐的经排序的中标候选人名单;
    (八)中标结果;
    (九)未确定排名第一的中标候选人为中标人的原因;
    (十)其他需说明的问题。

    第四十八条 在下列情况下,招标人应当依照本办法重新招标:

    (一)资格预审合格的潜在投标人不足三个的;
    (二)在投标截止时间前提交投标文件的投标人少于三个的;
    (三)所有投标均被作废标处理或被否决的;
    (四)评标委员会否决不合格投标或者界定为废标后,因有效投标不足三个使得投标明显缺乏竞争,评标委员会决定否决全部投标的;
    (五)根据第四十六条规定,同意延长投标有效期的投标人少于三个的。

    第四十九条 招标人重新招标后,发生本办法第四十八条情形之一的,属于按照国家规定需要政府审批的项目,报经原项目审批部门批准后可以不再进行招标;其他工程建设项目,招标人可自行决定不再进行招标。

    第五章 罚则

    第五十条 依法必须进行勘察设计招标的项目,招标人有下列情况之一的,责令改正,可以并处一万元以上三万元以下罚款;情节严重的,招标无效:

    (一)不具备招标条件而进行招标的;
    (二)应当公开招标而不公开招标的;
    (三)应当发布招标公告而不发布的;
    (四)不在指定媒介发布依法必须招标项目的招标公告的;
    (五)未经批准采用邀请招标方式的;
    (六)自招标文件或者资格预审文件出售之日起至停止出售之日止,时间少于五个工作日的;
    (七)自招标文件开始发出之日起至提交投标文件截止之日止,时间少于二十日的;
    (八)非因不可抗力原因,在发布招标公告、发出投标邀请书或者发售资格预审文件或招标文件后终止招标的。

    第五十一条 以联合体形式投标的,联合体成员又以自己名义单独投标,或者参加其他联合体投同一个标的,责令改正,可以并处一万元以上三万元以下罚款。

    第五十二条 依法必须进行招标的项目的投标人以他人名义投标,利用伪造、转让、租借、无效的资质证书参加投标,或者请其他单位在自己编制的投标文件上代为签字盖章,弄虚作假,骗取中标的,中标无效。尚未构成犯罪的,处中标项目金额千分之五以上千分之十以下的罚款,对单位直接负责的主管人员和其他直接责任人员处单位罚款数额百分之五以上百分之十以下的罚款;有违法所得的,并处没收违法所得;情节严重的,取消其一年至三年内参加依法必须进行招标的项目的投标资格并予以公告,直至由工商行政管理机关吊销营业执照。

    第五十三条 招标人以抽签、摇号等不合理的条件限制或者排斥资格预审合格的潜在投标人参加投标,对潜在投标人实行歧视待遇的,强制要求投标人组成联合体共同投标的,或者限制投标人之间竞争的,责令改正,可以处一万元以上五万元以下的罚款。

    第五十四条 评标过程有下列情况之一的,评标无效,应当依法重新进行评标或者重新进行招标,可以并处三万元以下的罚款:

    (一)使用招标文件没有确定的评标标准和方法的;
    (二)评标标准和方法含有倾向或者排斥投标人的内容,妨碍或者限制投标人之间竞争,且影响评标结果的;
    (三)应当回避担任评标委员会成员的人参与评标的;
    (四)评标委员会的组建及人员组成不符合法定要求的;
    (五)评标委员会及其成员在评标过程中有违法行为,且影响评标结果的。

    第五十五条 下列情况属于招标人与中标人不按照招标文件和中标人的投标文件订立合同,责令改正,可以处中标项目金额千分之五以上千分之十以下的罚款:

    (一)招标人以压低勘察设计费、增加工作量、缩短勘察设计周期等作为发出中标通知书的条件;
    (二)招标人无正当理由不与中标人订立合同的;
    (三)招标人向中标人提出超出招标文件中主要合同条款的附加条件,以此作为签订合同的前提条件;
    (四)中标人无正当理由不与招标人签订合同的;
    (五)中标人向招标人提出超出其投标文件中主要条款的附加条件,以此作为签订合同的前提条件;
    (六)中标人拒不按照要求提交履约保证金的。

    因不可抗力造成上述情况的,不适用前款规定。

    第五十六条 本办法对违法行为及其处罚措施未做规定的,依据《中华人民共和国招标投标法》和有关法律、行政法规的规定执行。

    第六章 附则

    第五十七条 使用国际组织或者外国政府贷款、援助资金的项目进行招标,贷款方、资金提供方对工程勘察设计招标投标的条件和程序另有规定的,可以适用其规定,但违背中华人民共和国社会公共利益的除外。

    第五十八条 本办法发布之前有关勘察设计招标投标的规定与本办法不一致的,以本办法为准。法律或者行政法规另有规定的,从其规定。

    第五十九条 本办法由国家发展和改革委员会会同有关部门负责解释。

    第六十条 本办法自2003年8月1日起施行。

     

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