通用数据库显示程序.pdfVIP

通用数据库显示程序 数据库显示程序,能调任意库,任意字段,多关键字搜索,自动分页. 阿余经常写一些数据库相关的程序,当然离不开显示库中的数据了,说实话,做这样的程序真是无聊啊,所以, 阿余就想写个函数,一个通用的数据库显示函数.要求如下: 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) 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=0trform 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) END IF IF SESSION(flmenulb) SESSION(FLMENULBUP) THEN Response.Write A HREF=FLMEN.ASP?menulb=SESSION(FLMENULBUP)LB=SESSION