目前管理資訊系統已從傳統的客戶機/伺服器(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 >
< 身體 >
< 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 >
< /身體 >
< /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 >
< 身體 >
< % if request.form(cmdok)=確定then % >
< %
set dbconnection=server.createobject
(adodb.connection) dbconnection.opentest,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% >
< /身體 >
< /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 >
< /身體 >
< /html >
---- 4、總結
---- 以IE開啟index.html或將檔案發佈到站點,進行對應的操作,即可實現對SQL Server資料庫系統中《辦公室檔案》資料表記錄的追加與查詢,至此系統目標已達到。