admin_db.asp

全能学校管理网站源码,小草网络提供,下载试用下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<%
if session("superlogin")="" then
response.Write "<script>alert('本站提示：您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
elseif session("superadmin")<>"admin" then
response.Write "<script>alert('本站提示：您不是超级管理员！您的权限不足！');this.location.href='index.asp';</script>"
Response.End
end if
	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='100%' border='0' cellpadding='0' cellspacing='0' class='3d'>" & vbCrLf & _
					"  <tr> " & vbCrLf & _
					"    <td><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'>管理系统数据库在线管理工具</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 & _
					"</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		
		Public Property Let DbPWD(s)
			Select Case sConnType
			Case "ODBC" : sConnString = sConnString & "PWD=" & s & ";"
			Case "OLEDB" : sConnString = sConnString & "Password=" & s & ";"
			End Select
		End Property		
		Public Property Let DbCatelog(s)
			Select Case iDbType
			Case 0
			Case 1
				Select Case sConnType
				Case "ODBC" : sConnString = sConnString & "DATABASE=" & s & ";"
				Case "OLEDB" : sConnString = sConnString & "DATABASE=" & s & ";"
				End Select
			End Select
		End Property		
		Public Property Get ConnString
			ConnString = oConn.ConnectionString
		End Property		
		Public Property Get isActive
			isActive = bDbActived
		End Property