語(yǔ)句

……

%>

<2>定義變量dim語(yǔ)句

dim a,b

a=10

b=”ok!”

%>

注意：定義的變量可以是數(shù)值型，也可以是字符或者其他類型的

<3>簡(jiǎn)單的控制流程語(yǔ)句

1. If 條件1 then

語(yǔ)句1

elseif 條件2 then

語(yǔ)句2

else

語(yǔ)句3

endif

2.while 條件

語(yǔ)句

wend

3.for count=1 to n step m

語(yǔ)句1

exit for

語(yǔ)句2

next

二.ASP數(shù)據(jù)庫(kù)簡(jiǎn)單*作教程

<1>.數(shù)據(jù)庫(kù)連接(用來(lái)單獨(dú)編制連接文件conn.asp)

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bbs\db1\user.mdb")

%>

(用來(lái)連接bbs\db1\目錄下的user.mdb數(shù)據(jù)庫(kù))

<2>顯示數(shù)據(jù)庫(kù)記錄

原理：將數(shù)據(jù)庫(kù)中的記錄一一顯示到客戶端瀏覽器，依次讀出數(shù)據(jù)庫(kù)中的每一條記錄

如果是從頭到尾：用循環(huán)并判斷指針是否到末 使用: not rs.eof

如果是從尾到頭：用循環(huán)并判斷指針是否到開始 使用：not rs.bof

(包含conn.asp用來(lái)打開bbs\db1\目錄下的user.mdb數(shù)據(jù)庫(kù))

set rs=server.CreateObject("adodb.recordset") (建立recordset對(duì)象)

sqlstr="select * from message" ---->(message為數(shù)據(jù)庫(kù)中的一個(gè)數(shù)據(jù)表，即你要顯示的數(shù)據(jù)所存放的數(shù)據(jù)表)

rs.open sqlstr,conn,1,3 ---->(表示打開數(shù)據(jù)庫(kù)的方式)

rs.movefirst ---->(將指針移到第一條記錄)

while not rs.eof ---->(判斷指針是否到末尾)

response.write(rs("name")) ---->(顯示數(shù)據(jù)表message中的name字段)

rs.movenext ---->(將指針移動(dòng)到下一條記錄)

wend ---->(循環(huán)結(jié)束)

------------------------------------------------------

rs.close

conn.close 這幾句是用來(lái)關(guān)閉數(shù)據(jù)庫(kù)

set rs=nothing

set conn=nothing

-------------------------------------------------------

%>

其中response對(duì)象是服務(wù)器向客戶端瀏覽器發(fā)送的信息

<3>增加數(shù)據(jù)庫(kù)記錄

增加數(shù)據(jù)庫(kù)記錄用到rs.addnew,rs.update兩個(gè)函數(shù)

(包含conn.asp用來(lái)打開bbs\db1\目錄下的user.mdb數(shù)據(jù)庫(kù))

set rs=server.CreateObject("adodb.recordset") (建立recordset對(duì)象)

sqlstr="select * from message" ---->(message為數(shù)據(jù)庫(kù)中的一個(gè)數(shù)據(jù)表，即你要顯示的數(shù)據(jù)所存放的數(shù)據(jù)表)

rs.open sqlstr,conn,1,3 ---->(表示打開數(shù)據(jù)庫(kù)的方式)

rs.addnew 新增加一條記錄

rs("name")="xx" 將xx的值傳給name字段

rs.update 刷新數(shù)據(jù)庫(kù)

------------------------------------------------------

rs.close

conn.close 這幾句是用來(lái)關(guān)閉數(shù)據(jù)庫(kù)

set rs=nothing

set conn=nothing

-------------------------------------------------------

%>

<4>刪除一條記錄

刪除數(shù)據(jù)庫(kù)記錄主要用到rs.delete,rs.update

(包含conn.asp用來(lái)打開bbs\db1\目錄下的user.mdb數(shù)據(jù)庫(kù))

dim name

name="xx"

set rs=server.CreateObject("adodb.recordset") (建立recordset對(duì)象)

sqlstr="select * from message" ---->(message為數(shù)據(jù)庫(kù)中的一個(gè)數(shù)據(jù)表，即你要顯示的數(shù)據(jù)所存放的數(shù)據(jù)表)

