[Foreword:] I am although halfway decent has been doing a few years of procedure, but I do not know whether I am a programmer. I recently helped friends to make a website, for the sake of cheap space, chose the asp+access server. Because I know very little about ASP, so really do a little tired, especially the background database management, there are a lot of tables need my daily maintenance. I found that for background data management, basically to the database for the operation of the check, I a table a table of the same operation, really unbearable. Check the Internet, there is a universal data display program, unfortunately there is no data editing function. So I have the idea of writing a generic function of my own. Below is my reference user * after the implementation.
[Design goal:]
1, the database display, edit, add, modify, and can be defined by the user selection.
2, the displayed field column can be user defined (display name can be customized)
3, the display format of the page to be defined by the user, which includes the number of records per page, footer, column width, table style (configured with formatting control CSS file)
4, the component interface, support multi-language (Chinese,eng,...), unfortunately has not yet time to achieve, is Chinese.
5. Support multiple Table Joint inquiry
[Lack of limits:]
The invocation parameter is complex, requires document support, and there are restrictions on the multiple-table federated query alias.
[Use Example:]
<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> Universal Database Display program </title>
<body bgcolor= "#66cccc" >
<%
' Multiple fields are represented by arrays
' DSN connection notation
' sconn = ' dsn=< database name >; UID=<DSN Account >; pwd=< Password > "
' Use a physical path to connect to an Access database
' sconn = ' dbq= ' & Server.MapPath ("<access the current file relative path >") &;D efaultdir=;D river={microsoft Access for the database file Driver (*.mdb)}; "
' Connect SQL Server notation
' sconn = ' provider=sqloledb; Persist Security Info=false; uid=< User name >; pwd=< password >;initial catalog=<sqlserver database name >;D ATA source=< data Server ip> "
Dim sconn, sTableName, Shidden, Sdisplay, Squery, Sorder, Itop, Ipagesize,seditcols,skey,srelation,scolwidth
