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

asp學習入門經驗談

2013-11-13 09:58:41  來源: .NET編程 

  一VBScript語法簡介

  VBScript語句是一種基於VB的一種腳本語言主要用於WEB服務器端的程序開發我們這裡只介紹一些簡單的語句主要是操作數據庫的幾種常見的語句

  <>vbscript的標識

  <%

  語句

  ……

  %>

  <>定義變量dim語句

  <%

  dim ab

  a=

  b=ok!

  %>

  注意定義的變量可以是數值型也可以是字符或者其他類型的

  <>簡單的控制流程語句

   If 條件 then

  語句

  elseif 條件 then

  語句

  else

  語句

  endif

  while 條件

  語句

  wend

  for count= to n step m

  語句

  exit for

  語句

  next

  二ASP數據庫簡單操作教程

  <>數據庫連接(用來單獨編制連接文件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(\刪除失敗\

  %>

  <>幾個簡單的asp對象的講解

  response對象服務器端向客戶端發送的信息對象包括直接發送信息給浏覽器重新定向URL或設置cookie值

  request對象客戶端向服務器提出的請求

  session對象作為一個全局變量在整個站點都生效

  server對象提供對服務器上方法和屬性的訪問

  (a) response對象的一般使用方法

  比如

  <%

  resposnewrite(\hello welcome to asp!\

  %>

  在客戶端浏覽器就會看到  hello welcome to asp! 這一段文字

  <%

  responseRedirect(\\

  %>

  如果執行這一段則浏覽器就會自動連接到 搜狐 的網址

  關於response對象的用法還有很多大家可以研究研究

  request對象的一般使用方法

  比如客戶端向服務器提出的請求就是通過request對象來傳遞的列如 你在申請郵箱的所填寫的個人信息就是通過該對象來將你所填寫的信息傳遞給服務器的

  比如這是一段表單的代碼這是提供給客戶填寫信息的填寫完了按提交傳遞給requestasp文件處理後再存入服務器數據庫

  <form name=\form\ method=\post\ action=\requestasp\>

  <p> <input type=\text\ name=\user\>

  </p>

  <p>

  <input type=\text\ name=\pass\>

  </p>

  <p>

  <input type=\submit\ name=\Submit\ value=\提交\>

  </p>

  </form>那麼requestasp該如何將其中的信息讀入在寫入數據庫在這裡就要用到request對象了下面我們就來分析requestasp的寫法

  <%

  dim namepassword    (定義user和password兩個變量)

  name=requestform(user)  (將表單中的user信息傳給變量name)

  password=requestform(pass) (將表單中的pass信息傳給變量password)

  %>

  通過以上的幾句代碼我們就將表單中的數據讀進來了接下來我們要做的就是將信息寫入數據庫了寫入數據庫的方法上面都介紹了這裡就不一一復述了

  (通過上面的學習大家完全可以自己做一個留言版了)


From:http://tw.wingwit.com/Article/program/net/201311/12173.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.