一个通用数据库显示程序

阿余经常写一些相关的程序,当然离不开显示库中的数据了,说实话,做这样的程序真是无聊啊,所以,阿余就想写个函数,一个通用的数据库显示函数.要求如下:

1. 能显示指定的字段,当然,字段名和显示的文字可以不一样.
2. 能同时按多个字段进行查询,支持模糊和精确两种查询方式.
3. 有横向排列和纵向排列字段两种显示方式.
4. 能自动分页.
5. 能设定每页显示多少条记录.好啦,要求大至就是这样了.根据这个要求,阿余写了下面的函数.
实际上,这里阿余写了两个函数.一个是tabdisp(),用于显示一个指定表中的内容.还有一个是er()一个小小的错误处理函数.
这个函数有5个参数(真够多的).并且各个参数都要输入数据,不能是空白,不然会出错的.
1(tab), 要调用的表名.
2(dispfild), 要显示表中的哪一些字段,如字段名和要显示的字符不一样用<分隔.比如某一个字段名为:img,但要在页面上显示为:图片, 那么,就写为img<图片,如果有多个字段,各字段间用“,”分隔,唉，老声长谈.
3(findfild), 要按哪些字段进行查询,字段名和要显示的字符间用<分隔.
4(pagen), 每页显示多少条记录.
5(fh), 显示的方向.当为s时纵向显示.为h时横向显示.
函数的返回值,当没有出错的时候,返回值为真,否则为假.
这个函数中没有包括连接到数据库的部分.所以要自己连接到库.另外,为了重复应用.可以把这个函数专门用一个文件来保存,然后在需要的时候包含这个文件.
看下面的函数: (不要不看完,最后我举有应用的例子)

<%
以下定义一个显示表格的函数tabdisp(),参数tab,被显示的表名,dispfild,要显示的字段,findfild,查询字段,pagen,每页显示数量,fh,显示的方向
如显示成功,返回值为真,不成功,返回值为假.
多个字段间用,分隔
查询字段一定要包含在显示字段中.
如字段名与要显示的名称不一样,用<分隔,前面是字段名,后面是显示的名字,而要进行搜索的字段则一定要用<分隔要字段名和显示字符
fh显示方向为"h"时作横向显示,为"s"时作纵向显示 区分大小写
function tabdisp(tab,dispfild,findfild,pagen,fh)
on error resume next
if dispfild="" then dispfild="*"
if pagen="" then pagen=15
dispfild1=dispfild&","
findfild1=findfild&","

dim findl(10),findr(10)
i1=1
do while instr(findfild1,",")<>0
star=instr(findfild1,",")
findl(i1)=left(findfild1,star-1)
findr(i1)=findl(i1)
fildbak=findl(i1)
findl(i1)=left(fildbak,instr(fildbak,"<")-1)
findr(i1)=right(fildbak,len(fildbak)-instr(fildbak,"<"))
findfild1=right(findfild1,len(findfild1)-star)
i1=i1+1
loop

response.write "<table border=0 width=100% cellspacing=0><tr><form method=get>"
response.write "<td > " width=50%
if session("flmenulbup")<>"" then
response.write "当前栏目：<a href=flmen.asp?menulb="&session("flmenulbup")&">"&mid(session("flmenulbup"),4,200)&"</a>"
end if
if session("flmenulb")<> session("flmenulbup") then
response.write " >> <a href=flmen.asp?menulb="&session("flmenulbup")&"&lb="&session("flmenulb")&">"&mid(session("flmenulb"),4,200)&"</a>"
end if
response.write "</td><td align=right ></td><td align=right><table border=0 cellspacing=0 cellpadding=0> "
response.write "<tr><td rowspan=2><img src="/edu/uploadpic/2007-12/2007129133450450.gif" width=50> </td>"
for i3=1 to i1-1
response.write "<td>"&findr(i3)&"：</td>"
next
response.write "</tr><tr>" <td></td>
for i2=1 to i1-1
response.write "<td><input type=text name=key_word"&i2&" size=8 value=></td>"