仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 1787|回复: 19
打印 上一主题 下一主题

[学习教程] ASP编程:asp若何获得access数据库的字段申明

[复制链接]
变相怪杰 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-3 23:34:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
ASP脚本是采用明文(plain text)方式来编写的。   asp若何获得access数据库的字段申明代码以下:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>提取access字段的申明信息</title>
</head>
<%
dim table                  
table = trim(request("t1"))
database=trim(request("d1"))
%>
<body>
<form method="POST" action="">
    数据文件名:<input type="text" name="D1" size="40" value=<%response.write(database)%> >同目次下数据文件称号 如:database.mdb<br>
    表......名:<input type="text" name="T1" size="40" value=<%response.write(table)%> >database.mdb中的表名<br>
    <input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2">
</form>

<%  
   if table = "" then
           response.write("post nothing")
   else%><%
       dim conn   
       dim connstr
       on error resume next
       connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath(database)+";"
         set conn=server.createobject("ADODB.CONNECTION")
         conn.open connstr
        response.write(connstr+"<br>")
        dim sql
        dim rs
         sql="select * from "+table+""
        set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,2
        response.write(sql+"<br>")
        
        If rs.State = adStateOpen Then
            cnnState = "open"
        Else
            cnnState = "closed"
        End If
        response.write(cnnState +"<br>")
        response.write("列数:"+cstr(rs.fields.count)+"<br>")
        
        For i=0 to rs.fields.count-1
            Response.Write "<TH>"+ rs(i).Name +"</TH>;<br>"
        Next


    Dim MyTableName
    Dim MyFieldName
   
    Dim MyDB
    set mydb=server.createobject("adox.catalog")
    Dim MyTable
    set mytable=server.createobject("adox.table")
    Dim MyField
    set myfield =server.createobject("adox.column")
    Dim pro
   
    On Error resume next
   
    MyDB.ActiveConnection =conn

      
    For Each MyTable In MyDB.Tables
        For Each MyField In MyTable.Columns
            'response.write "FieldName:" & FieldType(MyField.Type) & "  FieldSize:" & MyField.DefinedSize       'FieldType(pro.Type)
            'response.write table & "." & MyField.name &":" '呵呵这里有变化,之前的有误
            response.write MyTable.name & "." & MyField.name &":" '呵呵这里有变化,之前的有误
            For Each pro In MyField.Properties
                if pro.name="Description" and pro.Value <> "" then    response.write  pro.Value & " <br> " 'MyTable.Name & " : " & MyField.Name & " : " & pro.Name & " : " & pro.Value
            Next
        Next
    Next

        rs.close()
        conn.close()
   end if
%>

</body>

</html>
ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于Windows NT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;
海妖 该用户已被删除
沙发
发表于 2015-2-4 02:11:12 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
山那边是海 该用户已被删除
板凳
发表于 2015-2-5 06:50:38 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
灵魂腐蚀 该用户已被删除
地板
发表于 2015-2-11 07:15:40 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
爱飞 该用户已被删除
5#
发表于 2015-2-24 20:41:26 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
只想知道 该用户已被删除
6#
发表于 2015-2-26 22:10:19 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
精灵巫婆 该用户已被删除
7#
发表于 2015-2-28 10:41:42 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
若天明 该用户已被删除
8#
发表于 2015-3-5 13:27:01 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
金色的骷髅 该用户已被删除
9#
发表于 2015-3-11 06:00:03 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
活着的死人 该用户已被删除
10#
发表于 2015-3-17 22:04:18 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
飘飘悠悠 该用户已被删除
11#
发表于 2015-3-20 01:53:31 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
小女巫 该用户已被删除
12#
发表于 2015-3-22 18:10:25 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
兰色精灵 该用户已被删除
13#
发表于 2015-4-5 23:42:38 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
谁可相欹 该用户已被删除
14#
发表于 2015-4-17 18:01:33 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
飘灵儿 该用户已被删除
15#
发表于 2015-4-19 20:14:33 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
16#
发表于 2015-4-21 14:52:34 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
小妖女 该用户已被删除
17#
发表于 2015-4-22 00:13:22 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
乐观 该用户已被删除
18#
发表于 2015-5-1 12:12:06 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
冷月葬花魂 该用户已被删除
19#
发表于 2015-5-3 23:26:55 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
admin 该用户已被删除
20#
发表于 2015-5-12 14:41:15 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-22 19:10

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表