熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

ASP數據庫簡單操作教程淺析

2013-11-13 10:22:51  來源: .NET編程 

  < >數據庫連接(用來單獨編制連接文件connasp)
  < %
  Set conn = ServerCreateObject(ADODBConnection)
  connOpen DRIVER={Microsoft Access Driver (*mdb)}; DBQ= & ServerMapPath(\bbs\db\usermdb)
  % >
  (用來連接bbs\db\目錄下的usermdb數據庫)
  < >顯示數據庫記錄
  
  原理將數據庫中的記錄一一顯示到客戶端浏覽器依次讀出數據庫中的每一條記錄
  如果是從頭到尾用循環並判斷指針是否到末 使用: not rseof
  如果是從尾到頭用循環並判斷指針是否到開始 使用not rsbof
  
  < ! #include file=connasp > (包含connasp用來打開bbs\db\目錄下的usermdb數據
  庫)
  < %
  set rs=serverCreateObject(adodbrecordset) (建立recordset對象)
  sqlstr=select * from message >(message為數據庫中的一個數據表即你要顯示的
  數據所存放的數據表)
  rsopen sqlstrconn >(表示打開數據庫的方式)
  rsmovefirst >(將指針移到第一條記錄)
  while not rseof >(判斷指針是否到末尾)
  responsewrite(rs(name)) >(顯示數據表message中的name字段)
  rsmovenext >(將指針移動到下一條記錄)
  wend >(循環結束)
  
  rsclose
  connclose 這幾句是用來關閉數據庫
  set rs=nothing
  set conn=nothing
  
  % >
  其中response對象是服務器向客戶端浏覽器發送的信息
  < >增加數據庫記錄
  增加數據庫記錄用到rsaddnewrsupdate兩個函數
  
  < !#include file=connasp > (包含connasp用來打開bbs\db\目錄下的usermdb數據
  庫)
  < %
  set rs=serverCreateObject(adodbrecordset) (建立recordset對象)
  sqlstr=select * from message >(message為數據庫中的一個數據表即你要顯示的
  數據所存放的數據表)
  rsopen sqlstrconn >(表示打開數據庫的方式)
  rsaddnew 新增加一條記錄
  rs(name)=xx 將xx的值傳給name字段
  rsupdate 刷新數據庫
  
  rsclose
  connclose 這幾句是用來關閉數據庫
  set rs=nothing
  set conn=nothing
  
  % >
  < >刪除一條記錄
  刪除數據庫記錄主要用到rsdeletersupdate
  < !#include file=connasp > (包含connasp用來打開bbs\db\目錄下的usermdb數據
  庫)
  < %
  dim name
  name=xx
  set rs=serverCreateObject(adodbrecordset) (建立recordset對象)
  sqlstr=select * from message >(message為數據庫中的一個數據表即你要顯示的數據所存放的數據表)
  rsopen sqlstrconn >(表示打開數據庫的方式)
  
  while not rseof
  if rs(name)=name then
  rsdelete
  rsupdate 查詢數據表中的name字段的值是否等於變量name的值xx如果符合就執行刪
  除
  else 否則繼續查詢直到指針到末尾為止
  rsmovenext
  emd if
  wend
  
  
  rsclose
  connclose 這幾句是用來關閉數據庫
  set rs=nothing
  set conn=nothing
  
  % >
  < >關於數據庫的查詢
  (a) 查詢字段為字符型
  < %
  dim userpassqqmailmessage
  user=requestform(user)
  pass=requestform(pass)
  qq=requestform(qq)
  mail=requestform(mail)
  message=requestform(message)
  if trim(user)&x=x or trim(pass)&x=x then (檢測user值和pass值是否為空可以檢測
  到空格)
  responsewrite(注冊信息不能為空)
  else
  set rs=serverCreateObject(adodbrecordset)
  sqlstr=select * from user where user=&user& (查詢user數據表中的user字段其中user
  字段為字符型)
  rsopen sqlstrconn
  if rseof then
  rsaddnew
  rs(user)=user
  rs(pass)=pass
  rs(qq)=qq
  rs(mail)=mail
  rs(message)=message
  rsupdate
  rsclose
  connclose
  set rs=nothing
  set conn=nothing
  responsewrite(注冊成功)
  end if
  rsclose
  connclose
  set rs=nothing
  set conn=nothing
  responsewrite(注冊重名)
  % >
  (b)查詢字段為數字型
  < %
  dim num
  num=requestform(num)
  set rs=serverCreateObject(adodbrecordset)
  sqlstr=select * from message where id=&num (查詢message數據表中id字段的值是否與
  num相等其中id為數字型)
  rsopen sqlstrconn
  if not rseof then
  rsdelete
  rsupdate
  rsclose
  connclose
  set rs=nothing
  set conn=nothing
  responsewrite(刪除成功)
  end if
  rsclose
  connclose
  set rs=nothing
  set conn=nothing
  responsewrite(刪除失敗)
  % >
  %>
From:http://tw.wingwit.com/Article/program/net/201311/13436.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.