站内搜索  

澳门可靠博彩娱乐公司首页 | 操作系统 | 软件应用 | 平面设计 | 程序开发 | 硬件维护 | 网络安全
 您的位置: 澳门可靠博彩娱乐公司 > 电脑网络 > 程序开发 > 阅读文章:把数据库结构显示出来的源代码
把数据库结构显示出来的源代码
2009-4-17 9:55:16 澳门可靠博彩娱乐公司 来源:百度空间 浏览 次 【 】【打印】【关闭

通过以上的代码即可显示表的结构,字段类型,长度,自动编号,主健。如果你仔细研究后就可以发现如何远程改变数据库的结构了,祝你好运!

要查看此演示,需要你建立一个数据源,request("table")改为你的表的名字。
<html>
<head>
<title>main</title>
<meta http-equiv="Content-Type" content="text/html; charset=gbk">
</head>
<body bgcolor="#CCCCCC" text="#000000">
<h2 align="center"><font face="华文新魏">欢迎查看chenyangasp演示程序</font></h2>
<p>  
<%
on error resume next
table=request("table")
//获得表名
if table<>"" then
   response.write "数据表:"&table
Set primary = con.OpenSchema(adSchemaPrimaryKeys, _
         Array(empty, empty, table))
if primary("COLUMN_NAME")<>"" then
primarykey=primary("COLUMN_NAME")
end if
primary.close
set primary=nothing
%>
</p>
<center>
   <table width="650" border="1" cellpadding="0" cellspacing="0">
     <tr bgcolor="#CCCCCC">  
       <th class="sundog" width="61">  
         <div align="center">字段</div>
       </th>
       <th class="sundog" width="131">  
         <div align="center">类型</div>
       </th>
       <th class="sundog" width="105">  
         <div align="center">设定大小</div>
       </th>
       <th class="sundog" width="69">  
         <div align="center">允许空值</div>
       </th>
       <th class="sundog" width="69">  
         自动编号
       </th>
       <th class="sundog" width="81">主键</th>
       </tr>
<%sql="select * from ["&table&"] "
   set rs=con.execute(sql)
   for i=0 to rs.fields.count-1
%>
     <tr bgcolor="#CCCCCC">  
       <td class="sundog" height="2" width="61">  
         <div align="center"><%=rs(i).name%></div>
//字段名       
</td>
       <td class="sundog" height="2" width="131">  
         <div align="center">  
           <%
field_type=rs(i).type
select case field_type
     case adEmpty
       typ = "Empty"
     case adTinyInt
       typ = "TinyInt"
     case adSmallInt
       typ = "SmallInt"
     case adInteger
       typ = "Integer"
     case adBigInt
       typ = "BigInt"
     case adUnsignedTinyInt
       typ = "UnsignedTinyInt"
     case adUnsignedSmallInt
       typ = "UnsignedSmallInt"
     case adUnsignedInt
       typ = "UnsignedInt"
     case adUnsignedBigInt
       typ = "UnsignedBigInt"
     case adSingle
       typ = "Single"
     case adDouble
       typ = "Double"
     case adCurrency
       typ = "Currency"
     case adDecimal
       typ = "Decimal"
     case adNumeric
       typ = "Numeric"
     case adBoolean
       typ = "Boolean"
     case adError
       typ = "Error"
     case adUserDefined
       typ = "UserDefined"
     case adVariant
       typ = "Variant"
     case adIDispatch
       typ = "IDispatch"
     case adIUnknown
       typ = "IUnknown"
     case adGUID
       typ = "GUID"
     case adDATE
       typ = "DATE"
     case adDBDate
       typ = "DBDate"
     case adDBTime
       typ = "DBTime"
     case adDBTimeStamp
       typ = "DBTimeStamp"
     case adBSTR
       typ = "BSTR"
     case adChar
       typ = "Char"
     case adVarChar
       typ = "VarChar"
     case adLongVarChar
       typ = "LongVarChar"
     case adWChar
       typ = "WChar"
     case adVarWChar
       typ = "VarWChar"
     case adLongVarWChar
       typ = "LongVarWChar"
     case adBinary
       typ = "Binary"
     case adVarBinary
       typ = "VarBinary"
     case adLongVarBinary
       typ = "LongVarBinary"
     case adChapter
       typ = "Chapter"
     case adPropVariant
       typ = "PropVariant"
     case else
       typ = "Unknown"
   end select
response.write typ%>
//字段类型  
        </div>
       </td>
       <td class="sundog" height="2" width="105">  
         <div align="center"><%=rs(i).definedsize%></div>
       </td>
