ACCESS数据库在线更新代码(ASP版)

最新推荐文章于 2020-10-21 13:19:16 发布
最新推荐文章于 2020-10-21 13:19:16 发布
阅读量2.3k 收藏
点赞数
分类专栏： ASP 数据库 文章标签： 数据库 access asp sql delete javascript
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jyh_jack/article/details/2233381
版权

代码有点多，下载：http://download.csdn.net/source/337848

另外程序还有点Bug，还没来得及改，如果谁完善一下，别忘了发给我一份（jyh_jack@163.com）

by 鞠勇鸿

conn.asp 内容：
 <%
dim  conn
 set  conn = server.createobject( " adodb.connection " )
connString = " Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath( " data.mdb " )
conn.open connString
 %>

 

index.asp 内容：
 <!-- #include file=conn.asp -->
<% ' 得到ACCESS数据表的列表存入Tables()数组
set  adoxCatalogx = server.createobject( " ADOX.Catalog " )

 dim  adoxCatalogx
 set  adoxCatalogx.ActiveConnection = conn

 dim  adoTable
 set  adoTable = server.createobject( " ADOX.Table " )
 dim  Tables()
 Redim  Tables(adoxCatalogx.Tables.count)
i = 1
for   each  adoTable in adoxCatalogx.Tables
   ' response.write adoTable.Name+"<br>"
  Tables(i) = adoTable.Name
  i = i + 1
next
%>

< html  xmlns ="http://www.w3.org/1999/xhtml" >

< head >
< meta  http-equiv ="Content-Type"  content ="text/html; charset=utf-8"   >
< title > SQL Query </ title >
< style  type ="text/css" >
.f1 {
    font-size : 9pt ;
    color : black ;
    font-family : 宋体 ;
}
.f2 {
    font-size : 9pt ;
    color : #929292 ;
    font-family : 宋体 ;
}
.f3 {
    font-size : 9pt ;
    color : #000000 ;
    font-family : 宋体 ;
    font-weight : bold ;
}
a {
    font-size : 9pt ;
    color : blue ;
    font-family : 宋体 ;
    text-decoration : none ;
}
.table1  {
    border-collapse :  collapse ;
    border-style :  solid ;
    border-width :  1px ;
    width :  150px ;
}
input {
    font-size : 9pt ;
    font-family : 宋体 ;
}
</ style >

