ASP通用資料庫顯示編輯程式

來源:互聯網
上載者:User
程式|資料|資料庫|顯示 引言:]我是雖然半路出家經作了幾年的程式,但不知自己是否算是一個程式員。我最近幫朋友作一個網站,為了空間的便宜,選用了ASP+ACCESS的伺服器。由於本人對ASP知道很少,所以實在做得有點累,特別是後台資料庫的管理,有一大堆的表需要我日常維護。我發現,對於後台資料管理,基本上對資料庫進行增刪改查的的操作,我一個表一個表的寫同樣的操作,真的無法忍受。上網查了查,還真有通用的資料顯示程式,可惜沒有資料編輯功能。於是有了自己寫一個通用的功能的想法。下面是我參考網友*後的實現。
[設計目標:]
1、資料庫顯示,編輯,增加,修改,且可以由使用者定義選用。
2、顯示的欄位列可以使用者定義(顯示名稱可自訂)
3、頁面的顯示格式以由使用者定義,這包括每頁記錄數,頁尾,列寬,表格的樣式(配置了格式控制CSS檔案)
4、組件的介面,支援多語言(chinese,eng,...),可惜還未有時間實現,現為中文。
5、支援多表聯集查詢
[缺限:]
調用參數複雜,需要文檔支援,多表聯集查詢別名有限制。

[使用樣本:]
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="./style_cn.css" type=text/css rel=stylesheet>

<title>通用資料庫顯示程式</title>

</head>
<body bgcolor="#66cccc">
<%
'多個欄位用數組表示
'DSN串連寫法
'sConn = "DSN=<資料庫名>;UID=<DSN帳號>;PWD=<密碼>"
'使用實體路徑串連Access資料庫寫法
'sConn = "DBQ=" & Server.MapPath("<Access資料庫檔案的當前檔案相對路徑>") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'串連SQLServer寫法
'sConn = "Provider=SQLOLEDB;Persist Security Info=False;UID=<使用者名稱>;PWD=<密碼>;Initial Catalog=<SQLServer資料庫名>;Data Source=<資料服務器IP>"

Dim sConn, sTableName, sHidden, sDisplay, sQuery, sOrder, iTop, iPageSize,sEditCols,sKey,sRelation,sColWidth
sConn = "DBQ=" & Server.MapPath("sample.MDB") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

'sTableName = "客戶"
'sDisplay = "連絡人姓名 | 連絡人 | <a href=""view.asp?CustomerID=$客戶ID$"">$連絡人姓名$</a>, 公司名稱|公司, 連絡人頭銜|稱謂, 地址, 城市"
'sHidden = "客戶ID"
'sQuery = "連絡人姓名 | 連絡人, 公司名稱|公司, 連絡人頭銜|稱謂 , 城市"
'sOrder = "客戶ID"
'iTop = 300
'iPageSize = 2
'sEditCols="0,1,1,1,1"'0-not edit ,1-edit
'sKey="客戶(客戶ID);"
'sRelation=""


sTableName = "Customer,myOrder"
sDisplay = "myOrder.custid|客戶ID|<a href=""view.asp?CustomerID=myOrder.custid$"">$CustName$</a>, lineid|行號,product|產品,qty|數量,Amt|金額,dt|日期,linenotes|備忘"
sHidden = "CustName"
sQuery = "myOrder.CustID|客戶ID, product|產品, dt|定單日期"
sOrder = "myOrder.lineID"
iTop = 300
iPageSize = 2
sEditCols="0,1,1,1,1,1,1"'0-not edit ,1-edit
sKey="myOrder(myOrder.custid,lineid);"
sRelation=" myOrder.custid=customer.custid "
sColWidth="20,40,60,60,60,60,60"

'DisplayTable sConn, sTableName, sHidden, sDisplay, sQuery, sOrder, iTop, iPageSize
dim objTable
Set objTable= New clsDispalyTable

'response.Write sConn & "<br>"
objTable.SetTablePara sConn, sTableName, sHidden, sDisplay, sQuery, sOrder,sRelation,sKey
objTable.SetEditPara sEditCols,"",sColWidth,True,True,True
objTable.SetPagePara 300,3
Response.write "<table border=0 align=center cellspacing=0 cellpadding=0><tr><td bgcolor=#6699cc>"
objTable.DisplayTable
Response.write "</td></tr><table>"

'pConn, pTableNames, pHidden, pDisplay, pQuery,pOrder,pRelation,pKeys)


%>

示範:http:www.qinych.com/caibing/test/test.asp


文章:<a href="http://www.xurui.com/mypaper/通用資料庫顯示程式">通用資料庫顯示程式文章</a><br>
樣本asp程式:<a href="http://www.xurui.com/mypaper/通用資料庫顯示程式/common.asp">http://www.xurui.com/mypaper/通用資料庫顯示程式/common.asp</a><br>
樣本資料庫地址:<a href="http://www.xurui.com/mypaper/通用資料庫顯示程式/sample.mdb">http://www.xurui.com/mypaper/通用資料庫顯示程式/sample.mdb</a>
</body>
</html>
[小結:] 雖然已經完成了了大部分功能,但還有很多不完美的地言,肯請朋友提出意見。



相關文章

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。