//字段长度

       <td class="sundog" height="2" width="69">  
         <div align="center">  
           <%
   attrib=rs(i).attributes
   if (attrib and adFldIsNullable)=0 then
     response.write "No"
   else
     response.write "Yes"
   end if
%>
         </div>
       </td>

//是否允许空值

       <td class="sundog" height="2" width="69">
         <div align="center">  
<%if rs(i).Properties("ISAUTOINCREMENT") = True then%>
           <input type="checkbox" name="autoincrement" value="checkbox" checked>
<%else%>
           <input type="checkbox" name="autoincrement" value="checkbox">
<%end if%>         
         </div>
       </td>

//是否为自动编号

       <td class="sundog" height="2" width="81">  
         <div align="center">  
           <%if rs(i).name=primarykey then%>
           <input type="checkbox" name="primarykey" value="checkbox" checked>
           <%else%>
           <input type="checkbox" name="primarykey" value="checkbox">
           <%end if%>
         </div>
       </td>

//主健

      </tr>
     <%next %>
   </table>
</center>
[责任编辑:佚名]
 相关文章
·CSS布局方法的十八般技巧和兼容方案 (2009-11-13 17:14:48)
·利用Google给自己的网站加上投票功能 (2009-10-13 12:32:39)
·您试图在此 Web 服务器上访问 (2009-8-13 14:20:12)
·Asp伪静态的实现及URL重写-用ISAPI_Rewri (2009-8-6 15:07:08)
·巧用ASP脚本命令重启服务器 (2009-8-6 15:05:39)
·Dreamweaver CS3网页制作之CSS布局 (2009-7-1 16:07:45)
·网页设计经验和技巧总结 (2009-7-1 16:03:12)
·网页优化必须做的26件事情 (2009-7-1 16:00:36)
·插入记录后马上得到自动编号值(Access库) (2009-4-17 9:54:33)
·全面解决--如何获得刚插入数据库的记录的 (2009-4-17 9:53:29)
·ASP计算两个时间之差的函数 (2009-4-17 9:52:11)
·一个通用数据库显示程序,能调任意库,任意 (2009-4-17 9:50:33)
·技巧:ASP开发中存储过程应用全接触 (2009-4-17 9:48:31)
·网站简体繁体转换代码 (2009-4-17 9:44:15)
·ASP导出Excel数据的四种方法 (2009-4-17 9:42:14)
·利用网页监听,实现内容中的图片由滚轮控 (2009-4-17 9:37:21)
·html操作本地数据库 (2009-4-17 9:33:18)
·Access中使用Create Procedure创建 (2009-4-17 9:31:08)
·asp实现同网站不同目录绑定不同域名 (2009-4-17 9:27:57)
 热门文章 哈尔滨电脑
·安全防护策略-打造堡垒主机
·SQL Server到底需要使用哪些端口?
·把重要的Word 2003文档放到菜单中
·您试图在此 Web 服务器上访问的 
·Photoshop制作火焰的神龙
·Win2003架设多用户隔离Ftp服务器
·XP系统服务恢复批处理
·还有2天发布 Windows7必备77条小知识
·情侣玩儿法:用虚拟硬盘打造坚不可摧的影子系统
·用U盘当钥匙 轻松绕过WinXP的登陆密码
·Photoshop打造漂亮的心形挂链壁纸
 推荐文章 哈尔滨电脑
·精简节约!小公司办公打印省钱全攻略
·CSS布局方法的十八般技巧和兼容方案
·三种方法 教你解决输入法不显示的问题
·当红情侣QQ表情:茉莉和龙井
·Win 7出现休眠Bug 微软提供解决方案
·将Powerpoint文档转换为Word文档
·非常实用来学习连续供墨系统入门知识
·怕吃亏?怕假的?鉴别真假耗材的小窍门
·情侣玩儿法:用虚拟硬盘打造坚不可摧的影子系统
·开始—运行(cmd)命令大全
·您试图在此 Web 服务器上访问的 
 最新文章 哈尔滨电脑
·Web服务器如何避免CC攻击
·SQL Server到底需要使用哪些端口?
·XP系统服务恢复批处理
·局域网遭ARP攻击网络掉线批处理
·CISCO 2811 路由器配置命令全集
·避免“悲剧” 打印机使用技巧全面攻略
·保障远程桌面Web连接安全四项注意
·教你六招处理服务器数据意外丢失
·挑选相纸有学问 教你如何辨别相纸优劣
·精简节约!小公司办公打印省钱全攻略
·CSS布局方法的十八般技巧和兼容方案