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图像或页面到本地的类


关键字搜索	常规搜索	推荐文档
热门搜索：CSS Fireworks 设计比赛网页制作 web标准用户体验 UE photoshop Dreamweaver Studio8 Flash 手绘 CG

站点最新

站点最新列表

周大福“敬•自然”设计大赛开启

国际体验设计大会7月将在京举行

中国国防科技信息中心标志征集

云计算如何让安全问题可控

云计算是多数企业唯一拥抱互联网的机会

阿里行云

云手机年终巨献，送礼标配299起

阿里巴巴CTO王坚的"云和互联网观"

1499元买真八核云OS双蛋大促

首届COCO桌面手机主题设计大赛

栏目最新

栏目最新列表

扣代码工具——捕获者2.0

扣代码工具——捕获者

CSS 3.0 参考手册(中文版)

WebRebuild第三届年会资料

复杂背景抠毛羽三则(电子书)

第三届D2资料分享

搜索引擎优化基础知识PPT

WAP2.0知识分享PPT

文字点阵化的应用

开源ASP博客程序Cmder V2.0