ASP中非資料庫實現資料對象的定義及處理

來源:互聯網
上載者:User
對象|資料|資料庫

說非資料庫方式,有些託大,但在沒有資料庫的情況下,也算給了一個鍛煉的好機會,更何況本人對有事沒事就整資料庫玩的方式是深惡痛絕,有些時候,在資源有限及功能簡單的情況下,利用檔案管理本身就能很好的實現一個系統,又何必非用資料庫不可呢?
好的,開說 ASP 程式, ASP 程式強大的原因主要在於 COM 物件的擴充,所以在一陣的頭腦風暴後,打起了一套組合拳: Scripting.FileSystemObject , Scripting.Dictionary 以及 Msxml2.DOMDocument.4.0 。
下面就以檔案管理程式為例,對實現做簡要說明:

首先,是構思。

1. 管理的資料對象是檔案對象,而檔案對象可以對應到 XML 中的某個結點

2. 檔案對象的結構,可以自行定義

3. 檔案對象的增加、刪除、修改以及查詢

XML 中充分利用 Xpath ,實現查詢比較簡單,所以構思後問題主要應該歸結為 XML 結點的增刪改的問題,以及對象結構的定義。增刪改不必多說,關鍵是對象結構的自訂(在物件導向中就是類的聲明)。

接下來,是實現。

一是結構檔案

這裡結構包括:英文名字,中文顯示名,類型,顯示模版(或參照),預設值等

其實就是類似 schema 的東西,然後把這些結構儲存在一個檔案中,很多操作時就可以在迴圈中自動處理了,比如顯示一個檔案時,就可以按照這個結構來顯示所有屬性欄位。

如下為一個結構檔案 documentx.dna 的示範內容:

*/DOCS= 檔案

*/DOCS/@VERSION= 版本 %%STRING%%[NUM].[NUM].[NUM].[NUM]%% 1.0.0 .0

*/DOCS/DOC= 檔案

+/DOCS/DOC/@ID= 標識 %%STRING%%%%=UniqueID()

+/DOCS/DOC/@HOT= 人氣 %%NUM%%%%0

/DOCS/DOC/TITLE= 標題

/DOCS/DOC/DEPARTFROM= 來文單位 %%DICTIONARY%%department%%

/DOCS/DOC/@DONE= 是否處理完畢 %%BOOL%%%%

需要說明的是英文名稱採用 Xpath 的方式,是為了方便 XML 處理。

英文名稱前加 * 號表示為系統欄位,同時也是非檔案對象的屬性欄位

英文名稱前加 + 表示該欄位對使用者來說是唯讀,其值由系統指定。

另外前加 * 或者加 + 號也好,也有防止誤刪的原因,因為 * 號或 + 號是不會顯示給使用者的。

用 = 號分隔英文名稱與其他部分,而其他部分中用 %% 分隔,依次為中文顯示名,該項類型,顯示模版(或參照),預設值。

需要說明的是類型,如果類型為 DICTIONARY 的話,顯示模版(或參照)或參照的為具體的 DICTIONARY 檔案, DICTIONARY 的儲存形式,形同 Delphi 中 TstringList 的儲存形式,用 = 號把關鍵字與值分隔:

CS1= 測試單位 1

CS2= 測試單位 2

二是利用建立一個檔案,說明顯示的問題

先看示範檔案:

<% @LANGUAGE=VBSCRIPT %>
<%
Dim sKey, sValue, Sign, Pos, AttrID, Values, F, FName, Count
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<body>
<form method="POST" action="Documents!Save.asp">
<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse">
<tr>
<td bgcolor="#C 0C 0C 0"><b> 建立 </b></td>
</tr>
<tr>
<td>
<table border="1" width="100%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td width="10%"> 項 </td>
<td> 值 </td>
</tr>
<%
'Count = 0
'DOCUMENTX 為 Scripting.Dictionary 對象,為 documentx.dna 的內容
For Each sKey In DOCUMENTX
Sign = Left(sKey, 1)
If Sign<>"*" Then
sValue = DOCUMENTX.Item(sKey)
Values = Split (sValue & "%%%%%%", "%%")
Pos = InStrRev(sKey, "/")
AttrID = Right(sKey, Len(sKey) - Pos)
If Left(AttrID,1)="@" Then
AttrID = Mid(AttrID, 2) & "_INLINE" ' 也就是說 @ 為一般為內建屬性
End If
AttrID = "ATTR_" & AttrID
%>
<tr>
<td width="10%"><%=Values(0)%></td>
<td>
<%
If Sign="+" Then ' 如果為唯讀屬性
%>
<input type="hidden" name="<%=AttrID %>" value="" /> 系統計算: <%=Values(3) %>
<%
Else
' 按照類型進行顯示
If Values(1)="BOOL" Then
Response.Write "<input type=""checkbox"" name=""" & AttrID & """ value=""1"" />"
Else
If Values(1)="DICTIONARY" Then
'ENVIRONMENT 為 Scripting.Dictionary 對象
'ENVIRONMENT.Item(“ROOT”) 中儲存了該程式管理的根目錄
FName = ENVIRONMENT.Item("ROOT") & "\dictionary\" & Values(2) & ".dic"
%>
<select name="<%=AttrID %>">
<%
If FSO.FileExists(FName) Then
Set F = FSO.OpenTextFile(FName, 1, False)
Do While Not F.AtEndOfStream
sValue = F.ReadLine
Pos = InStr(sValue, "=")
If Pos>0 Then
Response.Write "<option value=""" & Left(sValue, Pos-1) & """>" & Right(sValue, Len(sValue)-Pos) & "</option>"
End If
Loop
F.Close
End If
%>
</select>
<%
Else
Response.Write "<input type=""textbox"" name=""" & AttrID & """ size=""30"" />"
End If
End If
End If
%>
</td>
</tr>
<%
'Count = Count + 1
End If
Next
%>
<tr>
<td width="10%"> </td>
<td> </td>
</tr>
<tr>
<td width="10%"> </td>
<td> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#C 0C 0C 0" align="right" valign="middle"><input type="submit" name="btnSave" value=" 儲存 " /> <input type="button" name="btnReset" value=" 重輸 " /></td>
</tr>
</table>
</form>
</body>
</html>

三是利用代碼說明 xml 儲存的實現
<% @LANGUAGE=VBSCRIPT %>
<!-- #include file="System.inc.asp" -->
<!-- #include file="Document.inc.asp" -->
<%
'System.inc.asp 中包含 UniqueID() 函數
' 首先,擷取使用者用戶端提交的資料資訊
Dim PostData
Set PostData = Server.CreateObject("Scripting.Dictionary")
Dim Values, Key, Value, AttrID, Pos, Sign
For Each Key I



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。