數據庫遠程控制的ASP實現

2019-11-18 20:21:40

字體：大中小

來源：轉載

供稿：網友

廣州地鐵運營事業總部計算機中心周振喜呂利

著計算機應用的發展，越來越多的數據被存儲在中心機房的服務器上，由于一些管理人員的地理位置不在中心機房，于是帶來了數據的遠程管理問題。本文以廣州地鐵運營事業總部的圖書資料管理系統為例，介紹利用asp技術實現這種數據庫遠程控制的具體方法和步驟。
問題的提出
廣州地鐵運營事業總部已經實現計算機內部聯網，因為個人計算機在人們下班后都處于關機狀態，為使員工可以24小時通過聯網本地計算機查知圖書資料的實時狀態信息，因此將圖書資料管理數據庫放在計算機中心的服務器上，而不是放在資料室的個人計算機中。這樣就帶來了數據庫的遠程管理問題。
因為只有在仍有復本可借的情況下，員工才有必要去資料室辦理借閱手續，并且如果已無復本可借而本人正急需使用時，還可以查詢借閱人信息，以便同借閱人共同參閱或請其盡快歸還以便借閱。所以，公司資料室圖書資料管理數據庫必須能向查詢員工提供復本總量、剩余復本量、借閱人等實時狀態信息。
為此，在運營事業總部內部網主頁上給圖書資料管理員提供一個對圖書資料借閱情況進行管理的入口。當圖書資料管理員進入時，進行身份驗證，憑用戶名和密碼進入圖書資料借閱情況管理頁面。對圖書資料管理員來說，對數據庫的操作就像在本地計算機上一樣。
操作該網絡數據庫時用到的對象主要有Request對象和ADO組件的Connection、Response、CreateObject對象，用到的方法主要是SQL語言的一些命令如Select、Update等。Request對象用來從地址欄中取回參數值；Connection對象用來建立和管理應用程序和ODBC數據庫之間的連接，該對象具有各種屬性和方法，可以使用它們打開和關閉數據庫的連接，并且可以發出查詢請求更新信息; SQL命令主要實現數據記錄的查詢、更新等操作。
下面是各主要功能模塊的關鍵代碼和解釋。
用戶登錄（login.asp）

<%
// 獲取操作計算機的ip地址
Dim ipaddr
Ipaddr = Request.ServerVariables(“REMOTE_ADDR”)
// 限制只有資料室的計算機（固定IP地址）才能進入圖書資料數據庫維護系統
if Ipaddr<>“172.16.1.56” and paddr<>“172.16.1.58” and Ipaddr<>“172.16.3.61” then
IpError=1
end if
// 要求輸入用戶名與密碼，與上一條件構成雙重保護，并將輸入的用戶名和密碼與用戶管理數據庫中的用戶名和密碼對照，如果有此用戶且密碼正確，則繼續執行
name=trim(request(“name”))
passWord=trim(request(“password”))
if name<>“” and password<>“” then
Set conn=Server.CreateObject(“ADODB.Connection”)
Set rs=Server.CreateObject(“adodb.recordset”)
sql=“select * from user where username=‘”&name&“’and passwd=‘”&password&“’”
Set rs=conn.execute(sql)
　……
if not(rs.eof) then
session(“pass”)=1
Session(“user”)=name
Response.Redirect (“bmanage.asp”)
　　　……
end if
　　……
end if
%>
創建用戶查詢界面（bmanage.asp）
//保證只有通過登錄的人才能進入
<%
if session(“pass”)<>1 then
response.redirect (“login.asp”)
end if
%>
// 創建表單，給出幾個類別（分類號、借閱情況、題名、出版者、著編者），供自選查詢條件
<form name=“form_choice” action=“inq_modi.asp”>
<input type=“radio” name=“choice” value=“type”>分類號
<input type=“radio” name=“choice” value=“borrow” checked>借閱情況
<input type=“radio” name=“choice” value=“title”>題名
<input type=“radio” name=“choice” value=“PRess”>出版者
<input type=“radio” name=“choice” value=“author”>著編者
<b>包含： </b>
<input type=“text” name=“include” value=“<%=include%>” maxlength=“30”>
<input type=“submit” name=“Submit” value=“ 搜索 ”>
</form>
執行查詢操作（inq_modi.asp）

