分享
 
 
 

ASP通用数据库显示编辑程序

王朝asp·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

[引言:]我是虽然半路出家经作了几年的程序,但不知自己是否算是一个程序员。我最近帮朋友作一个网站,为了空间的便宜,选用了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>

[小结:]虽然已经完成了了大部分功能,但还有很多不完美的地言,肯请朋友提出意见。

Email:bingcaicai@sina.com

可以从演示程序处下载源码!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有