admin_dbtools.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/onlogin.asp" -->
<%
tit="<a href='admin_dbtools.asp?'>编辑数据库</a>"
response.write header(2,tit)

'--------------------------------------------------------------------
' COCOON Db Tools Final Release
'
' Copyright (c) 2000-2002 COCOON sTudio.
'                       [ www.cocoon.6to23.com ]
' 作者： Sunrise _Chen
' 请保留以上信息，谢谢配合。
'--------------------------------------------------------------------

	'---- 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
	
	'---- 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
	Const adSchemaFunctions = 40
	Const adSchemaActions = 41
	Const adSchemaCommands = 42
	Const adSchemaSets = 43

	
	Dim sMainTblString
	sMainTblString ="<table width='760' border='0' cellpadding='2' cellspacing='1' class='1BorderTable'>" & vbCrLf & _
					"  <tr> " & vbCrLf & _
					"    <td class='tdTitle'><table width='100%' border='0' cellpadding='3' cellspacing='0' class='tdTitle'>" & vbCrLf & _
					"        <tr> " & vbCrLf & _
					"          <td>[title]</td>" & vbCrLf & _
					"          <td>&nbsp;</td>" & vbCrLf & _
					"          <td align='right'>Coding by Sunrise_Chen.</td>" & vbCrLf & _
					"        </tr>" & vbCrLf & _
					"      </table></td>" & vbCrLf & _
					"  </tr>" & vbCrLf & _
					"  <tr> " & vbCrLf & _
					"    <td><table width='100%' border='0' cellpadding='3' cellspacing='1' class='tdTitle'>" & vbCrLf & _
					"	    [body]" & vbCrLf & _
					"      </table></td>" & vbCrLf & _
					"  </tr>" & vbCrLf & _
					"  <tr>" & vbCrLf & _
					"    <td height='5' class='tdTitle'></td>" & vbCrLf & _
					"  </tr>" & vbCrLf & _
					"</table>"
		
	Function IIf(exp1,val1,val2)
		If (exp1) Then
			IIf = val1
		Else
			IIf = val2
		End If
	End Function
	
	Function String4Js(s)
		If isNull(s) Then String4Js="" : Exit Function
		String4Js = Replace(Replace(Replace(Replace(s,"\","\\"),"""","\"""),"'","\'"),vbCrLf,"\n")
	End Function
	
	Function GetFieldType(sType)
		Select Case sType 
		Case adEmpty 
			GetFieldType = "Empty" 
		Case adTinyInt 
			GetFieldType = "TinyInt" 
		Case adSmallInt 
			GetFieldType = "SmallInt" 
		Case adInteger 
			GetFieldType = "Int" 
		Case adBigInt 
			GetFieldType = "BigInt" 
		Case adUnsignedTinyInt 
			GetFieldType = "TinyInt" 
		Case adUnsignedSmallInt 
			GetFieldType = "UnsignedSmallInt" 
		Case adUnsignedInt 
			GetFieldType = "UnsignedInt" 
		Case adUnsignedBigInt 
			GetFieldType = "UnsignedBigInt" 
		Case adSingle 
			GetFieldType = "Real" 
		Case adDouble 
			GetFieldType = "Float" 
		Case adCurrency 
			GetFieldType = "Money" 
		Case adDecimal 
			GetFieldType = "Decimal" 
		Case adNumeric 
			GetFieldType = "Numeric" 
		Case adBoolean 
			GetFieldType = "Bit" 
		Case adError 
			GetFieldType = "Error" 
		Case adUserDefined 
			GetFieldType = "UserDefined" 
		Case adVariant 
			GetFieldType = "sql_Variant" 
		Case adIDispatch 
			GetFieldType = "IDispatch" 
		Case adIUnknown 
			GetFieldType = "IUnknown" 
		Case adGUID 
			GetFieldType = "UniqueIdentifier" 
		Case adDATE 
			GetFieldType = "DateTime" 
		Case adDBDate 
			GetFieldType = "DBDate" 
		Case adDBTime 
			GetFieldType = "DBTime" 
		Case adDBTimeStamp 
			GetFieldType = "DateTime" 
		Case adBSTR 
			GetFieldType = "BSTR" 
		Case adChar 
			GetFieldType = "Char" 
		Case adVarChar 
			GetFieldType = "VarChar" 
		Case adLongVarChar 
			GetFieldType = "Text" 
		Case adWChar 
			GetFieldType = "nChar" 
		Case adVarWChar 
			GetFieldType = "nVarChar" 
		Case adLongVarWChar 
			GetFieldType = "nText" 
		Case adBinary 
			GetFieldType = "TimeStamp" 
		Case adVarBinary 
			GetFieldType = "VarBinary" 
		Case adLongVarBinary 
			GetFieldType = "Image" 
		Case adChapter 
			GetFieldType = "Chapter" 
		Case adPropVariant 
			GetFieldType = "PropVariant" 
		Case else 
			GetFieldType = "Unknown" 
		End Select
	End Function

	
	Class CC_DBTools
		
		Dim sLastErrDescription, sSqlString
		Dim iPageSize, iPageCount, iCurrPage, iRecCount
		Dim iDbType, sDbPath, bDbActived
		Dim oConn, sConnString, sConnType
		Dim aOleDbString(2), aODBCString(2)
		Dim aObjList()
		
		Private Sub Class_Initialize
			'//初始化类
			Set oConn = Server.CreateObject("ADODB.Connection")
			aOleDbString(0) = "Provider=Microsoft.Jet.OleDb.4.0;Data Source="
			aODBCString(0) = "DRIVER={Microsoft Access Driver (*.mdb)};Dbq="
			aOleDbString(1) = "Provider=SQLOLEDB.1;Data Source="
			aODBCString(1) = "Driver={SQL Server};SERVER="
			iDbType = 0
			sConnType = "OleDb"
			sConnString = aOleDbString(iDbType)
			bDbActived = false
			sLastErrDescription = ""
			iPageSize=20
			iPageCount=0
			iCurrPage=1
			iRecCount=0
		End Sub
		
		Private Sub Class_Terminate
			'//结束类
			Set oConn = Nothing
		End Sub
		
		Public Property Let DataBaseType(s)
			Select Case s
			Case "MSSQL" : iDbType = 1
			Case "ACCESS" : iDbType = 0
			End Select
		End Property
		
		Public Property Let ConnType(s)
			sConnType = s
			Select Case s
			Case "ODBC" : sConnString = aODBCString(iDbType)
			Case "OLEDB" : sConnString = aOleDbString(iDbType)
			End Select
		End Property
		
		Public Property Let DbPath(s)
			sDbPath = s
			Select Case iDbType
			Case 0 
				If Len(sDbPath)<1 Then  Exit Property
				sConnString = sConnString & Server.MapPath(s) & ";"
			Case 1
				sConnString = sConnString & s & ";"
			End Select
		End Property
		
		Public Property Let DbUID(s)
			Select Case sConnType
			Case "ODBC" : sConnString = sConnString & "UID=" & s & ";"
			Case "OLEDB" : sConnString = sConnString & "User ID=" & s & ";"
			End Select
		End Property