Access to Sql 脚本编写器

　Access to Sql 脚本编写器

作者：V37　时间： 2004-11-13　文档类型：　来自：蓝色理想

更新第五版（Access可以直接导入SQLserver）：
修正一些bug,用多个目前流行的Access整站和论坛数据库测试（测试最大的80M数据库）
Exe版本可以直接导入到SQL数据库，下载包含Asp 和Exe两个版本的文件

下载：DB_CreateSqlEV1.05.rar

更新第三版：
可以生成完全创建新的SQL库和登陆，并且导入数据的sql和 asp脚本

下载：DB_CreateSqlE(B2004-11-18).rar

------------------------------------------------------
增加第二版的 VB重写的编译Exe版本（可以成为一个小工具）,摆脱asp代码运行的不方便！

下载：MDB_CreateSQLE.rar

------------------------------------------------------
Asp版本
下载:
第一版(生成在Access下运行的SQL和Asp):

下载：DB_CreateSql.rar

第二版(生成Access数据升迁导入到SQLserver的 Sql脚本
生成结果需要在SQLserver的查询分析器里运行，使用到dataopensource()函数):

下载：DB_CreateSqlE.rar

sql和access的脚本语法细节不一样，所以这两个版本是的结果是完全不同的
第二个版本可能更实用

出发点

因为做数据库升级程序,牵涉到建表,建索引,约束,默认啊!表关系的!!! 晕啊!!!!!
全新写生成数据库结构的Sql语句实在无比麻烦!

最好的需要是,在Access里弄好表结构设计,然后像Sql2000那样对数据库对象编写Sql脚本,基于这个处发点,所以编写了这个小程序,专门对Access数据库对象编写Sql脚本，起到事半功倍的作用! 方便方便

功能简介
功能:可编写Access数据库的常用的主要对象,包括
表,视图,索引,约束,包括 默认值,主键,自动编号,外键(表关系)
编写完自动保存为原数据库名+相应扩展的文件
Asp模式可直接生成带表单输入的可执行的Asp文件,用生成的Asp文件即可生成新的数据库
Sql模式可直接生成纯Sql语句文本

实现思路:
用Ado 模式查询 + Adox对象模型双管齐下
通过编写模式查询的List文件(该代码需要可另外提供),分析表结构元素
在加上Adox细节获取必要属性,比如自动编号的种子值,增长量
索引集合的列的排序属性
就基本实现了Access Sql的脚本编写
可能更实用的是编写成可执行的 Asp文件,
因为 Access2000的查询设计运行 Sql语句实在弱智,还乱纠错

第一版代码: 按海娃的提议
1.修改了一下，备注类型用回Access标准字 text char / 我一直习惯 LongText varchar

2.按字段的在表中的顺序来编写，这样重建脚本时就保证一致了
测试比较：将原始数据库编写的sql 与该sql脚本重建的数据库再次编写的 sql比较一致