rs.open sqlstr,conn,1,3 ---->(表示打開數(shù)據(jù)庫(kù)的方式)

-------------------------------------------------------

while not rs.eof

if rs.("name")=name then

rs.delete

rs.update 查詢數(shù)據(jù)表中的name字段的值是否等于變量name的值"xx"，如果符合就執(zhí)行刪除，

else 否則繼續(xù)查詢,直到指針到末尾為止

rs.movenext

emd if

wend

------------------------------------------------------

------------------------------------------------------

rs.close

conn.close 這幾句是用來(lái)關(guān)閉數(shù)據(jù)庫(kù)

set rs=nothing

set conn=nothing

-------------------------------------------------------

%>

<5>關(guān)于數(shù)據(jù)庫(kù)的查詢

(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 (檢測(cè)user值和pass值是否為空，可以檢測(cè)到空格)

response.write("注冊(cè)信息不能為空")

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("注冊(cè)成功")

end if

rs.close

conn.close

set rs=nothing

set conn=nothing

response.write("注冊(cè)重名")

%>

(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>幾個(gè)簡(jiǎn)單的asp對(duì)象的講解

response對(duì)象:服務(wù)器端向客戶端發(fā)送的信息對(duì)象,包括直接發(fā)送信息給瀏覽器,重新定向URL，或設(shè)置cookie值

request對(duì)象:客戶端向服務(wù)器提出的請(qǐng)求

session對(duì)象:作為一個(gè)全局變量，在整個(gè)站點(diǎn)都生效

server對(duì)象：提供對(duì)服務(wù)器上方法和屬性的訪問(wèn)

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

比如：

resposne.write("hello, welcome to asp!")

%>

在客戶端瀏覽器就會(huì)看到 hello, welcome to asp! 這一段文字

response.Redirect(www.sohu.com")

%>

如果執(zhí)行這一段，則瀏覽器就會(huì)自動(dòng)連接到 “搜狐” 的網(wǎng)址

關(guān)于response對(duì)象的用法還有很多，大家可以研究研究

request對(duì)象的一般使用方法

比如客戶端向服務(wù)器提出的請(qǐng)求就是通過(guò)request對(duì)象來(lái)傳遞的

列如 ：你在申請(qǐng)郵箱的所填寫的個(gè)人信息就是通過(guò)該對(duì)象來(lái)將

你所填寫的信息傳遞給服務(wù)器的

比如：這是一段表單的代碼，這是提供給客戶填寫信息的，填寫完了按

“提交”傳遞給request.asp文件處理后再存入服務(wù)器數(shù)據(jù)庫(kù)

那么request.asp該如何將其中的信息讀入，在寫入數(shù)據(jù)庫(kù)，在這里就要用到

request對(duì)象了，下面我們就來(lái)分析request.asp的寫法

dim name,password (定義user和password兩個(gè)變量)

name=request.form(“user”) (將表單中的user信息傳給變量name)

password=request.form(“pass”) (將表單中的pass信息傳給變量password)

%>

通過(guò)以上的幾句代碼我們就將表單中的數(shù)據(jù)讀進(jìn)來(lái)了，接下來(lái)我們要做的就是將

信息寫入數(shù)據(jù)庫(kù)了，寫入數(shù)據(jù)庫(kù)的方法上面都介紹了，這里就不一一復(fù)述了。

(通過(guò)上面的學(xué)習(xí)大家完全可以自己做一個(gè)留言版了)

攀登者IT技術(shù)交流總?cè)?#xff1a;141098671(500人) 攀登者IT技術(shù)交流貳群：168051867(500人)|| 攀登者IT【.Net】精英：172663374 || 攀登者IT【Java】精英：216931633||攀登者IT技術(shù)長(zhǎng)沙分群：222932346(只加在長(zhǎng)沙工作的朋友)。歡迎你的加入進(jìn)行技術(shù)探討！加群時(shí)請(qǐng)寫好技術(shù)方向，否則不批準(zhǔn)！

總結(jié)

以上是生活随笔為你收集整理的留言板asp mysql_ASP简单入门(制作一个简单的留言板 )的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。