ASP(Active Server Pages)是Microsoft公司動(dòng)態(tài)訪問網(wǎng)絡(luò)數(shù)據(jù)庫
的最新技術(shù)，目前在Web開發(fā)中得到越來越廣泛的應(yīng)用。ASP編程非常靈
活，本文通過開發(fā)一個(gè)數(shù)據(jù)庫維護(hù)程序，講述一下ASP的編程方法。
開發(fā)運(yùn)行環(huán)境
Oracle服務(wù)器：操作系統(tǒng)為UNIX，安裝了Oracle8數(shù)據(jù)庫。
Web服務(wù)器：奔騰586，操作系統(tǒng)為NT4.0,在其上安裝了Web Server
IIS4.0、Oracle Net8 for Client，并創(chuàng)建好了和Oracle8數(shù)據(jù)庫的OD
BC接口。
客戶機(jī)：Win 95/98操作系統(tǒng)，普通瀏覽器（Netscape4、IE4或以
上版本），并安裝開發(fā)工具Frontpage 98。
系統(tǒng)總體網(wǎng)絡(luò)協(xié)議為TCP/IP。
Web服務(wù)器上ODBC的配置
首先在Web服務(wù)器Windows NT上安裝訪問數(shù)據(jù)庫的ODBC驅(qū)動(dòng)程序，
利用ODBC檢測工具軟件測試與數(shù)據(jù)庫是否連通（運(yùn)行Oracle ODBC TEST
）。連通后，在NT的控制面版中ODBC的正確配置舉例如下：microsoft
odbc for oracle安裝�� 數(shù)據(jù)源名稱（即odbc的名字） infosystem 描
述（d） 信息 oracle用戶名稱（u） user—name oracle用戶密碼 use
r—passwd 服務(wù)器（s） ora8
編寫源代碼
數(shù)據(jù)庫的維護(hù)包括增加、刪除、修改、保存和查詢操作。下邊這段
程序是對Oracle用戶為user—name（密碼為user—passwd）中的表tab
—code（編碼庫）進(jìn)行維護(hù)，tab—code有兩個(gè)字段，即bm(編碼字段，
字符型，5位)和mc(名稱字段，字符型，20位)。
1.與數(shù)據(jù)庫連接，定義子例程：
<%'賦初值%>
<% mc=Request("mc") %>
<%'連接源數(shù)據(jù)庫%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "infosystem","user—name","user—passwd"
'參數(shù)的含義見上表
set bmrs = Conn.Execute("SELECT bm FROM bmb where mc=' "&m
c&" ' ")
temp1 = bmrs("bm")
sql—1 = request("sql—1")
if sql—1 = " " then
sql—1="SELECT bm,mc FROM table—code WHERE bm like ' " &
temp1 & "%' order by bm"
end if
Call treat()
%>
<%
Sub Reset()
bm = " "
temp2 = " "
End Sub
%>
<%
Call Reset()
num—recn = Conn.Execute("SELECT Max(bm) FROM table—code
WHERE bm like ' " & temp1 & "%' ")
%>
<%
Sub treat()
Set num—recn = Conn.Execute(sql—1)
if num—recn.eof then
else
sum—recn = 0
Do While Not num—recn.EOF
num—recn.MoveNext
sum—recn = sum—recn＋1
Loop
if sum—recn <> 0 then
sele—recn=sum—recn
num—recn.MoveFirst
num—recn.Move(sum—recn－1)
Call extract()
end if
end if
End Sub
%>
<%
Sub extract()
bm = num—recn("bm")
temp2 = num—recn(1)
num—recn.Close
End Sub
%>
2.增加一條記錄：
<%
sum—recn =sum—recn ＋ 1
bm = Request("bm")
temp2 = Request("temp2")
Insertsql = "INSERT INTO table—code(bm,mc) VALUES (' " &
bm & " ',' " & temp2 & " ')"
Set Insertrs = Conn.Execute(Insertsql)
%>
3.刪除當(dāng)前記錄：
<%bm = Request("bm")
set delrs = Conn.Execute("Delete From table—code where bm
=' " & bm &" ' ")
Call treat()
%>
4.更新當(dāng)前記錄后入庫（提交更新過的記錄）：
<%
bm = Request("bm")
temp2 = Request("temp2")
UpdateSQL = "UPDATE table—code SET mc=' " & temp2 & " ' w
here bm=' " & bm &" ' "
Set UpdateRS=Conn.Execute(UpdateSQL)
%>
5.設(shè)置查詢條件（內(nèi)容），輸出查詢結(jié)果：
<%
Call Reset()
temp2 = Request("temp2")
sql—1="SELECT bm,mc FROM table—code WHERE mc like ' " &
temp2 & "%' order by bm"
call treat()
%>
'到第一條記錄
<%
Set num—recn = Conn.Execute(sql—1)
sum—recn = Request("sum—recn")
sele—recn=1
Call extract()
%>
<%
'查找前一條記錄
Set num—recn = Conn.Execute(sql—1)
sele—recn = Request("sele—recn")
sum—recn = Request("sum—recn")
if sele—recn >1 then
sele—recn = sele—recn－1
num—recn.Move(sele—recn－1)
end if
Call extract()
%>
<%
'查找下一條記錄
Set num—recn = Conn.Execute(sql—1)
sele—recn = Request("sele—recn")
sum—recn = Request("sum—recn")
if CInt(sele—recn) < CInt(sum—recn) then
sele—recn=sele—recn＋1
num—recn.Move(sele—recn－1)
else
num—recn.MoveFirst
num—recn.Move(sum—recn－1)
end if
Call extract()
%>
<%
'到最后一條記錄
Call treat()
%>
開發(fā)過程中遇到的問題及解決方法
1.用Frontpage98配合ASP技術(shù)的開發(fā)模式，雖然不是很標(biāo)準(zhǔn)，但是
編程效率高，而且簡單易行。而用Studio6.0中的INTER DEV進(jìn)行編程，
應(yīng)該是最標(biāo)準(zhǔn)的，但其編程復(fù)雜，維護(hù)難度大。
為了提高效率和保持代碼的正確性，我們可用記事本打開ASP程序
，將部分代碼輸入或粘貼上去，從而避免程序代碼的丟失或篡改。
2.有時(shí)ASP程序訪問數(shù)據(jù)庫時(shí)，如果遇到網(wǎng)絡(luò)瓶頸等因素，速度會
變慢，此時(shí)往往會返回“運(yùn)行超時(shí)”的錯(cuò)誤，解決此問題的方法是，將
延時(shí)時(shí)間設(shè)得足夠大，如：
<%server.scripttimeout=10000%>（出處：熱點(diǎn)網(wǎng)絡(luò)）