<%
//利用Request傳回的值到數據庫中查詢相應的記錄
choice=Request(“choice”)
include=Request(“include”)
sql = “Select * From 圖書目錄”
Select Case choice
case “borrow”
sql = sql & “Where 借閱情況 like ‘%” & include & “%’”
titlestr=“借閱情況”
……
End Select
titlestr = titlestr & “ 包含 ” & include & “圖書目錄”
sql = sql & “Order by 分類號”
%>
// 調用RsToModi.asp顯示查詢結果
<%
Set conn = Server.CreateObject(“ADODB.Connection”)
conn.open “driver={Microsoft access Driver (*.mdb)}; dbq=”& Server.MapPath(“Books.mdb”)
Set rs = conn.Execute(sql)
RsToModiTable rs
%>
顯示查詢結果（RsToModi.asp）
<%
Sub RsToModiTable( rs )
’Part I 取得圖書序號和借閱情況字段值
For i=0 to rs.Fields.Count-1
Response.WRITE “<TD>” & rs.Fields(i).Name & “</TD>”
if rs.Fields(i).Name = “序號” then
bookidfield= i
end if
if rs.Fields(i).Name = “借閱情況” then
linkfield= i
end if
Next
’Part Ⅱ 創建借閱情況鏈接，調用借閱情況修改頁面
While Not rs.EOF
For i=0 to rs.Fields.Count-1
if i <> linkfield then
if i = bookidfield then
bookidvalue = rs.Fields(i).Value
end if
if trim(rs.Fields(i).Value) <> “” then
Response.WRITE “<TD>”& rs.Fields(i).Value & “</TD>”
else
Response.WRITE “<TD>” & “—” & “</TD>”
end if
else
linkstr = “<a href=” & ““”” & “bookmodi.asp?bookid=” & bookidvalue & ““””
linkstr = linkstr & “target=” & ““”” & “_blank” & ““”” & “>”
alignstr = “<p align=”& ““”” &“center” & ““”” & “>”
if trim(rs.Fields(i).Value) <> “” then
Response.WRITE “<TD>” & alignstr & linkstr & rs.Fields(i).Value & “</a>” & “</TD>”
else
Response.WRITE “<TD>” & alignstr & linkstr & “無” & “</a>” & “</TD>”
end if
end if
Next
rs.MoveNext
Wend
End Sub
%>
借閱情況修改頁面（BookModi.asp）
// 將Request傳遞來的序號所對應的記錄顯示在頁面上，對冊數、借閱情況、借閱日期字段進行修改
<%
BookID=Request(“BookID”)
DbPath = Server.MapPath(“Books.mdb”)
Set conn = Server.CreateObject(“ADODB.Connection”)
conn.open “driver={Microsoft Access Driver (*.mdb)}; dbq=” & DbPath
sql = “Select * From 圖書目錄”
sql = sql & “ Where 序號 =” & BookID
Set rs = conn.Execute(sql)
%>
// 創建表單，對冊數、借閱情況、借閱日期字段進行修改
<form Action=“BookUpdate. asp？BookID=<%=BookID%>” method=“POST”>
<td height=“35” width=“17”>序號</td>
　……
<td height=“80” width=“17”><%=rs(“序號”)%></td>
　……
<Input Type=Text Name=“BNumber” Value=<%=rs(“冊數”)%> size=“3”>
<Input Type=Text Name=“BPerson”Value=<%=rs(“借閱情況”)%> ></td>
<Input Type=Text Name=“BDate” Value=<%=rs(“借閱日期”)%>>
<p><input type=“submit” value=“ 修改 ” name=“MODIFY”>
<input type=“button” value=“ 退出 ” name=“EXIT” onclick=“window.close()”>
</p>
</form>
保存修改結果（BookUpdate.asp）

<%
BookID=Request(“BookID”)
DbPath = SERVER.MapPath(“Books.mdb”)
Set conn = Server.CreateObject(“ADODB.Connection”)
conn.open “driver={Microsoft Access Driver (*.mdb)}; dbq=” & DbPath
B_number = Request(“BNumber”)
B_person = Request(“BPerson”)
B_date = Request(“BDate”)
if len(B_number) = 0 then
B_number = 1
end if
if len(B_person) = 0 then
B_person = “ ”
end if
if len(B_date) = 0 then
B_date = “ ”
end if
Set rs=SERVER.CreateObject(“ADODB.Recordset”)
rs.Open “圖書目錄”, conn , adOpenDynamic, adLockPessimistic
sql = “Update 圖書目錄”
sql = sql & “ Set 借閱情況 = ” & “‘” & B_person & “’”
sql = sql & “ , 借閱日期 = ” & “‘” & B_date & “’”
sql = sql & “ , 冊數 = ”& “‘” & B_number & “’”
sql = sql & “Where 序號 = ” & BookID
Set rs = conn.Execute(sql)
%>

上一篇：GD輸出漢字的函數的分析

下一篇：利用 WSH 作定時工作流程