1. <code id="abek1"></code>

      1.   虚拟主机域名注册-常见问题虚拟主机问题 → 虚拟主机问题


        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=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>



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

        【 双击滚屏 】 【 推荐朋友 】 【 收藏 】 【 打印 】 【 关闭 】 【 字体: 】 
        上一篇:如何保护您的域名不被抢注
        下一篇:计数器、留言板是免费的吗?
          >> 相关文章
         
        亚洲华人AV在线播放
        1. <code id="abek1"></code>