用户名:
密 码:
  • 首页
  • 客服中心
  • 常见问题
  • 为何选择我们
  • 7年优质服务经验
  • 10万用户的共同选择
  • 更低的价格更好的服务
  • CNNIC四星级认证服务商
  • 拥有正规经营许可证(ICP)
  • 先进的解析技术10分钟生效
  • 6组DNS负载均衡更快更稳定


  • ASP连接access数据库例程
    作者:
    <%
    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="//zdenekvacek.com/I">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
    '********************************************************************
    '********************************************************************

    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>



    来源:
    阅读:9307
    日期:2006-07-01

    【 双击滚屏 】 【 推荐朋友 】 【 收藏 】 【 打印 】 【 关闭 】 【 字体: 】 
      >> 相关文章
     
    CopyRight © 2011 全有数字科技 版权所有
    总部电话:0595-87368513
    企业法人营业执照注册号: 350521100042576
    传真:0595-87368503
    国税注册号:350521557561446
    客户服务中心(7×24): 0595-87368513
    地址: 福建省泉州惠安君越华庭2幢902号
    平博88官网联系(7×24支持):0595-87368520
    闽ICP备09055256号
    售后服务 7×14 小时支持: 0595-87368503