亚洲的天堂AV无码

<small id="10lp1"></small>
<mark id="10lp1"><del id="10lp1"><delect id="10lp1"></delect></del></mark>
    1. <track id="10lp1"><i id="10lp1"></i></track>
    2. <legend id="10lp1"></legend>

      <track id="10lp1"></track>

        虛擬主機域名注冊-常見問題虛擬主機問題 → 虛擬主機問題


      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>



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

      【 雙擊滾屏 】 【 推薦朋友 】 【 收藏 】 【 打印 】 【 關閉 】 【 字體: 】 
      上一篇:如何保護您的域名不被搶注
      下一篇:計數器、留言板是免費的嗎?
        >> 相關文章
       
      亚洲的天堂AV无码
      <small id="10lp1"></small>
      <mark id="10lp1"><del id="10lp1"><delect id="10lp1"></delect></del></mark>
        1. <track id="10lp1"><i id="10lp1"></i></track>
        2. <legend id="10lp1"></legend>

          <track id="10lp1"></track>