• <strike id="qcr4x"><listing id="qcr4x"></listing></strike>

        <em id="qcr4x"><acronym id="qcr4x"></acronym></em>

          <rp id="qcr4x"></rp>
          <progress id="qcr4x"><track id="qcr4x"></track></progress>
          <button id="qcr4x"></button>

            久久精品天天中文字幕
              虛擬主機域名注冊-常見問題虛擬主機問題 → 虛擬主機問題


            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>



            來源:
            閱讀:11419
            日期:2006/7/1

            【 雙擊滾屏 】 【 推薦朋友 】 【 收藏 】 【 打印 】 【 關閉 】 【 字體: 】 
            上一篇:如何保護您的域名不被搶注
            下一篇:計數器、留言板是免費的嗎?
              >> 相關文章