代码拷贝框
<% @ LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%Option Explicit response.buffer=true Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE>MiniAcces Editor1.0part2 Access SQL脚本编写器(V37 PaintBlue.Net 2004 Acp Code)</TITLE> <META NAME="Generator" CONTENT="EditPlus"> <META NAME="Author" CONTENT="V37"> <META NAME="Keywords" CONTENT="PaintBlue.Net,PaintBlue"> <META NAME="Description" CONTENT="PaintBlue.Net"> <style> table{ color: #000000; font-size: 9pt; FONT-FAMILY: "Tahoma","MS Shell Dlg"; } td { color: #000000; font-size: 9pt; }table{ color: #000000; font-size: 9pt; FONT-FAMILY: "Tahoma","MS Shell Dlg"; } body { color: #000000; font-size: 9pt; } </style> </HEAD> <body bgCOLOR=eeeeee text="#000000" leftmargin="0" marginwidth="100%" topmargin="0" bottommargin="20"> <% dim enMode dim DB_Name,ExtName,FileName dim rs,CONN,CONNstr DB_Name="/coosel2.0/data/mydb.mdb" DB_Name=questStr("DB_Name") FileName=questStr("DB_Name") enMode=questStr("enMode") if not isnumeric(enMode) then enMode=0 if DB_Name<>"" then enMode=clng(enMode) if enMode=0 then ExtName=".Sql" else ExtName=".Asp" end if Call openDB(DB_Name) Call CreateSQL(DB_Name,enMode) else if DB_Name="" then DB_Name="data/mydb.mdb" Call Main() end if Sub MAIN() %> <style> .titlebar { FONT-WEIGHT: bold; FONT-SIZE: 12pt; FILTER: dropshadow(color=#333333, offx=1, offy=2); WIDTH: 100%; COLOR: #ffffff; FONT-FAMILY: Tahoma,Verdana, Arial, sans-serif; POSITION: relative; TOP: 1px } </style> <FORM METHOD=POST ACTION="?action=1" Name=DBform> <TABLE width="100%" cellspacing=0 border=0> <TR bgcolor=#D4D0C8> <TD align=center height=32><a href=http://www.paintblue.net/ target=_blank><img src=http://www.paintblue.net/bbs/images/TitleLogo.gif border=0></a></td><td><span class=titlebar><font color=#ffffff><b>MiniAccess Editor V1.0 P2 (Access 脚本编写器)</b></font></span></TD> <td></td></TR> <TABLE align=center width="100%" cellspacing=1 cellpadding=3 border=0> </TABLE> <TABLE align=center width="100%" cellspacing=1 cellpadding=3 border=0> <TR bgcolor=#a4c0d8><TD align=right height=10></TD><TD></TD></TR> <TR bgcolor=#D4D0C8> <TD align=right><span id=a>编写模式</span></TD> <TD> <INPUT TYPE="radio" NAME="enMode" value="0" <%if enMode=0 then response.write "checked" end if%> >Sql文本 <INPUT TYPE="radio" NAME="enMode" value="1" <%if enMode=1 then response.write "checked" end if%> >Asp代码 </TD> </TR> <TR bgcolor=#D4D0C8> <TD align=right width=250>数据库路径</TD> <TD><INPUT TYPE="text" NAME="DB_Name" value="<%=DB_Name%>" style="width:70%;"> </TD> </TR> <TR bgcolor=#a4c0d8><TD align=right height=10></TD><TD></TD></TR> <TR > <TD height=38></TD> <TD bgcolor=#D4D0C8>  <INPUT TYPE="submit" value=" 确定 " style="width:80;"></TD> </TR> <TR > <TD height=38></TD> <TD bgcolor=#D4D0C8>   <li><<简介>> <li>功能:可编写Access数据库的常用的主要对象,包括 <br>    <b>表,视图,索引,约束,包括默认值,主键,自动编号,外键</b>(表关系) <li>编写完自动保存为原数据库名+相应扩展的文件 <li>Asp模式可直接生成带表单输入的可执行的Asp文件,用生成的Asp文件即可生成新的数据库 <li>Sql模式可直接生成纯Sql语句文本</li><br><br></TD> </TR> </Table> </FORM> <% End SUB '====MiniAcces Editor1.0part2 Access SQL脚本编写器(V37 PaintBlue.Net 2004 Acp Code)========= SUB openDB(DB_Name) if inStr(DB_Name,":/")=0 and inStr(DB_Name,":\")=0 then DB_Name=server.mappath(DB_Name) end if Set CONN = Server.CreateObject("ADODB.CONNection") on error resume next CONN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DB_Name if err.number<>0 then rw "数据库打开失败,错误为:"&err.description,0 err.clear else Set rs=Server.CreateObject("adodb.recordSet") end if End SUB SUB CreateSQL(DB_Name,exec) '创建模式 'exec = 0 : 生成SQL语句 'exec = 1 : 生成Asp程序 dim tbls,tabsArr,ub,I,TtempStr,TtempStrHead dim TableStr if exec=1 then TtempStrHead="<"&"% @ LANGUAGE=""VBSCRIPT""%"&">"&vbcrlf TtempStrHead=TtempStrHead&"<"&"%Option Explicit"&vbcrlf TtempStrHead=TtempStrHead&"response.buffer=true"&vbcrlf&vbcrlf TtempStrHead=TtempStrHead&"'========================================================================="&vbcrlf&"'Access 数据库 SQL 脚本生成 by MiniAccess Edit V1.0 P2(V37 PaintBlue.Net 2004 Asp Code)"&vbcrlf&"'========================================================================="&vbcrlf&vbcrlf end if if instr(DB_Name,":\")=0 and instr(DB_Name,":/")=0 then DB_Name=Server.MapPath(DB_Name) end if CONNstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Name Set CONN = Server.CreateObject("ADODB.Connection") CONN.Open CONNstr '编写CONN对象 if exec=1 then TtempStr="SUB CreateDB(DB_Name)"&vbcrlf TtempStr=TtempStr&"DIM CONN"&vbcrlf TtempStr=TtempStr&"Set CONN=Server.CreateObject(""ADODB.Connection"")"&vbcrlf TtempStr=TtempStr&"CONN.open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""&DB_Name"&vbcrlf&vbcrlf end if '编写表/索引对象 Set tbls=CONN.openSchema(20) 'adSchemaPrimaryKeys tbls.Filter =" TABLE_TYPE='TABLE' " '筛选出有默认值，但允许null的列 while Not tbls.eof TableStr=TableStr&"|"&tbls("TABLE_Name") tbls.movenext wend tbls.filter=0 tbls.close set tbls=nothing TableStr=mid(TableStr,2) if TableStr<>"" then tabsArr=split(TableStr,"|") ub=ubound(tabsArr) for I=0 to ub if exec=1 then TtempStr=TtempStr&"'["&tabsArr(I)&"]:"& vbcrlf TtempStr=TtempStr&CreatTableSql(tabsArr(I),exec)&vbcrlf&vbcrlf next end if '编写表关系 if TableStr<>"" then TtempStr=TtempStr&CreatForeignSql(exec) '编写视图 TtempStr=TtempStr&CreatViewSql(exec) if exec=1 then TtempStr=replace(TtempStr,">","""&chr(62)&""") TtempStr=replace(TtempStr,"<","""&chr(60)&""") TtempStr=TtempStr&"End SUB"& vbcrlf&vbcrlf TtempStr=TtempStr&" call CreateMDB()"&vbcrlf TtempStr=TtempStr&"SUB Main()"&vbcrlf TtempStr=TtempStr&" Response.write(""<center><FORM METHOD=POST><input name=DB_Name Value="""""&Server.Htmlencode(DB_Name)&""""" style=""""width:70%;""""><br><INPUT TYPE=submit name=CreateDB Value=创建数据库></FORM></center>"")"&vbcrlf TtempStr=TtempStr&"End SUB" & vbCrlf& vbCrlf TtempStr=TtempStr& "SUB CreateMDB()" & vbCrlf TtempStr=TtempStr& " dim cat,NewDB_Name" & vbCrlf TtempStr=TtempStr& " NewDB_Name=request(""DB_Name"")" & vbCrlf TtempStr=TtempStr& " if NewDB_Name<>"""" then" & vbCrlf TtempStr=TtempStr& " if instr(NewDB_Name,"":\"")=0 and instr(NewDB_Name,"":/"")=0 then" & vbCrlf TtempStr=TtempStr& " NewDB_Name=Server.MapPath(NewDB_Name)" & vbCrlf TtempStr=TtempStr& " end if " & vbCrlf TtempStr=TtempStr& " set cat=Server.CreateObject(""ADOX.Catalog"") " & vbCrlf TtempStr=TtempStr& " cat.Create ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""&NewDB_Name" & vbCrlf TtempStr=TtempStr& " set cat=nothing " & vbCrlf TtempStr=TtempStr& " CreateDB(NewDB_Name)" & vbCrlf TtempStr=TtempStr& " response.write vbcrlf&""OK""" & vbCrlf TtempStr=TtempStr& " else" & vbCrlf TtempStr=TtempStr& " set cat=nothing " & vbCrlf TtempStr=TtempStr& " call main()" & vbCrlf TtempStr=TtempStr& " end if" & vbCrlf TtempStr=TtempStr& "End SUB" TtempStr=TtempStrHead&TtempStr&vbcrlf&"%"&">" end if call Ados_Write(TtempStr,DB_Name&ExtName,"gb2312") rw "<br><img width=100 height=0>"&DB_Name&"的SQL脚本编写完成",1 rw "<img width=100 height=0>已经保存文件为<b><font color=blue>"&DB_Name&ExtName&"</font></b>[<a href=?>返回</a>]:",1 rw "<center><textarea style=""width:70%;height:500px;"" wrap=""off"">"&server.Htmlencode(TtempStr)&"</textarea></center>",1 End SUB function CreatViewSql(exec) dim cols dim FKtable,PK_cols,FK_cols,tmpStr,tmpStr1,VIEW_DEFINITION Set cols=CONN.openSchema(23) cols.filter=0 while not cols.eof tmpStr1="" VIEW_DEFINITION=replace(cols("VIEW_DEFINITION"),chr(13),"") VIEW_DEFINITION=replace(VIEW_DEFINITION,chr(10)," ") tmpStr1="Create view ["&cols("TABLE_NAME")&"] As "&VIEW_DEFINITION&"" if exec=1 then tmpStr1="CONN.execute("""&tmpStr1&""")" tmpStr=tmpStr&vbcrlf&tmpStr1 cols.movenext wend cols.close set cols=nothing CreatViewSql=tmpStr End Function function CreatTableSql(byval tableName,exec) dim cols dim TmpStr Set cols=CONN.openSchema(4) dim splitchar,splitchar1 if exec=1 then splitchar="""" splitchar1="""&_" else splitchar="" splitchar1="" end if cols.filter="Table_name='"&tableName&"'" if cols.eof then exit function end if dim cat,autoclumn,n,chkPrimaryKey n=0 ' 编写表脚本 autoclumn=GetAutoincrementCoulmnT(tableName) if exec=1 then TmpStr="CONN.execute(""CREATE TABLE ["&tableName&"] (""&_"& vbcrlf else TmpStr="CREATE TABLE ["&tableName&"] ("& vbcrlf end if dim autoclumnStr,columnStr if autoclumn<>"" then autoclumnStr= " "&splitchar&"["& autoclumn &"] integer IDENTITY (1,"&GetIncrement(tableName,autoclumn)&") not null" end if n=0 do n=n+1 cols.filter="Table_name='"&tableName&"' and ORDINAL_POSITION="&n if cols.eof then exit do if n>1 then TmpStr=TmpStr&"," & splitchar1 & vbcrlf if autoclumn=cols("Column_name") then TmpStr=TmpStr & autoclumnStr else TmpStr=TmpStr & " "&splitchar&"["& cols("Column_name") &"] "& lcase(datatypeStr(cols("DATA_TYPE"),cols("CHARACTER_MAXIMUM_LENGTH")))& defaultStr(cols("DATA_TYPE"),cols("COLUMN_DEFAULT"),exec) & nullStr(cols("IS_NULLABLE")) end if cols.movenext loop TmpStr=TmpStr & splitchar1 & vbcrlf &" "&splitchar&")" cols.close if exec=1 then TmpStr=TmpStr&""")" end if '' 编写表脚本 ' autoclumn=GetAutoincrementCoulmnT(tableName) ' if exec=1 then ' TmpStr="CONN.execute(""CREATE TABLE ["&tableName&"] (""&_"& vbcrlf ' else ' TmpStr="CREATE TABLE ["&tableName&"] ("& vbcrlf ' end if ' if autoclumn<>"" then ' TmpStr=TmpStr & " "&splitchar&"["& autoclumn &"] integer IDENTITY (1,"&GetIncrement(tableName,autoclumn)&") not null" ' n=n+1 ' end if ' ' cols.filter="Table_name='"&tableName&"' and column_name<>'"&autoclumn&"'" ' while not cols.eof ' if n>0 then TmpStr=TmpStr&"," & splitchar1 & vbcrlf ' TmpStr=TmpStr & " "&splitchar&"["& cols("Column_name") &"] "& lcase(datatypeStr(cols("DATA_TYPE"),cols("CHARACTER_MAXIMUM_LENGTH")))& defaultStr(cols("DATA_TYPE"),cols("COLUMN_DEFAULT"),exec) & nullStr(cols("IS_NULLABLE")) ' cols.movenext ' n=n+1 ' wend ' TmpStr=TmpStr & splitchar1 & vbcrlf &" "&splitchar&")" ' cols.close ' if exec=1 then ' TmpStr=TmpStr&""")" ' end if ' 编写索引脚本 dim InxArr,i,kstr,j,tmpStr1 InxArr=getInxArr(tableName) Set cols=CONN.openSchema(12) for i=0 to ubound(InxArr) cols.filter="Table_name='"&tableName&"' and index_name='"&InxArr(i)&"'" kstr="" tmpStr1="" if Not isForeignIndex(tableName,InxArr(i)) then '外键索引不进行编写 while not cols.eof kstr=kstr&",["&cols("column_name")&"] "&GetInxDesc(TableName,InxArr(i),cols("column_name")) cols.movenext wend tmpStr1=tmpStr1&"CREATE " if isUnique(TableName,InxArr(i)) then tmpStr1=tmpStr1&"Unique " tmpStr1=tmpStr1&"INDEX ["&InxArr(i)&"] on ["&tableName&"]("&mid(kstr,2)&")" if isPrimaryKey(TableName,InxArr(i)) then tmpStr1=tmpStr1&" with Primary" if exec=1 then tmpStr1="CONN.execute("""&tmpStr1&""")" tmpStr=tmpStr&vbcrlf&tmpStr1 end if next cols.close cols.filter=0 CreatTableSql=TmpStr End function function CreatForeignSql(exec) dim cols dim FKtable,PK_cols,FK_cols,tmpStr,tmpStr1 Set cols=CONN.openSchema(27) cols.filter="PK_NAME<>Null" while not cols.eof tmpStr1="" tmpStr1="ALTER TABLE ["&cols("FK_TABLE_NAME")&"] "&_ "Add CONSTRAINT ["&cols("FK_NAME")&"] "&_ "FOREIGN KEY (["&cols("FK_COLUMN_NAME")&"]) REFERENCES "&_ "["&cols("PK_TABLE_NAME")&"] (["&cols("PK_COLUMN_NAME")&"]) " if cols("UPDATE_RULE")="CASCADE" then tmpStr1=tmpStr1&"ON UPDATE CASCADE " if cols("DELETE_RULE")="CASCADE" then tmpStr1=tmpStr1&"ON DELETE CASCADE " if exec=1 then tmpStr1="CONN.execute("""&tmpStr1&""")" tmpStr=tmpStr&vbcrlf&tmpStr1 cols.movenext wend cols.filter=0 cols.close set cols=nothing CreatForeignSql=tmpStr End Function '判断是否是外键索引 Function isForeignIndex(TableName,indexName) dim cols Set cols=CONN.openSchema(27) cols.filter="FK_TABLE_Name='"&TableName&"' and FK_NAME='"&indexName&"'" if Not cols.eof then isForeignIndex=true else isForeignIndex=false end if End Function '取得索引列的排序属性 function GetInxDesc(TableName,indexName,ColumnName) dim cat set cat=Server.CreateObject("ADOX.Catalog") cat.ActiveCONNection =CONNstr if cat.Tables(""&TableName&"").Indexes(""&indexName&"").Columns(""&ColumnName&"").SortOrder=2 then GetInxDesc="Desc" else GetInxDesc="" end if set cat=nothing end function '取得列数组 function getColumArr(tableName) dim cols,arr(),n redim arr(-1) n=0 redim arr(n) set cols=CONN.openSchema(4) cols.filter="Table_Name='"&tableName&"'" while not cols.eof redim Preserve arr(n) arr(n)=cols("column_name") cols.movenext n=n+1 wend cols.filter=0 cols.close set cols=nothing getColumArr=arr end function '取得索引数组 function getInxArr(tableName) dim cols,arr(),n,tmpCol redim arr(-1) n=0 set cols=CONN.openSchema(12) cols.filter="Table_Name='"&tableName&"'" while not cols.eof if cols("index_name")<>tmpCol then redim Preserve arr(n) arr(n)=cols("index_name") n=n+1 end if tmpCol=cols("index_name") cols.movenext wend cols.filter=0 cols.close set cols=nothing getInxArr=arr end function function isUnique(TableName,IndexName) dim cols set cols=CONN.openSchema(12) cols.filter="Table_Name='"&TableName&"' and Index_Name='"&IndexName&"' and UNIQUE=True" if not cols.eof then isUnique=true else isUnique=false end if cols.filter=0 cols.close set cols=nothing end function function isPrimaryKey(TableName,IndexName) dim cols set cols=CONN.openSchema(12) cols.filter="Table_Name='"&TableName&"' and Index_Name='"&IndexName&"' and PRIMARY_KEY=True" if not cols.eof then isPrimaryKey=true else isPrimaryKey=false end if cols.filter=0 cols.close set cols=nothing end function function getPrimaryKey(tableName,columnName) dim cols Set cols=CONN.openSchema(12) cols.filter="Table_Name='"&tableName&"' and Column_Name='"&columnName&"' and PRIMARY_KEY=True" if not cols.eof then getPrimaryKey=cols("INDEX_NAME") 'isPrimaryKey=true else getPrimaryKey="" 'isPrimaryKey=false end if cols.filter=0 cols.close set cols=nothing end function Function GetIncrement(tableName,columnName) dim cat set cat=Server.CreateObject("ADOX.Catalog") cat.ActiveCONNection =CONNstr GetIncrement=cat.Tables(""&TableName&"").Columns(""&columnName&"").Properties("Increment") set cat=nothing end function Function GetSeed(tableName,columnName) dim cat set cat=Server.CreateObject("ADOX.Catalog") cat.ActiveCONNection =CONNstr GetSeed=cat.Tables(""&TableName&"").Columns(""&columnName&"").Properties("Seed") set cat=nothing end function '通用,内部属性取得自动编号，对SQLserver Access都可以 Function GetAutoincrementCoulmnT(TableName) dim i rs.open "select * from ["&TableName&"] where 1=0",CONN,0,1 for i=0 to rs.fields.count-1 //if rs(i).Properties("isAutoIncrement")=True then if rs(i).Properties("isAutoIncrement")=True then GetAutoincrementCoulmnT=rs(i).name rs.close exit function end if next rs.close End function function datatypeStr(DATA_TYPE,CHARACTER_MAXIMUM_LENGTH) select case DATA_TYPE case 130 if CHARACTER_MAXIMUM_LENGTH=0 then datatypeStr="Text" 'LongText else datatypeStr="char("&CHARACTER_MAXIMUM_LENGTH&")" 'varchar() end if case 17 datatypeStr="tinyint" case 2 datatypeStr="Smallint" case 3 datatypeStr="integer" case 4 datatypeStr="real" 'or /同意词 float4 case 5 datatypeStr="float" 'or /同意词 float8 case 6 datatypeStr="money" 'or /同意词 CURRENCY case 7 datatypeStr="datetime" case 11 datatypeStr="bit" case 72 datatypeStr="UNIQUEIDENTIFIER" 'or /同意词 GUID case 131 datatypeStr="DECIMAL" 'or /同意词 DEC case 128 datatypeStr="BINARY" 'or /同意词 DEC end select 'AUTOINCREMENT end function function defaultStr(DATA_TYPE,COLUMN_DEFAULT,exec) if isNull(COLUMN_DEFAULT) then defaultStr="" exit function end if dim splitchar if exec=1 then splitchar="""""" else splitchar="""" end if select case DATA_TYPE case 130 if left(COLUMN_DEFAULT,1)="""" and right(COLUMN_DEFAULT,1)="""" then COLUMN_DEFAULT=mid(COLUMN_DEFAULT,2,len(COLUMN_DEFAULT)-2) end if COLUMN_DEFAULT=replace(COLUMN_DEFAULT,"""",splitchar) defaultStr=" Default "&splitchar & COLUMN_DEFAULT & splitchar case 128 defaultStr=" Default 0x"&COLUMN_DEFAULT&"" 'or /同意词 DEC case else defaultStr=" Default "&COLUMN_DEFAULT&"" end select end function function nullStr(IS_NULLABLE) if IS_NULLABLE then nullStr="" else nullStr=" not null " end if end function '断点调试 num=0 中断 Sub rw(str,num) dim istr:istr=str dim inum:inum=num response.write str&"<br>" if inum=0 then response.end end sub SUB CreateMDB() '改配置表名和列名 dim cat,NewDB_Name NewDB_Name=request("DB_Name") if NewDB_Name<>"" then if instr(NewDB_Name,":\")=0 and instr(NewDB_Name,":/")=0 then NewDB_Name=Server.MapPath(NewDB_Name) end if set cat=Server.CreateObject("ADOX.Catalog") cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&NewDB_Name set cat=nothing CreateDB(NewDB_Name) response.write vbcrlf&"OK" else set cat=nothing call main() end if End SUB '=============================编写access sql 脚本============// Function questStr(Str) Str=request(Str) Str=replace(Str,"'","") Str=Replace(Str,Chr(0),"") Str=Replace(Str," ","") questStr=Str End Function Function Ados_Read(FileName,CharsetType) dim adosText Ados_Read="" if instr(FileName,":\")=0 and instr(FileName,":/")=0 then FileName=Server.mappath(FileName) end if set adosText=Server.CreateObject("ADODB.Stream") adosText.mode=3 adosText.type=2 'textStream adosText.charset=""&CharsetType&"" adosText.open adosText.loadFromFile FileName Ados_Read=adosText.ReadText() adosText.close set adosText=nothing End Function SUB Ados_Write(TextString,FileName,CharsetType) dim adosText if instr(FileName,":\")=0 and instr(FileName,":/")=0 then FileName=Server.mappath(FileName) end if set adosText=Server.CreateObject("ADODB.Stream") adosText.mode=3 adosText.type=2 'textStream adosText.charset=""&CharsetType&"" adosText.open adosText.setEos adosText.WriteText(TextString) adosText.SaveToFile FileName,2 adosText.close set adosText=nothing End SUB %> <hr size=1> <center>Create by <a href="http://www.paintblue.net/">V37 PaintBlue.Net 极点视觉</a> 2004-11-12</center> <hr size=1> <br> <br> </BODY> </HTML>
[Ctrl+A 全部选择然后拷贝]

(版权: PaintBlue.Net | blueidea.com)
2004-11-12 V37
Ps:转载请注明出处!

出处：蓝色理想
责任编辑：蓝色

作者文章

Access to Sql 脚本编写器

CooSel V1.5b2 Web站点管理系统

用ASP实现ASP文件的运行

象 DEV-Club 那样的彩色校验码

保存WEB图像或页面到本地的类

站点最新

站点最新列表

跟我去香港:The third Day

单件模式结合命令链模式

快乐狗原创动漫大赛

元素层叠级别及z-index剖析

CSS 浏览器的等宽空格

电影变形金刚概念画欣赏

疯狂的程序员第三十五回

疯狂的程序员第三十四回

疯狂的程序员第三十三回

运用ASDoc工具

栏目最新

栏目最新列表

通用滑动门类

多级flash树型菜单

表单验证 Validator v4.0

火山动态文本滚动条V5

Flash打造的随机画圆弧效果

AS打造的复制粘贴等功能类

Momo家族表情

AirZip:解压Zip文件的air程序

下雪系统类SnowSystem

Flash实时调试器