< script  type ="text/javascript" >
function  showHide(objId)
{
    obj = document.getElementById(objId);
     if  (obj.style.display == ' block ' )
    {
        obj.style.display = ' none ' ;
    }
     else
    {
        obj.style.display = ' block ' ;
    }
}

 function  getSqlText(QueryType,Table)
{
    obj = document.getElementById( " QueryText " );
    
     switch (QueryType)
    {
         case   " select " :
            str = " select * from [ " + Table + " ] " ;
             break ;
         case   " select10 " :
            str = " select top 10 * from [ " + Table + " ] " ;
             break ;
         case   " update " :
            str = " update [ " + Table + " ] " ;
            str += "     set    = " ;
            str += "     where  = "
             break ;
         case   " delete " :
            str = " delete from [ " + Table + " ] where  = " ;
             break ;
    }
    obj.value = str;
    obj.focus();
    obj.select();
}

 function  getStructure(Table)
{
    obj = document.getElementById( " QueryText " );
    obj.value = " [ " + Table + " ] "

     var  winName = (Math.round(Math.random() * 1000 )).toString();
    window.open( "" ,winName);
    document.QueryForm.target = winName;
    document.QueryForm.action = " Query.asp?action=structure " ;
    document.QueryForm.submit();
}

 function  runQuery(IfNewWindow)
{
    document.QueryForm.QueryText.value = document.QueryForm.QueryText.value.replace( /^ s */ , "" ); // 去左空格
    document.QueryForm.QueryText.value = document.QueryForm.QueryText.value.replace( / s * $ / , "" ); // 去右空格
     if  (document.QueryForm.toClipBoard.checked)
    {
        window.clipboardData.setData( " Text " ,document.QueryForm.QueryText.value); // 存入clipboard
    }

    str = document.QueryForm.QueryText.value;
    
     if  (str.length < 7 )
    {
        alert( " 请输入正常的SQL！ " );
        document.QueryForm.QueryText.select();
        document.QueryForm.QueryText.focus();
         return ;
    }
    
     if  (str.indexOf( " ; " ) >= 0 )
    {
        alert( " 正常的SQL中不应包含';'！ " );
        document.QueryForm.QueryText.select();
        document.QueryForm.QueryText.focus();
         return ;
    }
    
     if  (str.indexOf( " " " ) >= 0 )
    {
        alert( " 正常的SQL中不应包含'"'！ " );
        document.QueryForm.QueryText.select();
        document.QueryForm.QueryText.focus();
         return ;
    }
    
    queryType = str.substr( 0 , 6 ).toLowerCase();
     switch (queryType)
    {
         case   " select " :
             if  (IfNewWindow == 0 )
            {
                document.QueryForm.action = " Query.asp?action=select " ;
                document.QueryForm.target = window.name;
                document.QueryForm.submit();
            }
             else
            {
                 var  winName = (Math.round(Math.random() * 1000 )).toString();
                window.open( "" ,winName);
                document.QueryForm.target = winName;
                document.QueryForm.action = " Query.asp?action=select " ;
                document.QueryForm.submit();
            }
             break ;
         case   " update " :
             if  (IfNewWindow == 0 )
            {
                document.QueryForm.action = " Query.asp?action=update " ;
                document.QueryForm.target = window.name;
                document.QueryForm.submit();
            }
             else
            {
                 var  winName = (Math.round(Math.random() * 1000 )).toString();
                window.open( "" ,winName);
                document.QueryForm.target = winName;
                document.QueryForm.action = " Query.asp?action=update " ;
                document.QueryForm.submit();
            }
             break ;
         case   " delete " :
             if  (IfNewWindow == 0 )
            {
                document.QueryForm.action = " Query.asp?action=delete " ;
                document.QueryForm.target = window.name;
                document.QueryForm.submit();
            }
             else
            {
                 var  winName = (Math.round(Math.random() * 1000 )).toString();
                window.open( "" ,winName);
                document.QueryForm.target = winName;
                document.QueryForm.action = " Query.asp?action=delete " ;
                document.QueryForm.submit();
            }
             break ;
    }
}

 function  runGouYinQuery()
{
    alert( " 请在执行前备份数据库! " );
     if  ( ! confirm( " 是否要进行强制执行SQL操作? " )){ return ;}
     if  ( ! confirm( " 强执行SQL后,数据无法恢复。是否继续? " )){ return ;}
     if  ( ! confirm( " 最后一次确认。是否继续? " )){ return ;}
    
     var  winName = (Math.round(Math.random() * 1000 )).toString();
    window.open( "" ,winName);
    document.QueryForm.target = winName;
    document.QueryForm.action = " Query.asp?action=GouInSQL " ;
    document.QueryForm.submit();
}
 </ script >
</ head >

< body >

< form  action ="query.asp"  method ="post"  name ="QueryForm" >
< table  style ="width: 930px" >
     < tr >
         < td  rowspan ="2"  style ="width: 155px" >
         < table  width ="940"  border ="1"  bordercolor ="black"  cellspacing ="2"  cellpadding ="3"  class ="table1"   >
     < tr  style ="text-align: center; height: 28px;" >
         < td  style ="border-width: 1px"  width ="150" >
         < font  class ="f3"   > 表名 </ font ></ td >
     </ tr >
     <%
     for  i = 1   to   ubound (Tables)
     %>
     < tr >
         < td  style ="border-width: 1px"  width ="150" >
         < label  onclick ="showHide('div<%=i%>')"  style ="cursor:pointer " >
         <% if   UCASE ( left (Tables(i), 4 )) = " MSYS "   then %>
           < font  class ="f2" > <% = Tables(i) %> </ font >
         <% else %>
           < font  class ="f1" > <% = Tables(i) %> </ font >
         <% end   if %>
         </ label >
         < div  align ="center"  id ="div<%=i%>"  style ="display:none;" >
         < a  href ="javascript:"  onclick ="getStructure('<%=Tables(i)%>')"  title ="查看表结构" > 结构 </ a > &nbsp;
         < a  href ="javascript:"  onclick ="getSqlText('select','<%=Tables(i)%>')"  title ="查询记录" > 查询 </ a >< a  href ="javascript:"  onclick ="getSqlText('select10','<%=Tables(i)%>')"  title ="查询前10条记录" > 10 </ a > &nbsp;
         < a  href ="javascript:"  onclick ="getSqlText('update','<%=Tables(i)%>')"  title ="修改记录内容" > 修改 </ a > &nbsp;
         < a  href ="javascript:"  onclick ="getSqlText('delete','<%=Tables(i)%>')"  title ="删除记录" > 删除 </ a >
         </ div >
         </ td >
     </ tr >
     <%
     next
     %>
</ table >

         </ td >
         < td  style ="height: 150px"  valign ="top" >< font  class ="f3" > 查询分析器： </ font >< br >
         < textarea  style ="width: 753px; height: 121px"  id ="QueryText"  name ="QueryText" ></ textarea >< br >
         < input  type ="button"  value ="运行(r)"  onclick ="runQuery(0)"  accesskey ="r" >
         < input  type ="button"  value ="新窗口中运行(n)"  onclick ="runQuery(1)"  accesskey ="n" >
         < input  type ="button"  value ="无判断，强执行"  onclick ="runGouYinQuery()"  accesskey ="n"  style ="color:red" > &nbsp;&nbsp;&nbsp;
         < input  type ="checkbox"  accesskey ="c"  id ="toClipBoard"  name ="toClipBoard"  checked ="checked"   >< label  for ="toClipBoard"  class ="f1"   > 自动将查询存入剪切版 </ label >
         </ td >
     </ tr >
     < tr >
         < td  valign ="top" > &nbsp;&nbsp; </ td >
     </ tr >
</ table >
</ form >
</ body >

</ html >

 

 

Query.asp 内容：
 < ! -- #include file = conn.asp -->
< %
Response.Buffer = True
Response.ExpiresAbsolute = Now () - 1
Response.Expires = 0
Response.CacheControl = " no-cache "
Response.AddHeader  " Pragma " , " No-Cache "     ' 以上代码防止使用缓存


Action = request( " Action " )
SQL = trim (request( " QueryText " ))
 ' response.write sql

select   case  Action
   case   " select "                  ' 简单查询、单表查询
    title = " Select查询 "
   case   " update "
    title = " Update更新－－第一步，确认 "
   case   " update2 "
    title = " update更新－－第二步，更新完成 "
   case   " delete "
    title = " Delete删除－－第一步，确认 "
   case   " delete2 "
    title = " Delete删除－－第二步，删除完成 "
   case   " GouInSQL "
    title = " 强制执行SQL "
   case   " structure "
    title = " 得到表 " + sql + " 结构 "
end   select
% >

< html >

< head >
< meta http - equiv = " Content-Type "  content = " text/html; charset=utf-8 "   >
< title >< % = title% ></ title >
< style type = " text/css " >
.f1{
    font - size:9pt;
    color:black;
    font - family:宋体;
}
.f2{
    font - size:9pt;
    color:# 929292 ;
    font - family:宋体;
}
.f3{
    font - size:9pt;
    color:# 000000 ;
    font - family:宋体;
    font - weight:bold;
}
a{
    font - size:9pt;
    color:blue;
    font - family:宋体;
    text - decoration:none;
}
.style1 {
    border - collapse: collapse;
    border: 1px solid # 000000 ;
}
 </ style >

< script type = " text/javascript " >
function  showDetail(objId)
{
    obj = document.getElementById(objId);
    str = obj.innerHTML;
    document.DetailForm.action = " ViewDetail.asp " ;
    document.DetailForm.AllText.value = str;
    var winName = (Math.round(Math.random() * 1000 )).toString();
    window.open( "" ,winName);
    document.DetailForm.target = winName;
    document.DetailForm.submit();
}

 function  setSQLTextSubmit(sql,querystring)
{
    document.DetailForm.QueryText.value = sql;
    document.DetailForm.action = " Query.asp " + querystring;
    document.DetailForm.target = window.name;
    document.DetailForm.submit();
}

 function  update2Submit()
{
    alert( " 请在更新前备份数据库！ " );
     if  (confirm( " 更新数据后不可恢复，是否确认更新数据？ " ))
    {
        document.DetailForm.target = window.name;
        document.DetailForm.submit();
    }
}

 function  delete2Submit()
{
    alert( " 请在删除前备份数据库！ " );
     if  (confirm( " 删除后不可恢复，确认删除数据？ " ))
    {
        document.DetailForm.target = window.name;
        document.DetailForm.submit();
    }
}

 /******************************
*****  SQL生成控制面版 函数  *******
*******************************/
var TableName = "" ;  // 当前表名
var CurrentSubText = "" ;  // 当前设置子句

 function  showSqlPane() // 显示、关闭面版
{
     if  (document.getElementById( " ControlPane " ).style.display == ' block')
    {
        document.getElementById( " ControlPane " ).style.display = ' none';
    }
     else
    {
        document.getElementById( " ControlPane " ).style.display = " block " ;
    }
}

 function  actionSelectChage()  // 选择Radio
{
     if  (document.getElementById( " actionSelect " ).checked)
    {
        document.ControlPaneForm.WhereText.disabled = false ;
        document.ControlPaneForm.SubSQLWhere.disabled = false ;
        document.ControlPaneForm.OrderText.disabled = false ;
        document.ControlPaneForm.SubSQLOrder.disabled = false ;
        document.ControlPaneForm.SetText.disabled = true ;
        document.ControlPaneForm.SubSQLSet.disabled = true ;
    }

     if  (document.getElementById( " actionUpdate " ).checked)
    {
        document.ControlPaneForm.WhereText.disabled = false ;
        document.ControlPaneForm.SubSQLWhere.disabled = false ;
        document.ControlPaneForm.OrderText.disabled = true ;
        document.ControlPaneForm.SubSQLOrder.disabled = true ;
        document.ControlPaneForm.SetText.disabled = false ;
        document.ControlPaneForm.SubSQLSet.disabled = false ;
    }
    
     if  (document.getElementById( " actionDelete " ).checked)
    {
        document.ControlPaneForm.WhereText.disabled = false ;
        document.ControlPaneForm.SubSQLWhere.disabled = false ;
        document.ControlPaneForm.OrderText.disabled = true ;
        document.ControlPaneForm.SubSQLOrder.disabled = true ;
        document.ControlPaneForm.SetText.disabled = true ;
        document.ControlPaneForm.SubSQLSet.disabled = true ;
    }
}

 function  chooseTitle(type) // 选择子句
{
    CurrentSubText = type;
    obj = document.getElementById( " hinter " );

    switch(type)
    {
         case   " where " :
            obj.innerHTML = " 请设置 &lt;Where&gt; 字句字段，点击标题>> " ;
            break;
         case   " order " :
            obj.innerHTML = " 请设置 &lt;Order&gt; 字句字段，点击标题>> " ;
            break;
         case   " set " :
            obj.innerHTML = " 请设置 &lt;Set&gt; 字句字段，点击标题>> " ;
            break;
         case   " clear " :
            obj.innerHTML = "" ;
            break;
    }
}

 function  titleClick(title) // 选择字段
{
    obj = document.getElementById( " hinter " );

    switch(CurrentSubText)
    {
         case   " where " :
            obj.innerHTML = " 请设置 &lt;Where&gt; 字句字段，点击标题>> " ;
            document.ControlPaneForm.WhereText.value = title + " = " ;
            document.ControlPaneForm.WhereText.focus;
            document.ControlPaneForm.WhereText.select();
            obj.innerHTML = "" ;
            break;
         case   " order " :
            obj.innerHTML = " 请设置 &lt;Order&gt; 字句字段，点击标题>> " ;
            document.ControlPaneForm.OrderText.value = title;
            document.ControlPaneForm.OrderText.focus;
            document.ControlPaneForm.OrderText.select();
            obj.innerHTML = "" ;
            break;
         case   " set " :
            obj.innerHTML = " 请设置 &lt;Set&gt; 字句字段，点击标题>> " ;
            document.ControlPaneForm.SetText.value = title + " = " ;
            document.ControlPaneForm.SetText.focus;
            document.ControlPaneForm.SetText.select();
            obj.innerHTML = "" ;
            break;
    }
}

 function  establishSQL()
{
    var sql = "" ;
     if  (document.getElementById( " actionSelect " ).checked)  // select
    {
        sql = " select * from  " + TableName;
         if  (document.ControlPaneForm.SubSQLWhere.checked)
        {
            sql += "        where  " + document.ControlPaneForm.WhereText.value;
        }
         if  (document.ControlPaneForm.SubSQLOrder.checked)
        {
            sql += "        order by  " + document.ControlPaneForm.OrderText.value;
             if  (document.ControlPaneForm.orderDesc.checked)
            {
                sql += "  Desc " ;
            }
             else
            {
                sql += "  Asc " ;
            }
        }
    }
    
     if  (document.getElementById( " actionUpdate " ).checked)  // update
    {
        sql = " update  " + TableName;
         if  (document.ControlPaneForm.SubSQLSet.checked)
        {
            sql += "        set  " + document.ControlPaneForm.SetText.value;
        }
         if  (document.ControlPaneForm.SubSQLWhere.checked)
        {
            sql += "        where  " + document.ControlPaneForm.WhereText.value;
        }
    }
    
     if  (document.getElementById( " actionDelete " ).checked)  // delete
    {
        sql = " delete from  " + TableName;
         if  (document.ControlPaneForm.SubSQLWhere.checked)
        {
            sql += "        where  " + document.ControlPaneForm.WhereText.value;
        }
    }
    
    document.ControlPaneForm.QueryText.value = sql;
}

 function  returnSQL()
{
    obj = window.opener.document.getElementById( " QueryText " );
    obj.value = document.ControlPaneForm.QueryText.value;
}

 function  runSQL(IfNewWindow)
{
    document.ControlPaneForm.QueryText.value = document.ControlPaneForm.QueryText.value.replace( /^ s */ , "" ); // 去左空格
    document.ControlPaneForm.QueryText.value = document.ControlPaneForm.QueryText.value.replace( / s * $ / , "" ); // 去右空格
    
    str = document.ControlPaneForm.QueryText.value; 
    
     if  (str.length < 7 )
    {
        alert( " 请输入正常的SQL！ " );
        document.ControlPaneForm.QueryText.select();
        document.ControlPaneForm.QueryText.focus();
        return;
    }
    
     if  (str.indexOf( " ; " ) >= 0 )
    {
        alert( " 正常的SQL中不应包含';'！ " );
        document.ControlPaneForm.QueryText.select();
        document.ControlPaneForm.QueryText.focus();
        return;
    }
    
     if  (str.indexOf( " "")>=0)
    {
        alert( " 正常的SQL中不应包含' " ' ！");
        document.ControlPaneForm.QueryText.select();
        document.ControlPaneForm.QueryText.focus();
        return;
    }
    
    queryType = str.substr( 0 , 6 ).toLowerCase();
    switch(queryType)
    {
         case   " select " :
             if  (IfNewWindow == 0 )
            {
                document.ControlPaneForm.action = " Query.asp?action=select " ;
                document.ControlPaneForm.target = window.name;
                document.ControlPaneForm.submit();
            }
             else
            {
                var winName = (Math.round(Math.random() * 1000 )).toString();
                window.open( "" ,winName);
                document.ControlPaneForm.target = winName;
                document.ControlPaneForm.action = " Query.asp?action=select " ;
                document.ControlPaneForm.submit();
            }
            break;
         case   " update " :
             if  (IfNewWindow == 0 )
            {
                document.ControlPaneForm.action = " Query.asp?action=update " ;
                document.ControlPaneForm.target = window.name;
                document.ControlPaneForm.submit();
            }
             else
            {
                var winName = (Math.round(Math.random() * 1000 )).toString();
                window.open( "" ,winName);
                document.ControlPaneForm.target = winName;
                document.ControlPaneForm.action = " Query.asp?action=update " ;
                document.ControlPaneForm.submit();
            }
            break;
         case   " delete " :
             if  (IfNewWindow == 0 )
            {
                document.ControlPaneForm.action = " Query.asp?action=delete " ;
                document.ControlPaneForm.target = window.name;
                document.ControlPaneForm.submit();
            }
             else
            {
                var winName = (Math.round(Math.random() * 1000 )).toString();
                window.open( "" ,winName);
                document.ControlPaneForm.target = winName;
                document.ControlPaneForm.action = " Query.asp?action=delete " ;
                document.ControlPaneForm.submit();
            }
            break;
    }
}
 </ script >
</ head >

< body class = " f1 " >
< form name = " ControlPaneForm "  action = " query.asp "  method = " post " >
< div id = " ControlPane "  style = " <%= " display:none; " %> " >
SQL生成控制面版： < font id = " hinter "  style = " color:red;font-size:9pt;font-weight:bold; " ></ font >
< table style = " width: 100% "  cellspacing = " 3 "  cellpadding = " 4 "  class = " style1 " >
     < tr >
         < td style = " border: 1px solid #000000; width: 70px; "  valign = " top " >
         < table style = " width: 100% " >
             < tr >
                 < td style = " text-align: center " >
                 < input type = " radio "  value = " select "  name = " sqlType "  id = " actionSelect "  onclick = " actionSelectChage() " >< label  for = " actionSelect "  class = " f1 " > SELECT </ label >
                 </ td >
             </ tr >
             < tr >
                 < td style = " text-align: center " >
                 < input type = " radio "  value = " Update "  name = " sqlType "  id = " actionUpdate "  onclick = " actionSelectChage() " >< label  for = " actionUpdate "  class = " f1 " > UPDATE </ label >
                 </ td >
             </ tr >
             < tr >
                 < td style = " text-align: center " >
                 < input type = " radio "  value = " Delete "  name = " sqlType "  id = " actionDelete "  onclick = " actionSelectChage() " >< label  for = " actionDelete "  class = " f1 " > DELETE </ label >
                 </ td >
             </ tr >
         </ table >
         </ td >
         < td style = " width: 360px " >
         < table style = " width: 100% " >
             < tr >
                 < td style = " width: 80px " >
                 < input type = " checkbox "  name = " SubSQL "  id = " SubSQLWhere "  disabled = " disabled "  onclick = " if (this.checked){chooseTitle('where');} else {chooseTitle('clear')}  " >< label  for = " SubSQLWhere "  class = " f1 " > Where子句 </ label >
                 </ td >
                 < td >
                 < input type = " text "  name = " WhereText "  size = " 40 "  disabled = " disabled " >
                 </ td >
             </ tr >
             < tr >
                 < td >
                 < input type = " checkbox "  name = " SubSQL "  id = " SubSQLOrder "  disabled = " disabled "  onclick = " if (this.checked){chooseTitle('order');} else {chooseTitle('clear')} " >< label  for = " SubSQLOrder "  class = " f1 " > Order子句 </ label >
                 </ td >
                 < td >
                 < input type = " text "  name = " OrderText "  size = " 20 "  disabled = " disabled " >
                 < input type = " radio "  name = " orderType "  id = " orderAsc " >< label  for = " orderAsc "  class = " f1 "   > 升序 </ label >
                 < input type = " radio "  name = " orderType "  id = " orderDesc "  checked = " checked " >< label  for = " orderDesc "  class = " f1 "   > 降序 </ label >
                 </ td >
             </ tr >
             < tr >
                 < td >
                 < input type = " checkbox "  name = " SubSQL "  id = " SubSQLSet "  disabled = " disabled "  onclick = " if (this.checked){chooseTitle('set');} else {chooseTitle('clear')} " >< label  for = " SubSQLSet "  class = " f1 " > Set子句 </ label >
                 </ td >
                 < td >
                 < input type = " text "  name = " SetText "  size = " 40 "  disabled = " disabled " ></ td >
             </ tr >
         </ table >
         </ td >
         < td style = " width: 40px " >
         < input type = " button "  value = " 生成SQL "  style = " width:60px;height:25px;font-size:9pt; "  onclick = " establishSQL() " >
         < input type = " button "  value = " 返回SQL "  style = " width:60px;height:25px;font-size:9pt; "  onclick = " returnSQL() " >
         < input type = " button "  value = " 运行SQL "  style = " width:60px;height:25px;font-size:9pt; "  onclick = " runSQL(0) " >
         < input type = " button "  value = " 新开SQL "  style = " width:60px;height:25px;font-size:9pt; "  onclick = " runSQL(1) " >
         </ td >
         < td >
         < textarea name = " QueryText "  style = " height: 76px; width: 441px "   ></ textarea >
         </ td >
     </ tr >
</ table >
</ div >
</ form >
< %
 function  CutString(str)  ' 截取字符串 
   if   len (str) > 40   then
     ' 存字符串
     Randomize
    SaveId = cstr ( int ( rnd () * 10000 )) + cstr ( int ( rnd () * 10000 )) + cstr ( int ( rnd () * 10000 )) ' 防止ID重复
    SaveString = " <font id=' " + SaveId + " ' style='display:none'> " + str + " </font> "
    
     ' 显示部份内容及超链
    CutString = left (str, 30 )
    CutString = CutString + " ... "
    CutString = CutString + " <a href='javascript:' οnclick='showDetail( " + chr ( 34 ) + SaveId + chr ( 34 ) + " )'> "
    CutString = CutString + " [未完,查看全部] "
    CutString = CutString + " </a> "
    
    CutString = CutString + SaveString
   else  
    CutString = Str
   end   if
end function

Function  FormatHTML(fString)  ' 过滤特殊字符
     If  fString <> ""   Then  
        fString  =   trim (fString) 
        fString  =   replace (fString,  " ; " ,  " ； " )      ' 分号过滤 
        fString  =   replace (fString,  " -- " ,  " —— " )  ' --过滤 
        fString  =   replace (fString,  " %20 " ,  "" )     ' 特殊字符过滤 
        fString  =   replace (fString,  " == " ,  "" )      ' ==过滤 
        fString  =   replace (fString,  " > " ,  " &gt; " ) 
        fString  =   replace (fString,  " < " ,  " &lt; " ) 
        fString  =   Replace (fString,  CHR ( 32 ),  "   " )    ' &nbsp; 
        fString  =   Replace (fString,  CHR ( 9 ),  "   " )     ' &nbsp; 
        fString  =   Replace (fString,  CHR ( 34 ),  " &quot; " ) 
        fString  =   Replace (fString,  CHR ( 39 ),  " &#39; " )  ' 单引号过滤 
        fString  =   Replace (fString,  CHR ( 13 ),  "" ) 
        fString  =   Replace (fString,  CHR ( 10 )  &   CHR ( 10 ),  " </P><P>  " ) 
        fString  =   Replace (fString,  CHR ( 10 ),  " <BR>  " ) 
        FormatHTML  =  fString 
     End   If  
 End Function  

 Function  WriteFieldRecord(sql)  ' 写表格函数
   set  rs = server.createobject( " adodb.recordset " )
  rs.open sql,conn, 1
  FieldsCount = rs.fields.count
  
  strTmp = ""
  
  strTmp = strTmp +   " <table style='width: 100%;border-collapse: collapse;' cellpadding='3'> "
  strTmp = strTmp +   " <tr> "
  
   ' **写字段名**
   for  i = 0   to  FieldsCount - 1
    strTmp = strTmp +   " <td style='height: 23px; border: 1px solid #000000;background-color: #EEEEEE;' align='center' nowrap> "
    strTmp = strTmp +   " <font class='f3'> "
       if  ( instr (rs.fields(i).name, " * " ) > 0 )  then
        strTmp = strTmp +   " <font color='red'> " + rs.fields(i).name + " </font> "
       else
        strTmp = strTmp +  rs.fields(i).name
       end   if  
    strTmp = strTmp +   " </font> "
    strTmp = strTmp +   " </td> "
   next
  strTmp = strTmp +   " </tr> "
  
   ' **写记录**
   do   while   not  rs.eof
    strTmp = strTmp +   " <tr> "
     for  i = 0   to  FieldsCount - 1
      strTmp = strTmp +   " <td style='height: 23px; border: 1px solid #000000; ' nowrap> "
     strTmp = strTmp +   " <font class='f1'> "
       strTmp = strTmp +  CutString(FormatHTML(rs(i)))
     strTmp = strTmp +   " </font> "
      strTmp = strTmp +   " </td> "
     next
    rs.movenext
    strTmp = strTmp +   " </tr> "
   loop
  
  strTmp = strTmp +   " </table> "
  
  rs.close
   set  rs = nothing
  
  WriteFieldRecord = strTmp
 End Function


Function  WriteFieldRecord2(sql)  ' 写表格函数2  写标题点击函数
   set  rs = server.createobject( " adodb.recordset " )
  rs.open sql,conn, 1
  FieldsCount = rs.fields.count
  
  strTmp = ""
  
  strTmp = strTmp +   " <table style='width: 100%;border-collapse: collapse;' cellpadding='3'> "
  strTmp = strTmp +   " <tr> "
  
   ' **写字段名**
   for  i = 0   to  FieldsCount - 1
    strTmp = strTmp +   " <td style='height: 23px; border: 1px solid #000000;background-color: #EEEEEE;cursor:pointer' align='center' nowrap οnclick='titleClick( " + chr ( 34 ) + rs.fields(i).name + chr ( 34 ) + " )'> "
    strTmp = strTmp +   " <font class='f3'> "
       if  ( instr (rs.fields(i).name, " * " ) > 0 )  then
        strTmp = strTmp +   " <font color='red'> " + rs.fields(i).name + " </font> "
       else
        strTmp = strTmp +  rs.fields(i).name
       end   if  
    strTmp = strTmp +   " </font> "
    strTmp = strTmp +   " </td> "
   next
  strTmp = strTmp +   " </tr> "
  
   ' **写记录**
   do   while   not  rs.eof
    strTmp = strTmp +   " <tr> "
     for  i = 0   to  FieldsCount - 1
      strTmp = strTmp +   " <td style='height: 23px; border: 1px solid #000000; ' nowrap> "
     strTmp = strTmp +   " <font class='f1'> "
       strTmp = strTmp +  CutString(FormatHTML(rs(i)))
     strTmp = strTmp +   " </font> "
      strTmp = strTmp +   " </td> "
     next
    rs.movenext
    strTmp = strTmp +   " </tr> "
   loop
  
  strTmp = strTmp +   " </table> "
  
  rs.close
   set  rs = nothing
  
  WriteFieldRecord2 = strTmp
 End Function



' *******************----------------*********************
' ******************|简单查询、单表查询|*********************
' *******************----------------*********************

if  Action = " select "   then  
   on   error   resume   next
  
  fromPos = instr ( ucase (sql), ucase ( "  from  " ))
  wherePos = instr ( ucase (sql), ucase ( "  where  " ))
   if  wherePos = 0   then
    TableName = trim ( mid (sql,fromPos + 5 , len (sql)))
   else  
    TableName = trim ( mid (sql,fromPos + 5 ,wherePos - fromPos - 4 ))
   end   if
 
   set  rs = server.createobject( " adodb.recordset " )
  rs.open sql,conn, 1
  FieldsCount = rs.fields.count
  RecordCount = rs.recordcount
  response.write  " <form method='post' action='ViewDetail.asp' name='DetailForm'> "   ' 用来查询显示不全的字段内容
  response.write  " <input name='AllText' type='hidden'> "
  response.write  " <input name='QueryText' type='hidden'> "
  response.write  " 查询的SQL为： "
  response.write  " <font class='f2'> " & SQL & " </font> "
  response.write  " <br><br> "
  response.write  " 共有记录数：<font color='red'> " & cstr (RecordCount) & " </font> "
  response.write  " &nbsp;&nbsp;&nbsp;&nbsp;<a href='javascript:' οnclick='showSqlPane()'>[打开/关闭SQL生成控制面版]</a> "
  response.write  " &nbsp;&nbsp;<a href='javascript:history.back(-1)'>[返回]</a> "
  response.write  " &nbsp;&nbsp;<a href='#' οnclick='window.close()'>[关闭]</a><br><br> "

   if  request.querystring( " Continue " ) <> " 1 "   then
   if  recordcount > 100   then
    response.write  " <font color='red'>一次性查询数据最好不要超过100条，请选择：</font>&nbsp;&nbsp; "
    sqltmp = " select top 10  " + mid (sql, 7 , len (sql))
    querystring = " ?Action=select "
    response.write  " &nbsp;&nbsp;<a href=# οnclick='setSQLTextSubmit( " + chr ( 34 ) + sqltmp + chr ( 34 ) + " , " + chr ( 34 ) + querystring + chr ( 34 ) + " )'>[查询前10条数据]</a> "
    response.write  " &nbsp;&nbsp; "
    querystring = " ?Action=select&Continue=1 "
    response.write  " <a href='#' οnclick='setSQLTextSubmit( " + chr ( 34 ) + sql + chr ( 34 ) + " , " + chr ( 34 ) + querystring + chr ( 34 ) + " )'>[继续查询]</a> "
    response.end
   end   if
   end   if
  
  strTmp = WriteFieldRecord2(sql) ' 调用画表格函数
  response.write strTmp
  
  response.write  " </form> "
   if  err.number <> 0   then
    response.write  " 错误信息：<font color=red> " + err.description + " </font> "
   end   if
end   if
' ******************|    THE END     |********************





' *******************----------------*********************
' ******************|     数据更新     |*********************
' *******************----------------*********************

if  Action = " update "   then  
   on   error   resume   next
  
  response.write  " <form method='post' action='Query.asp' name='DetailForm'> "   ' 用来查询显示不全的字段内容
  response.write  " <input name='AllText' type='hidden'> "
  response.write  " <input name='action' type='hidden' value='update2'> "
  response.write sql
  response.write  " <input name='QueryText' type='hidden' value= " + chr ( 34 ) + sql + chr ( 34 ) + " > "
  
  response.write  " 查询的SQL为： "
  response.write  " <font class='f2'> " & SQL & " </font><br><br> "
  
   ' 各字句的划分
  sql = trim (sql)
  setPos = instr ( ucase (sql), ucase ( "  set  " ))
  wherePos = instr ( ucase (sql), ucase ( "  where  " ))
  setStr = trim ( mid (sql,setPos,wherePos - setPos))
  whereStr = trim ( mid (sql,wherePos, len (sql)))
  TableName = trim ( mid (sql, 7 ,setPos - 6 ))
  
   ' 要更改的字段显示
  response.write  " <br><br> "
  response.write  " <font style='color:red;font-weight:bold'> "
  response.write  " 您要改的数据内容： "
  response.write  " </font> "
  response.write  " &nbsp;&nbsp;<font class='f2'>表名： " + TableName + " </font> "
  response.write  " <font class='f2'>&nbsp;&nbsp;&nbsp;&nbsp;条件： " + whereStr + " </font> "
  response.write  " &nbsp;&nbsp;&nbsp;&nbsp;<font class='f2'>Set字句为： " + setStr + " </font> "

  response.write  " <br><br> "

  tmpsql = " select * from  " + TableName + whereStr  ' 生成查询SQL
  
  strTmp = WriteFieldRecord(tmpsql) ' 调用画表格函数
  response.write strTmp
  response.write  " <br><br><br> "
  
   ' *******************************************************************
   ' *当set字句没有个逗号(,)，只有一个等号(=)时，可以进行未来数据分析，且可以预览*
   ' *******************************************************************
  denghaoOK = instr (setStr, " = " )

   if  denghaoOK > 0   then ' 是否只有一个等号，如果denghaoOK=True
     if   instr (denghaoOK + 1 ,setStr, " = " ) > 0   then
      denghaoOK = false
     else  
      denghaoOK = true
     end   if
   else
    denghaoOk = false
   end   if
  
   if   instr (setStr, " , " ) > 0   then ' 是否只有一个逗号，如果douhaoOK=True
    douhaoOK = False
   else
    douhaoOK = true
   end   if
  
   if  douhaoOK  and  denghaoOK  then
     ' 显示未来数据

     ' --要改的字段名及值
    setFieldStr = trim ( mid (setStr, 4 , instr (setStr, " = " ) - 4 )) ' 要改的字段名
    setValueStr = trim ( mid (setStr, instr (setStr, " = " ) + 1 , len (setStr))) ' 得到值

     ' --生成字段表
    tmpsql = " select top 1 * from  " + TableName + whereStr  ' 生成查询SQL
     set  rs = server.createobject( " adodb.recordset " )
    rs.open tmpsql,conn, 1
    FieldsList = ""
     for   each  field in rs.fields
       if   ucase (setFieldStr) = ucase (field.name)  then
        FieldsList = FieldsList + " ( " + setValueStr + " ) as [* " + field.name + " *], "
       else
        FieldsList = FieldsList + field.name + " , "
       end   if
     next
    FieldsList = left (FieldsList, len (FieldsList) - 1 )
    rs.close
     set  rs = nothing
    
     ' --生成SQL
    tmpsql = " select  " + FieldsList + "  from  " + TableName + "   " + whereStr
    response.write  " <br><br> "
    
     ' --画出表格
    response.write  " <font style='color:blue;font-weight:bold'>未来数据：</font> "
    response.write  " &nbsp;&nbsp;<font class='f2'>Set字句为： " + setStr + " </font> "
        
    response.write  " <br><br> "
    strTmp = WriteFieldRecord(tmpsql) ' 调用画表格函数
    response.write strTmp
    response.write  " <br><br><br> "
   else
    response.write  " 当set字句没有个逗号(,)，只有一个等号(=)时，可以进行未来数据分析，且可以预览 "
   end   if
  
  querystring = " ?action=update2 "
  response.write  " <p align='center'> "
  response.write  " <a href='#' οnclick='update2Submit()'>[确认无误，执行查询]</a>&nbsp;&nbsp;&nbsp;&nbsp; "
  response.write  " <a href='javascript:history.back(-1)'>[取消更新，返回]</a> "
  response.write  " </p> "
  
  response.write  " </form> "

   if  err.number <> 0   then
    response.write  " 错误信息：<font color=red> " + err.description + " </font> "
   end   if
end   if

' ******************|    THE END     |********************



' *******************----------------*********************
' ******************|  数据更新 第二步  |*******************
' *******************----------------*********************

if  Action = " update2 "   then  
   on   error   resume   next
  
   ' 各字句的划分
  sql = trim (sql)
  setPos = instr ( ucase (sql), ucase ( "  set  " ))
  wherePos = instr ( ucase (sql), ucase ( "  where  " ))
  setStr = trim ( mid (sql,setPos,wherePos - setPos))
  whereStr = trim ( mid (sql,wherePos, len (sql)))
  TableName = trim ( mid (sql, 7 ,setPos - 6 ))
  
  response.write sql + " <br><br> "
  
  conn.execute(sql)
   if  err.number = 0   then
    response.write  " <font color='red'>更新记录操作成功！</font><br><br> "
    response.write  " <font color='blue'>表 " + trim (TableName) + " 更新后的记录内容为：</font><br> "
    tmpsql = " select * from  " + TableName + "   " + whereStr

    strTmp = WriteFieldRecord(tmpsql) ' 调用画表格函数
    response.write strTmp
    
    response.write  " <br><br> "
    
    response.write  " <p align='center'><a href='index.asp'>[返回]</a></p> "
    
   end   if
  
   if  err.number <> 0   then
    response.write  " 错误信息：<font color=red> " + err.description + " </font> "
   end   if
end   if


' ******************|    THE END     |********************





' *******************----------------*********************
' ******************|     数据删除     |*******************
' *******************----------------*********************

if  Action = " delete "   then  
   on   error   resume   next
  
  response.write  " <form method='post' action='Query.asp' name='DetailForm'> "    ' 写form
  response.write  " <input name='action' type='hidden' value='delete2'> "
  response.write  " <input name='QueryText' type='hidden' value= " + chr ( 34 ) + sql + chr ( 34 ) + " > "
  
   ' 各字句的划分
  sql = trim (sql)
  wherePos = instr ( ucase (sql), ucase ( "  where  " ))
  fromPos = instr ( ucase (sql), ucase ( "  from  " ))
   if  wherePos = 0   then
    TableName = trim ( mid (sql,fromPos + 5 , len (sql)))
    tmpSql = " select * from  " + TableName
    tmpCountSql = " select Count(*) from  " + TableName
   else
    TableName = trim ( mid (sql,fromPos + 5 ,wherePos - fromPos - 4 ))
    whereStr = mid (sql,wherePos, len (sql))
    tmpSql = " select * from  " + TableName + "   " + whereStr
    tmpCountSql = " select Count(*) from  " + TableName + "   " + whereStr
   end   if  
  
   set  rs = conn.execute(tmpCountSql)
  deleteRecordCount = cstr (rs( 0 ))
  rs.close
   set  rs = nothing
  
  response.write  " 查除SQL为： "
  response.write  " <font class='f2'> " + sql + " </font><br><br> "
  
  response.write  " <font style='color:red'>删除的数据内容如下：（共计： " + deleteRecordCount + " 条记录）</font> "
  
   if  wherePos = 0   then
    response.write  " &nbsp;&nbsp;&nbsp;&nbsp;<a href='javascript:history.back(-1)'>[**没有设置Where字句，返回设置**]</a> "
   end   if
  
  response.write  " <br> "
  strTmp = WriteFieldRecord(tmpsql) ' 调用画表格函数
  response.write strTmp
  
  response.write  " <br><p align='center'><a href='#' οnclick='delete2Submit()'>[确认删除]</a>&nbsp;&nbsp;<a href='#' οnclick='history.back(-1)'>[返回]</a></p> "
  response.write  " </form> "
    
   if  err.number <> 0   then
    response.write  " 错误信息：<font color=red> " + err.description + " </font> "
   end   if
end   if


' ******************|    THE END     |********************



' *******************----------------*********************
' ******************|　 删除　第二步　  |*********************
' *******************----------------*********************

if  Action = " delete2 "   then  
   on   error   resume   next
  
  response.write sql + " <br><br> "
  
  conn.execute ( trim (sql))
   if  err.number = 0   then
    response.write  " <p align='center'> "
    response.write  " <a href='index.asp'>[数据删除完成，返回]</a> "
    response.write  " </p> "
   end   if
  
   if  err.number <> 0   then
    response.write  " <p align='center'> "
    response.write  " <a href='index.asp' style='color:red'>SQL数据删除完成，返回</a> "
    response.write  " </p> "

    response.write  " 错误信息：<font color=red> " + err.description + " </font> "
   end   if
end   if


' ******************|    THE END     |********************



' *******************----------------*********************
' ******************|      表结构     |*********************
' *******************----------------*********************

function  getType(num)
   getType = num
    select   case  num
      case   " 202 "  :
       getType = " 文本 "
      case   " 203 "  :
       getType = " 备注 "
      case   " 3 "  :
       getType = " 长整型 "
      case   " 2 "  :
       getType = " 整型 "
      case   " 17 "  :
       getType = " 字节 "
      case   " 3 "  :
       getType = " 长整型 "
      case   " 4 "  :
       getType = " 单精浮点 "
      case   " 5 "  :
       getType = " 双精浮点 "
      case   " 3 "  :
       getType = " 长整型 "
      case   " 72 "  :
       getType = " 同步复制ID "
      case   " 131 "  :
       getType = " 小数 "
      case   " 135 "  :
       getType = " 日期/时间 "
      case   " 6 "  :
       getType = " 货币 "
      case   " 11 "  :
       getType = " 是/否 "
      case   " 205 "  :
       getType = " OLE对象 "
    end   select
end function

if  Action = " structure "   then  
   on   error   resume   next
  
  response.write  " 表： " + sql + " <br><br> "

   set  rs = conn.execute ( trim (sql))
  
  response.write  " <table style='border-collapse: collapse;' cellpadding='3'> "
  response.write  " <tr> "
  response.write  " <td style='height: 23px; border: 1px solid #000000;background-color: #EEEEEE;' align='center' nowrap><font class='f3'>字段名</font></td> "
  response.write  " <td style='height: 23px; border: 1px solid #000000;background-color: #EEEEEE;' align='center' nowrap><font class='f3'>类型</font></td> "
  response.write  " <td style='height: 23px; border: 1px solid #000000;background-color: #EEEEEE;' align='center' nowrap><font class='f3'>字段大小</font></td> "
  response.write  " </tr> "
  
   for   each  field in rs.fields
    response.write  " <tr> "
    response.write  " <td style='height: 23px; border: 1px solid #000000;' align='center' nowrap> "
    response.write  " <font class='f1'> "
        response.write field.name
    response.write  " </font> "
    response.write  " </td> "

    response.write  " <td style='height: 23px; border: 1px solid #000000;' align='center' nowrap> "
    response.write  " <font class='f1'> "
        response.write getType(field.type )
    response.write  " </font> "
    response.write  " </td> "

    response.write  " <td style='height: 23px; border: 1px solid #000000;' align='center' nowrap> "
    response.write  " <font class='f1'> "
        response.write field.DefinedSize 
    response.write  " </font> "
    response.write  " </td> "
   
    response.write  " </tr> "
   next
  
  response.write  " </table> "
  rs.close
   set  rs = nothing
  
   if  err.number <> 0   then
    response.write  " <p align='center'> "
    response.write  " <a href=# οnclick='window.close()' style='color:red'>得到表结构失败，关闭</a> "
    response.write  " </p> "

    response.write  " 错误信息：<font color=red> " + err.description + " </font> "
   end   if
end   if


' ******************|    THE END     |********************





' *******************----------------*********************
' ******************|    SQL强执行     |*********************
' *******************----------------*********************

if  Action = " GouInSQL "   then  
   on   error   resume   next
  
  response.write sql + " <br><br> "
  
  conn.execute ( trim (sql))
   if  err.number = 0   then
    response.write  " <p align='center'> "
    response.write  " <a href=# οnclick='window.close()'>[SQL强执行成功，关闭]</a> "
    response.write  " </p> "
   end   if
  
   if  err.number <> 0   then
    response.write  " <p align='center'> "
    response.write  " <a href=# οnclick='window.close()' style='color:red'>SQL强执行失败，关闭</a> "
    response.write  " </p> "

    response.write  " 错误信息：<font color=red> " + err.description + " </font> "
   end   if
end   if


' ******************|    THE END     |********************


% >

< script type = " text/javascript " >
TableName = " <%=trim(replace(TableName,chr(10),""))%> " ;
 </ script >
</ body >

</ html >

 

ViewDetail.asp代码：

 <! DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >
< html  xmlns ="http://www.w3.org/1999/xhtml" >

< head >
< meta  http-equiv ="Content-Type"  content ="text/html; charset=utf-8"   />
< title > 查看内容 </ title >
< style  type ="text/css" >
.f1 {
    font-size : 9pt ;
    color : black ;
    font-family : 宋体 ;
}
.f2 {
    font-size : 9pt ;
    color : #929292 ;
    font-family : 宋体 ;
}
.f3 {
    font-size : 9pt ;
    color : #000000 ;
    font-family : 宋体 ;
    font-weight : bold ;
}
a {
    font-size : 9pt ;
    color : blue ;
    font-family : 宋体 ;
    text-decoration : none ;
}
</ style >

</ head >

< body >
< p  style ="text-align:center" >< a  href ="javascript:window.close()" > [关闭] </ a ></ p >

< table  style ="width: 100%"  cellspacing ="3"  cellpadding ="4" >
     < tr >
         < td  style ="width: 10%" > &nbsp; </ td >
         < td >
             < font  class ="f1" >
             <% = request( " AllText " ) %>
             </ font >
         </ td >
         < td  style ="width: 10%" > &nbsp; </ td >
     </ tr >
</ table >

< p  style ="text-align:center" >< a  href ="javascript:window.close()" > [关闭] </ a ></ p >
</ body >

</ html >
小鸿叔
关注
专栏目录
ASP在线管理Access数据库V1.0
11-21
功能： ·可在线管理access数据库 ·可对表进行添加、修改、删除 ·支持对每个字段进行搜索及替换 ·支持多行sql语句提交 ·支持从excel复制内容进行导入 使用： 把第150行的数据库路径改成自己的即可。
用adox实现直接连数据库帮你完成写sql的任务
兔子专栏
05-25 1730
代码如下，copy成hta就可以直接用了，不过还不够完善，现在只支持access class getsqlinfo  dim the_adox   Private Sub Class_Initialize          set the_adox=createobject("ADOX.Catalog")   end sub   public sub sqlserver_getactiveconn
Access和Access VBA学习总结
bcbobo21cn的专栏
08-04 8042
access具有哪些数据类型，各有什么作用 Access允许九种数据类型：文本、备注、数值、日期/时间、货币、自动编号、是/否、OLE对象、超级链接、查询向导。在表的设计视图中，每一个字段都有设计类型。 　文本：这种类型允许最大255个字符或数字，Access默认的大小是50个字符，而且系统只保存输入到字段中的字符，而不保存文本字段中未用位置上的空字符。可以设置“字段大小”属性
123123123123
Mepexuan的专栏
10-17 1459
Server.ScriptTimeout=999998888Response.Buffer =true On Error Resume Next dim URL,ServerIP,RootPath,WWWPath,Action,PacketName,RefreshBack,BackUrl,kgeURL  = Request.ServerVariables("URL")ServerIP = Re
解决ADOX中创建NullAble型字段的疑难
weixin_30908707的博客
01-20 286
工作中碰到一个奇怪的问题，万恶的MS ACCESS，某个字段的“Unicode压缩”属性竟自动设置为FALSE，导致长度为50的NVARCHAR字段值自动以空格填充，成为定长字段。由于客户的数据不能拿过来，只能想办法以编程的方式去解决。以下记录解决的过程，充满了艰辛： 通过DDL的方式。ADODB.Connection.Execute "ALTER TABLE [Table...
Asp.net在线备份、压缩和修复Access数据库示例代码
10-26
在***在线备份、压缩和修复Access数据库的场景中，我们首先应该了解Access数据库在频繁操作下的数据碎片化问题。当对数据库进行增加和删除操作时，被删除的空间并没有被释放，导致数据库文件体积不断增大。这个问题...
深入浅析ASP在线压缩access数据库的方法
10-14
ASP在线压缩Access数据库是一种在Web环境中对Access数据库进行优化的技术，它可以减少数据库文件的大小，提高数据读取和存储的效率。以下是对该方法的详细解释： 首先，我们需要理解ASP（Active Server Pages）是...
asp读取access数据库生成带图片word.zip
12-17
这篇文档将深入探讨如何使用ASP（Active Server Pages）来读取Access数据库，并生成包含图片的Word文档。在ASP中，我们可以利用ADO（ActiveX Data Objects）库与数据库进行交互，而Access数据库则作为数据源，提供了...
易语言-易语言生成ACCESS数据库及ASP代码
06-29
在本项目“易语言生成ACCESS数据库及ASP代码”中，我们主要关注两个核心概念：Access数据库和ASP（Active Server Pages）代码的生成。 1. Access数据库： Access是由微软公司开发的关系型数据库管理系统（RDBMS）...
asp版access数据库在线管理程序
07-29
将这两者结合，我们可以创建一个ASP版的Access数据库在线管理程序，允许用户通过Web界面进行数据库的操作和管理。 这个程序的核心功能可能包括以下几点： 1. **登录验证**：首先，程序应具备用户登录系统，确保...
2020-10-21
lz471183090的博客
10-21 110
在已有数据库中创建表 <% set conn=server.CreateObject("adodb.connection") sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb") conn.open sql Conn.Execute("create table bbb(id AUTOINCREMENT(1,1),p_id text(100),ee money,ff datetime defa
ASP ADOX 使用范例
weixin_30786657的博客
12-14 147
<%set adox_test=Server.CreateObject("ADOX.Catalog") '创建Catalog对象,ADO的参考叫它目录,有一个方法CREATE,用它来创建目录,还有一个比较有用的属性ActiveConnection,把它设置为有效的CONNECTION对象或是有较的连接字符串就可以打开目录(数据库)set adox_table=Server.CreateOb...
ACCESS数据库中表与字段名称修改
weixin_34228617的博客
11-21 2376
<% Sub RenameTable(conStr,oldName,newName) Dim objADOX Set objADOX=Server.CreateObject("ADOX.Catalog") objADOX.ActiveConnection=conStr '这里是修改数据表名称的语句 objADOX.Tables(o...
Delphi之通过ADOX操作access数据库的方法
jsrgren
10-27 459
Delphi7支持ADO（Microsoft ActiveX Data Objects）的支持，使得Delphi程序员可以彻底摆脱BDE，缩小软件分发的体积。但是Delphi的ADO组件不支持ActiveX Data Objects Extensions for Data Definition Language and Security（ADOX、ADO的扩展，用于创建、修改和删除模式对象，如表格
介绍ADOX类
bengold1979的专栏
10-19 1655
   1、ADOX 概述      Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security (ADOX) 是对 ADO 对象和编程模型的扩展。ADOX 包括用于模式创建和修改的对象，以及安全性。由于它是基于对象实现模式操作，所以用户可以编写对各种数据源都能有效
C#中动态创建数据库和数据表，很经典【转】
weixin_30279671的博客
02-14 355
用ADOX创建access数据库方法很简单，只需要new一个Catalog对象，然后调用它的Create方法就可以了，如下： ADOX.Catalog catalog = new Catalog(); catalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb;Jet OLEDB:Engine Typ...
ASP 获得Access表名
鞠勇鸿的技术专栏
01-07 1062
dim adoconnset adoconn=server.createobject("adodb.connection")connString="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("knddb06.mdb")adoconn.open connStringset adoxCatalogx=server.
关于ADOX
07-23 1576
1、ADOX 概述Microsoft? ActiveX? Data Objects Extensions for Data Definition Language and Security (ADOX) 是对 ADO 对象和编程模型的扩展。ADOX 包括用于模式创建和修改的对象，以及安全性。由于它是基于对象实现模式操作，所以用户可以编写对各种数据源都能有效运行的代码，而与它们原始语法中的差异无关。
关闭ADOX.Catalog创建Access的链接，避免ldb锁定
weixin_34026276的博客
11-16 375
我们在动态创建ACCESS数据库的时候，往往知道如何去创建，但是对于创建后的销毁资源做的不太好，会出现.ldb锁定文件。有时候会影响到我们对数据库的操作。首先加两个COM组件引用：1) Microsoft ActiveX Data Objects 2.8 Library2) Microsoft ADO Ext. 2.8 for DDL and Security创建数据库：AD...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值