ASP快速開發(fā)方法之數(shù)據(jù)操作(2)_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：ASP實例：即時顯示當前頁面瀏覽人數(shù)
      ASP實現(xiàn)即時顯示當前頁面瀏覽人數(shù) 

online.asp文件





    

        

            以下為引用的內(nèi)容：
<!--#include file="dbconn.asp" -->
<%
onlineTimeout=10
      


      那我再改進下：
      


      把conn.asp文件改成：
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      <%
      Dim Conn
      Dim Rs
      Sub CloseDatabase
          Conn.close
          Set Conn = Nothing
      End Sub
      Sub OpenDatabase
          Dim StrServer,StrUid,StrSaPwd,StrDbName
          StrServer="192.168.1.1"        '數(shù)據(jù)庫服務(wù)器名
          StrUid="sa"            '您的登錄帳號
          StrSaPwd=""            '您的登錄密碼
          StrDbName="cnbruce.mdb"        '您的數(shù)據(jù)庫名稱
              Set Conn = Server.CreateObject("ADODB.Connection")
              '用于連接ACCESS
              Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(StrDbName)
              '用于連接MSSQL
              'Conn.ConnectionString = "Driver={sql server};driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database=
      "&StrDbName
              set rs=server.CreateObject("ADODB.RecordSet")
              conn.open
              if Err Then
                  err.Clear
                  Set Conn = Nothing
                  GBL_CHK_TempStr = GBL_CHK_TempStr & "數(shù)據(jù)庫連接錯誤!"
                  Response.Write GBL_CHK_TempStr
                  Response.End
              End If    
      End Sub
      %>      		

        
      

          


      


      


      現(xiàn)在我們的showit.asp可以這樣寫：
      


      showit.asp
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      <!--#include file="conn.asp" -->
      <%
      sql = "Select * from cnarticle"
      opendatabase
      rs.Open sql,conn,1,1
      If not Rs.eof then
          Do Until rs.EOF
          response.write("文章標題是:"& rs("cn_title"))
          response.write("<br>文章作者是:"& rs("cn_author"))
          response.write("<br>文章加入時間是:"& rs("cn_time"))
          response.write("<br>文章內(nèi)容是:"& rs("cn_content"))
          response.write("<hr>")
          rs.MoveNext
          Loop
      else
          response.write ("暫時還沒有文章")
      end if
      Closedatabase
      %>      		

        
      

          


      


      


      嗯，我們又少寫了一些東西，這樣是最簡單的嗎？當然不是！還可以更簡單。
      使用GetRows把查詢出來的數(shù)據(jù)傳給一個變量，使用ubound方法取得數(shù)據(jù)記錄條數(shù)。
      不明白？沒關(guān)系，讓我們繼續(xù)往下看：
      


      再建個文件：sql.asp
      


      sql.asp
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      <%
      Class DataTable
          public Function SelectData(sql)
              If sql<>"" then
                  opendatabase
                  Rs.open sql,conn,1,1
                  If not Rs.eof then
                      Thedata=Rs.GetRows(-1)
                      Closedatabase
                  Else
                      Closedatabase
                  End If
              End If
              SelectData=Thedata
          End Function
      End Class
      %>      		

        
      

          


      


      


      嗯，復(fù)制它就可以了，現(xiàn)在我們的showit.asp可以簡單地這樣寫：
      


      showit.asp
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      <!--#include file="conn.asp" -->
      <!--#include file="sql.asp" -->
      <%
      sql = "Select * from cnarticle"
      set loadData=new DataTable
      Thedata=loadData.SelectData(sql)
      If isarray(Thedata) then
          Num=ubound(Thedata,2)
          for i=0 to Num
              response.write("文章標題是:"& Thedata(1,i))
              response.write("<br>文章作者是:"& Thedata(2,i))
              response.write("<br>文章加入時間是:"& Thedata(3,i))
              response.write("<br>文章內(nèi)容是:"& Thedata(4,i))
              response.write("<hr>")
          next
      else
          response.write("暫時還沒有文章")
      End If
      %>      		

        
      

          


      


      


      分享：ASP教程：解決ASP腳本運行超時的方法
      最近在學習服務(wù)器知識。有時候遇到asp腳本運行超時的錯誤，真是麻煩。找了相關(guān)資料，其中有一些解決方法。

IIS默認的腳本超時時間是90秒

這樣的話如果你是上傳軟件或者傳送數(shù)據(jù)大于90秒的時
      


      

      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2008-08-22


      


      



      


      



      相關(guān)ASP教程：