一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
