在线管理数据库asp版.docx

在线管理数据库asp版.docx

《在线管理数据库asp版.docx》由会员分享，可在线阅读，更多相关《在线管理数据库asp版.docx（54页珍藏版）》请在冰豆网上搜索。

在线管理数据库asp版

--

body,td,th{font-family:

"宋体";font-size:

12px;}

form{margin:

0px;padding:

0px;}

body{margin:

5px;SCROLLBAR-ARROW-COLOR:

#666666;SCROLLBAR-FACE-COLOR:

#DDDDDD;SCROLLBAR-DARKSHADOW-COLOR:

#999999;SCROLLBAR-HIGHLIGHT-COLOR:

#FFFFFF;SCROLLBAR-3DLIGHT-COLOR:

#CCCCCC;SCROLLBAR-SHADOW-COLOR:

#FFFFFF;SCROLLBAR-TRACK-COLOR:

#EEEEEE;}

input{border-width:

1px;border-style:

solid;border-color:

#CCCCCC#999999#999999#CCCCCC;height:

16px;}

td{background:

#FFF;}

textarea{border-width:

1px;border-style:

solid;border-color:

#CCCCCC#999999#999999#CCCCCC;}

a,a:

link,a:

visited{

text-decoration:

none;

color:

#000000;

}

a:

hover{

color:

#ff0000;

text-decoration:

underline;

}

.fixSpan{width:

150px;white-space:

nowrap;word-break:

keep-all;overflow:

hidden;text-overflow:

ellipsis;}

-->

<%

SubEcho（str）:

Response.WriteStr:

EndSub

SubDied:

Response.End（）:

EndSub

SubError（）Response.WriteErr.Description:

Err.Clear:

Died:

EndSub

SubEndOut（str）Response.Write（str）:

Response.End（）:

EndSub

SubOut（str）

Response.Write（"调试信息:

"&str）

Response.End（）

EndSub

ifrequest（"key"）="db"then

session（"dbtype"）=request（"dbtype"）

session（"dbstr"）=request（"dbstr"）

response.redirect"?

"

endif

ifrequest（"key"）="createdatabase"then

callcreatedatabase（）

endif

ifsession（"dbtype"）=""orsession（"dbstr"）=""then

%>

key=db"method="post"name="dbt">

连接类型：

'"checked>

ACCESS

SQL

连接字符：

">

注：

access请使用绝对路径,本文件路径：

<%=server.MapPath（"db007.asp"）%>

key=createdatabase">

创建数据库：

路径

"size="100">

<%

response.End（）

endif

'==================================================================建库

subcreatedatabase（）

dimDBName,dbstr,myCat

onerrorresumenext

DBName=request（"dataname"）

dbstr="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATASOURCE="&DBName

SetmyCat=Server.CreateObject（"ADOX.Catalog"）

myCat.Createdbstr

iferr<>0then

response.writeerr.description

session（"dbtype"）=""

session（"dbstr"）=""

response.write"

history.go（-1）'>"

response.end

endif

session（"dbtype"）="access"

session（"dbstr"）=dbstr

response.redirect"?

"

endsub

'==================================================================调用链接函数

conn（）

functionconn（）

dimconn1,connstr

onerrorresumenext

selectcasesession（"dbtype"）

case"access"

'==================================================================连接ACCESS数据库

connstr=session（"dbstr"）

SetConn1=Server.CreateObject（"ADODB.Connection"）

conn1.Openconnstr

case"sql"

'==================================================================连接SQL数据库

setconn1=Server.CreateObject（"ADODB.Connection"）

conn1.opensession（"dbstr"）

endselect

iferr<>0then

response.writeerr.description

session（"dbtype"）=""

session（"dbstr"）=""

response.write"

history.go（-1）'>"

response.end

endif

setconn=conn1

endfunction

Subecho（str）

Response.Write（str）

EndSub

FunctionIIf（var,val1,val2）

Ifvar=TrueThen

IIf=val1

Else

IIf=val2

EndIf

EndFunction

'正则表达式函数，用于删除注释

'-------------------------------------

FunctionRegExpReplace（strng,patrn,replStr）

DimregEx,match,matches'建立变量。

SetregEx=NewRegExp'建立正则表达式。

regEx.Pattern=patrn'设置模式。

regEx.IgnoreCase=True'设置是否区分大小写。

regEx.Global=True'设置全局可用性。

RegExpReplace=regEx.Replace（strng,replStr）'作替换。

EndFunction

'==================================================================ADOVBS常量声明

'----DataTypeEnumValues----

ConstadEmpty=0

ConstadTinyInt=16

ConstadSmallInt=2

ConstadInteger=3

ConstadBigInt=20

ConstadUnsignedTinyInt=17

ConstadUnsignedSmallInt=18

ConstadUnsignedInt=19

ConstadUnsignedBigInt=21

ConstadSingle=4

ConstadDouble=5

ConstadCurrency=6

ConstadDecimal=14

ConstadNumeric=131

ConstadBoolean=11

ConstadError=10

ConstadUserDefined=132

ConstadVariant=12

ConstadIDispatch=9

ConstadIUnknown=13

ConstadGUID=72

ConstadDate=7

ConstadDBDate=133

ConstadDBTime=134

ConstadDBTimeStamp=135

ConstadBSTR=8

ConstadChar=129

ConstadVarChar=200

ConstadLongVarChar=201

ConstadWChar=130

ConstadVarWChar=202

ConstadLongVarWChar=203

ConstadBinary=128

ConstadVarBinary=204

ConstadLongVarBinary=205

'----FieldAttributeEnumValues----

ConstadFldMayDefer=&H00000002

ConstadFldUpdatable=&H00000004

ConstadFldUnknownUpdatable=&H00000008

ConstadFldFixed=&H00000010

ConstadFldIsNullable=&H00000020

ConstadFldMayBeNull=&H00000040

ConstadFldLong=&H00000080

ConstadFldRowID=&H00000100

ConstadFldRowVersion=&H00000200

ConstadFldCacheDeferred=&H00001000

'----SchemaEnumValues----

'----SchemaEnumValues----

ConstadSchemaProviderSpecific=-1

ConstadSchemaAsserts=0

ConstadSchemaCatalogs=1

ConstadSchemaCharacterSets=2

ConstadSchemaCollations=3

ConstadSchemaColumns=4

ConstadSchemaCheckConstraints=5

ConstadSchemaConstraintColumnUsage=6

ConstadSchemaConstraintTableUsage=7

ConstadSchemaKeyColumnUsage=8

ConstadSchemaReferentialConstraints=9

ConstadSchemaTableConstraints=10

ConstadSchemaColumnsDomainUsage=11

ConstadSchemaIndexes=12

ConstadSchemaColumnPrivileges=13

ConstadSchemaTablePrivileges=14

ConstadSchemaUsagePrivileges=15

ConstadSchemaProcedures=16

ConstadSchemaSchemata=17

ConstadSchemaSQLLanguages=18

ConstadSchemaStatistics=19

ConstadSchemaTables=20

ConstadSchemaTranslations=21

ConstadSchemaProviderTypes=22

ConstadSchemaViews=23

ConstadSchemaViewColumnUsage=24

ConstadSchemaViewTableUsage=25

ConstadSchemaProcedureParameters=26

ConstadSchemaForeignKeys=27

ConstadSchemaPrimaryKeys=28

ConstadSchemaProcedureColumns=29

ConstadSchemaDBInfoKeywords=30

ConstadSchemaDBInfoLiterals=31

ConstadSchemaCubes=32

ConstadSchemaDimensions=33

ConstadSchemaHierarchies=34

ConstadSchemaLevels=35

ConstadSchemaMeasures=36

ConstadSchemaProperties=37

ConstadSchemaMembers=38

ConstadSchemaTrustees=39

ConstadSchemaFunctions=40

ConstadSchemaActions=41

ConstadSchemaCommands=42

ConstadSchemaSets=43

'==================================================================返回字段类型函数

Functiontyp（field_type）

'field_type=字段类型值

SelectCasefield_type

caseadEmpty:

typ="Empty"

caseadTinyInt:

typ="TinyInt"

caseadSmallInt:

typ="SmallInt"

caseadInteger:

typ="Integer"

caseadBigInt:

typ="BigInt"

caseadUnsignedTinyInt:

typ="TinyInt"'UnsignedTinyInt

caseadUnsignedSmallInt:

typ="UnsignedSmallInt"

caseadUnsignedInt:

typ="UnsignedInt"

caseadUnsignedBigInt:

typ="UnsignedBigInt"

caseadSingle:

typ="Single"'Single

caseadDouble:

typ="Double"'Double

caseadCurrency:

typ="Money"'Currency

caseadDecimal:

typ="Decimal"

caseadNumeric:

typ="Numeric"'Numeric

caseadBoolean:

typ="Bit"'Boolean

caseadError:

typ="Error"

caseadUserDefined:

typ="UserDefined"

caseadVariant:

typ="Variant"

caseadIDispatch:

typ="IDispatch"

caseadIUnknown:

typ="IUnknown"

caseadGUID:

typ="GUID"'GUID

caseadDATE:

typ="DateTime"'Date

caseadDBDate:

typ="DBDate"

caseadDBTime:

typ="DBTime"

caseadDBTimeStamp:

typ="DateTime"'DBTimeStamp

caseadBSTR:

typ="BSTR"

caseadChar:

typ="Char"

caseadVarChar:

typ="VarChar"

caseadLongVarChar:

typ="LongVarChar"

caseadWChar:

typ="Text"'WChar类型SQL中为Text

caseadVarWChar:

typ="VarChar"'VarWChar

caseadLongVarWChar:

typ="Text"'LongVarWChar

caseadBinary:

typ="Binary"

caseadVarBinary:

typ="VarBinary"

caseadLongVarBinary:

typ="LongBinary"'LongVarBinary

caseadChapter:

typ="Chapter"

caseadPropVariant:

typ="PropVariant"

caseelse:

typ="Unknown"

endselect

EndFunction

'==================================================================返回字段类型列表

Functionfieldtypelist（n）

dimstrlist,str1,str2

strlist=""

ifsession（"dbtype"）="access"then

strlist=strlist&"文本"

strlist=strlist&"备注"

strlist=strlist&"（是/否）"

strlist=strlist&"数字（字节）"

strlist=strlist&"数字（整型）"

strlist=strlist&"数字（长整型）"

strlist=strlist&"数字（单精度）"

strlist=strlist&"数字（双精度）"

strlist=strlist&"数字（小数）"

strlist=strlist&"数字（同步ID）"

strlist=strlist&"时间/日期"

strlist=st