Asp:實現對SQL SERVER 數據庫的操作
---- 目前管理信息系統已從傳統的客戶機/服務器（C/S）模式轉向了瀏覽器/服務器（B/S）模式，特別是微軟公司推出它的新產品ASP語言之后，這種轉變更加迅猛。管理信息系統的核心是對數據庫進行包括添加、修改和查詢等等操作，ASP提供的ADO數據庫接口控件，使得程序員再也勿需編寫復雜的CGI程序了，而只要用幾句簡單的語句即可實現以上操作。目前有很多介紹用ASP開發網絡數據庫的程序例子，但絕大部分是利用ACCESS作底層數據庫。相對于ACCESS而言，SQL SERVER數據庫系統要復雜得多，因此在程序開發中需要多做一些工作。筆者結合自己開發管理信息系統的經驗，在此試舉一例，與感興趣的朋友共同交流。 

---- 1、系統環境 

---- PII 350，Ram 64M，WINNT Server 4.0,
Service Pack4, IIS 4.0, SQL Server7.0。 

---- 2、系統功能 

---- 通過使用IE瀏覽器，在網上實現對《辦公文件》數據表記錄的添加和查詢。 

---- 3、功能實現 

---- (1)數據表的設置 

---- ①啟動SQL Server7.0的Enterprise Manager,
在Databases 目錄下增加一個新子目錄"test"； 

---- ②在"test"下增加一個new table，名為"辦公文件"，字段設置：文件名，char,100,允許空；文件內容，char,4000，允許空。 

---- ③在SQL Server中增加一個用戶，名為hxl, 密碼為123，登錄模式為SQL 登錄，將其默認登錄數據庫設為"test"； 

---- ④在"test"數據庫下增加一個新用戶，名為hxl,其角色設為"Dbowner"。 

---- (2)ODBC 鏈接 

---- ①在控制面板中，打開ODBC數據源，選擇系統DSN項，單擊"添加"； 

---- ②選擇"SQL Server"數據源，命名為"test"； 

---- ③選擇登錄模式為SQL Server驗證，登錄標志為"hxl"，密碼為"123"； 

---- ④將默認數據庫高為"test",再測試數據庫鏈接，接通即可。 

---- (3)程序文件 

---- 為了實現系統功能，在這里編輯了3個程序文件，分別為"index.html"、"add.asp"和"query.asp"，具體內容如下： 

---- ①index.html:系統首頁，包括兩個選項，一是追加記錄，二是查詢，用戶可單擊兩者之一，即可進入相應的操作過程。以下是源程序： 

< html >
< head >
< meta http-equiv="Content-Language"
content="zh-cn" >
< meta http-equiv="Content-Type" 
content="text/html; charset=gb2312" >
< meta name="GENERATOR" content="Microsoft
FrontPage 4.0" >
< meta name="ProgId" content="FrontPage
.Editor.Document" >
< title >示例程序< /title >
< /head >
< body >
< p align="center" >
< font size="5" color="#008000" >
歡迎使用用ASP語言對SQL 
SERVER數據庫操作示例< /font >< /P >
< p align="center" >　< /P >
< p align="center" >< a href="add.asp" >
追加記錄< /a >< /p >
< p align="center" >< a href="query.asp" >
查 詢< /a >< /p >
< /body >
< /html >

---- ②add.asp:實現對《辦公文件》數據表記錄的添加。頁面中含有一個單行文本框
（Txtbiaoti）和一個滾動文本框(Txtneirong)，分別用來輸入文件標題和文件內容。此外，頁面中還應有兩個按鈕，"確定（Cmdok）"和"重寫（Cmdcancel）",單擊"確定"完成記錄追加，單擊"重寫"重新輸入內容。以下是源程序： 
< html >
< head >
< meta http-equiv="Content-Type" 
content="text/html; charset=gb2312" >
< meta name="GENERATOR" content=
"Microsoft FrontPage 4.0" >
< meta name="ProgId" content=
"FrontPage.Editor.Document" >
< title >追加一條新記錄< /title >
< /head >
< body >
< % if request.form("cmdok")="確定" then % >
< %
 set dbconnection=server.createobject
("adodb.connection") dbconnection.open"test","hxl","123"
sqlquery="insert "辦公文件"
(文件名,文件內容)
values ('request.form("Txtbiaoti")','
request.form("Txtneirong")') 
set recadd=dbconnection.execute(sqlquery) % > 
< % else % >
< p align="center" >追加記錄< /p >
< form method="POST" action="" >
< p >文件名：< input type="text"
name="Txtbiaoti" size="20" >< /p >
< p >文件內容：< /p >
< p >  
 < textarea rows="3" 
name="Txtneirong" cols="60" >< /textarea >
< /p > 
< p align="center" >< input type="submit"
value="確定" name="Cmdok" > 
< input type="reset" value="重寫" 
name="Cmdcancel" >
< /p >< /form >
< % end if% >
< /body >
< /html >

---- ③query.asp:實現對《辦公文件》數據表記錄的查詢。程序僅實現對《辦公文件》中"文件名"的查詢，查詢結果用一個表單（Table）列出。以下是源程序： 
< html >
< head >
< meta http-equiv="Content-Type" 
content="text/html;charset=gb2312" >
< meta name="GENERATOR" content="Microsoft 
FrontPage 4.0" >
< meta name="ProgId" content=
"FrontPage.Editor.Document" >
< title >檢索文件< /title >
< /head >
< body bgcolor="#ffffdd" >
< %
set dbconnection=server.createobject
("adodb.connection")
dbconnection.open "test","hxl","123"
sqlquery="SELECT 文件名 FROM 辦公文件 "
set resultlist=dbconnection.execute(sqlquery)
% >
< center > 
< font color="red" >< %=request("selectsource")% >
< /font >< font color="#008000" size="5" >< b >
有以下文件可供閱覽< /b >< /font >
< hr size="5" >
< table border="1" >
< tr >
< td width="200" align="center" > < b >
文件名 < /b > < /td >
< /tr >
< % do while not resultlist.eof % >
< tr >
 < td valign=center width="200" >< %=resultlist
("文件名")% >< /a >< /td >
< /tr >
< %
resultlist.movenext
loop
resultlist.close
% >
< /center >
< /TABLE >
< /body >
< /html >

---- 4、總結 
---- 用IE打開index.html或將文件發布到站點，進行相應的操作，即可實現對SQL Server數據庫系統中《辦公文件》數據表記錄的追加和查詢，至此系統目標已經達到。
 

----------------------------------------------
雨濕了我的頭發，我用手輕輕撥弄了一下。
心情是那么的舒暢，在雨中我找回了真實的自己。漫步于雨中，是我最好的消遣寂寞方法。
我能想到最浪漫的事，就是和你一起慢慢變老。