（自己總結(jié)的，請多指點） 一.VBScript語法簡介 VBScript語句是一種基于VB的一種腳本語言,主要用于WEB服務(wù)器端的程序開發(fā),我們 這里只介紹一些簡單的語句，主要是操作數(shù)據(jù)庫的幾種常見的語句 <1>.vbscript的標(biāo)識 <% 語句 …… %> <2>定義變量dim語句 <% dim a,b a=10 b=”ok!” %> 注意：注意：定義的變量可以是數(shù)值型，也可以是字符或者其他類型的 <3>簡單的控制流程語句 1. If 條件1 then 語句1 elseif 條件2 then 語句2 else 語句3 endif 2.while 條件 語句 wend 3.for count=1 to n step m 語句1 exit for 語句2 next 二.asp數(shù)據(jù)庫簡單操作教程 <1>.數(shù)據(jù)庫連接(用來單獨編制連接文件conn.asp) <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft access Driver (*.mdb)}; DBQ=" & Server.MapPath("/bbs/db1/user.mdb") %> (用來連接bbs/db1/目錄下的user.mdb數(shù)據(jù)庫) <2>顯示數(shù)據(jù)庫記錄 原理：將數(shù)據(jù)庫中的記錄一一顯示到客戶端瀏覽器，依次讀出數(shù)據(jù)庫中的每一條記錄 如果是從頭到尾：用循環(huán)并判斷指針是否到末 使用: not rs.eof 如果是從尾到頭：用循環(huán)并判斷指針是否到開始 使用：not rs.bof
<!--#include file=conn.asp--> (包含conn.asp用來打開bbs/db1/目錄下的user.mdb數(shù)據(jù)庫) <% set rs=server.CreateObject("adodb.recordset") (建立recordset對象) sqlstr="select * from message" ---->(message為數(shù)據(jù)庫中的一個數(shù)據(jù)表，即你要顯示的數(shù)據(jù)所存放的數(shù)據(jù)表) rs.open sqlstr,conn,1,3 ---->(表示打開數(shù)據(jù)庫的方式) rs.movefirst ---->(將指針移到第一條記錄) while not rs.eof ---->(判斷指針是否到末尾) response.write(rs("name")) ---->(顯示數(shù)據(jù)表message中的name字段) rs.movenext ---->(將指針移動到下一條記錄) wend ---->(循環(huán)結(jié)束) ------------------------------------------------------ rs.close conn.close 這幾句是用來關(guān)閉數(shù)據(jù)庫 set rs=nothing set conn=nothing ------------------------------------------------------- %> 其中response對象是服務(wù)器向客戶端瀏覽器發(fā)送的信息 <3>增加數(shù)據(jù)庫記錄 增加數(shù)據(jù)庫記錄用到rs.addnew,rs.update兩個函數(shù) <!--#include file=conn.asp--> (包含conn.asp用來打開bbs/db1/目錄下的user.mdb數(shù)據(jù)庫) <% set rs=server.CreateObject("adodb.recordset") (建立recordset對象) sqlstr="select * from message" ---->(message為數(shù)據(jù)庫中的一個數(shù)據(jù)表，即你要顯示的數(shù)據(jù)所存放的數(shù)據(jù)表) rs.open sqlstr,conn,1,3 ---->(表示打開數(shù)據(jù)庫的方式) rs.addnew 新增加一條記錄 rs("name")="xx" 將xx的值傳給name字段 rs.update 刷新數(shù)據(jù)庫 ------------------------------------------------------ rs.close conn.close 這幾句是用來關(guān)閉數(shù)據(jù)庫 set rs=nothing set conn=nothing -------------------------------------------------------
%> <4>刪除一條記錄 刪除數(shù)據(jù)庫記錄主要用到rs.delete,rs.update <!--#include file=conn.asp--> (包含conn.asp用來打開bbs/db1/目錄下的user.mdb數(shù)據(jù)庫) <% dim name name="xx" set rs=server.CreateObject("adodb.recordset") (建立recordset對象) sqlstr="select * from message" ---->(message為數(shù)據(jù)庫中的一個數(shù)據(jù)表，即你要顯示的數(shù)據(jù)所存放的數(shù)據(jù)表) rs.open sqlstr,conn,1,3 ---->(表示打開數(shù)據(jù)庫的方式) ------------------------------------------------------- while not rs.eof if rs.("name")=name then rs.delete rs.update 查詢數(shù)據(jù)表中的name字段的值是否等于變量name的值"xx"，如果符合就執(zhí)行刪除， else 否則繼續(xù)查詢,直到指針到末尾為止 rs.movenext end if wend ------------------------------------------------------ ------------------------------------------------------ rs.close conn.close 這幾句是用來關(guān)閉數(shù)據(jù)庫 set rs=nothing set conn=nothing ------------------------------------------------------- %> <5>關(guān)于數(shù)據(jù)庫的查詢 (a) 查詢字段為字符型 <% dim user,pass,QQ,mail,message user=request.Form("user") pass=request.Form("pass") qq=request.Form("qq") mail=request.Form("mail") message=request.Form("message") if trim(user)&"x"="x" or trim(pass)&"x"="x" then (檢測user值和pass值是否為空，可以檢測到空格) response.write("注冊信息不能為空") else set rs=server.CreateObject("adodb.recordset") sqlstr="select * from user where user='"&user&"'" (查詢user數(shù)據(jù)表中的user字段其中user字段為字符型) rs.open sqlstr,conn,1,3 if rs.eof then rs.addnew rs("user")=user rs("pass")=pass rs("qq")=qq rs("mail")=mail rs("message")=message rs.update rs.close conn.close set rs=nothing set conn=nothing response.write("注冊成功") end if rs.close conn.close set rs=nothing set conn=nothing response.write("注冊重名") %> (b)查詢字段為數(shù)字型 <% dim num num=request.Form("num") set rs=server.CreateObject("adodb.recordset") sqlstr="select * from message where id="&num (查詢message數(shù)據(jù)表中id字段的值是否與num相等，其中id為數(shù)字型) rs.open sqlstr,conn,1,3 if not rs.eof then rs.delete rs.update rs.close conn.close set rs=nothing set conn=nothing response.write("刪除成功") end if rs.close conn.close set rs=nothing set conn=nothing response.write("刪除失敗") %> <6>幾個簡單的asp對象的講解 response對象:服務(wù)器端向客戶端發(fā)送的信息對象,包括直接發(fā)送信息給瀏覽器,重新定向URL，或設(shè)置cookie值 request對象:客戶端向服務(wù)器提出的請求 session對象:作為一個全局變量，在整個站點都生效 server對象：提供對服務(wù)器上方法和屬性的訪問 (a) response對象的一般使用方法 比如： <% response .write("hello, welcome to asp!") %> 在客戶端瀏覽器就會看到 hello, welcome to asp! 這一段文字 <% response.Redirect("www.sohu.com") %> 如果執(zhí)行這一段，則瀏覽器就會自動連接到 “搜狐” 的網(wǎng)址 關(guān)于response對象的用法還有很多，大家可以研究研究 request對象的一般使用方法 比如客戶端向服務(wù)器提出的請求就是通過request對象來傳遞的 列如 ：你在申請郵箱的所填寫的個人信息就是通過該對象來將 你所填寫的信息傳遞給服務(wù)器的 比如：這是一段表單的代碼，這是提供給客戶填寫信息的，填寫完了按 “提交”傳遞給request.asp文件處理后再存入服務(wù)器數(shù)據(jù)庫 <form name="form1" method="post" action="request.asp"> <p> <input type="text" name="user"> </p> <p> <input type="text" name="pass"> </p> <p> <input type="submit" name="Submit" value="提交"> </p> </form> 那么request.asp該如何將其中的信息讀入，在寫入數(shù)據(jù)庫，在這里就要用到 request對象了，下面我們就來分析request.asp的寫法 <% dim name,passWord (定義user和password兩個變量) name=request.form(“user”) (將表單中的user信息傳給變量name) password=request.form(“pass”) (將表單中的pass信息傳給變量password) %> 通過以上的幾句代碼我們就將表單中的數(shù)據(jù)讀進來了，接下來我們要做的就是將 信息寫入數(shù)據(jù)庫了，寫入數(shù)據(jù)庫的方法上面都介紹了，這里就不一一復(fù)述了。 （通過上面的學(xué)習(xí)大家完全可以自己做一個留言版了）
