• 曹建明:必须坚持以人民为中心,真正做到人民检察为人民 2019-09-15
  • 新华社评论员:全面贯彻习近平强军思想 2019-09-13
  • 黄晓明赵薇街头狂奔被拍 网友减肥的人跑步上班 2019-09-13
  • 这三个字,是习近平生态文明思想的中心 2019-09-13
  • 四款养生粥帮 你调理胆胃-美食资讯 2019-09-13
  • 白芦笋:一年一会矜贵食 2019-09-12
  • 光明日报:不存在的补脑保健品,为何总有人趋之若鹜 2019-09-12
  • 回复@大雨582:社会人不可能像自然人一样自由,你还得尊重别人的意愿!不然咱随便生产啥都强行让你要,咱是自由了,你呢? 2019-09-03
  • 忆1980年代上海菜场风情 营业员似邻家女孩 2019-08-29
  • 学会了脆皮炸香蕉 再也不会把香蕉放到烂啦-美食资讯 2019-08-29
  • 在加湿器中加自来水等于吸雾霾?二者不能划等号 2019-08-25
  • 一周人事:三省份省委常委履新京浙调整政府领导分工 2019-08-25
  • 紫光阁中共中央国家机关工作委员会 2019-08-25
  • [微笑]哇,才离开一会儿就这么多赞了?好久没得这么多赞了也!看来还是支持的人占多数嘛! 2019-08-23
  • “买房号”就包买河西房?男子借机骗走170多万 ——凤凰网房产南京 2019-08-22
  • 您的位置: 站云中国 ? 虚拟主机 ? ASP连接access数据库例程
    ASP连接access数据库例程
    2013-02-10 17:00 竟彩分析
    注意:要运行上述ACCESS例程请先下载数据库,放在db 或 rwdata文件夹下。请将例程放在根目录下。
    <%
    Dim mode
    mode=request.form("text4")
    if mode=1 then
    name=request.form("text1")
    age=request.form("text2")
    addr=request.form("text3")
    if not isnumeric(age) then response.write "age must be number!<a href=javascript:history.go(-1)>try again</a>":response.end
    age=clng(age)
    end if
    '********************************************************************
    ' 与AccessDB相关的连接信息
    ' 可以参照它建立您的数据库连接
    '********************************************************************
    Dim conn,rs,dbpath
    Set conn=Server.CreateObject("ADODB.Connection")
    Set rs=Server.CreateObject("ADODB.RecordSet")
    dbpath=Server.MapPath("rwdata/db_test_com.mdb")
    conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath
    '********************************************************************
    '********************************************************************

    竟彩分析 www.qjlp.net

    dim strsql
    '********************************************************************
    ' 读数据库相关操作
    sub readdb()
    strsql="select * from test"
    rs.open strsql,conn,1,1
    if rs.EOF then response.write "no record at all":exit sub
    response.write "<table border=1>"
    response.write "<tr>"
    for i=0 to rs.Fields.Count-1
    response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>"
    next
    response.write "</tr>"
    while not rs.EOF
    response.write "<tr>"
    for i=0 to rs.Fields.Count-1
    response.write "<td>"&rs.Fields(i).Value&"</td>"
    next
    response.write "</tr>"
    rs.MoveNext
    wend
    response.write "</table>"
    rs.Close
    end sub
    '********************************************************************


    '********************************************************************
    ' 写数据库相关
    sub insertdata()
    strsql="INSERT INTO test(name,age,addr) VALUES('"&name&"',"&age&",'"&addr&"')"
    rs.Open strsql,conn,1,3
    end sub
    '********************************************************************

    if mode=1 then
    call insertdata()
    response.write "insert ok!"
    elseif mode=2 then
    call readdb()
    end if

    '********************************************************************
    ' 释放数据库连接对象
    set rs=nothing
    set conn=nothing
    %>
    <HTML>
    <HEAD>
    <TITLE></TITLE>
    <script language=javascript>
    function clickit(flag){
    var form1=document.form2
    form1.text4.value=flag;

    if (flag==1){
    if (form1.text1.value==""){
    alert("name cant empty!");
    return false;
    }
    if (form1.text2.value==""){
    alert("age cant empty!");
    return false;
    }
    if (form1.text3.value==""){
    alert("addr cant empty!");
    return false;
    }

    }
    form1.submit();
    return true;
    }
    </script>
    </HEAD>
    <BODY>
    <form method=post name=form2>
    name:<INPUT type="text" id=text1 name=text1 size=12>
    age:<INPUT type="text" id=text2 name=text2 size=12>
    city:<INPUT type="text" id=text3 name=text3 size=12><br>
    <INPUT type="hidden" id=text4 name=text4>
    <INPUT type="button" value="write" id=button1 name=button1 onclick="clickit(1)">
    <INPUT type="button" value="read" id=button2 name=button2 onclick="clickit(2)">
    </form>
    </BODY>
    </HTML>

    注意:要运行上述ACCESS例程请先下载数据库,放在rwdata文件夹下。请将例程放在根目录下

  • 曹建明:必须坚持以人民为中心,真正做到人民检察为人民 2019-09-15
  • 新华社评论员:全面贯彻习近平强军思想 2019-09-13
  • 黄晓明赵薇街头狂奔被拍 网友减肥的人跑步上班 2019-09-13
  • 这三个字,是习近平生态文明思想的中心 2019-09-13
  • 四款养生粥帮 你调理胆胃-美食资讯 2019-09-13
  • 白芦笋:一年一会矜贵食 2019-09-12
  • 光明日报:不存在的补脑保健品,为何总有人趋之若鹜 2019-09-12
  • 回复@大雨582:社会人不可能像自然人一样自由,你还得尊重别人的意愿!不然咱随便生产啥都强行让你要,咱是自由了,你呢? 2019-09-03
  • 忆1980年代上海菜场风情 营业员似邻家女孩 2019-08-29
  • 学会了脆皮炸香蕉 再也不会把香蕉放到烂啦-美食资讯 2019-08-29
  • 在加湿器中加自来水等于吸雾霾?二者不能划等号 2019-08-25
  • 一周人事:三省份省委常委履新京浙调整政府领导分工 2019-08-25
  • 紫光阁中共中央国家机关工作委员会 2019-08-25
  • [微笑]哇,才离开一会儿就这么多赞了?好久没得这么多赞了也!看来还是支持的人占多数嘛! 2019-08-23
  • “买房号”就包买河西房?男子借机骗走170多万 ——凤凰网房产南京 2019-08-22
  • 安徽时时预测软件手机版下载 江苏时时票开奖结果 pk直播官网 北京pk赛车app下载苹果 足彩胜负彩比分直播 下载捕鱼游戏 12选5遗漏数据 广东时时11选五注册 下载腾讯十分彩开奖结果 喜乐彩票ios 时时免费缩水工具 在线刮刮乐微信 黑龙江11选5走势图正好 今天快乐十分钟开奖结果 湖南快乐十分前三组遗漏号 广东时时开奖助手