 阿余经常写一些数据库相关的程式,当然离不开显示库中的数据了,说实话,做这样的程式真是无聊啊,所以,阿余就想写个函数,一个通用的数据库显示函数.需要如下: 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 " find_fr=request("find_fr") tj="" urllr="&find_fr="&find_fr findlrdisp="" for i3=1 to i1-1 tj1=request("key_word"&i3) urllr=urllr&"&key_word"&i3&"="&tj1 if tj1=findr(i3) or tj1="" then tj1="" else if find_fr<>"yes" then findlrdisp=findlrdisp&findr(i3)&"包含“"&tj1&"” " tj1=" and "&findl(i3)&" like %"&trim(tj1)&"% " else findlrdisp=findlrdisp&findr(i3)&"是“"&tj1&"” " tj1=" and "&findl(i3)&" = "&trim(tj1)&" " end if end if tj=tj&tj1 if tj="" then topsn=" top 300 " else topsn="" end if next dim fild(35),dispfil(35),dispfildlr dispfildlr="" i=1 dispfild1=dispfild1 do while instr(dispfild1,",")<>0 star=instr(dispfild1,",") fild(i)=left(dispfild1,star-1) dispfil(i)=fild(i) if instr(fild(i),"<")<>0 then fildbak=fild(i) fild(i)=left(fildbak,instr(fildbak,"<")-1) dispfil(i)=right(fildbak,len(fildbak)-instr(fildbak,"<")) end if dispfildlr=dispfildlr&fild(i)&"," dispfild1=right(dispfild1,len(dispfild1)-star) i=i+1 loop dispfildlr=left(dispfildlr,len(dispfildlr)-1) sql="select "&topsn&" id,"&dispfildlr&" from "&tab&" where id<>-1 "&tj&" order by -id" response.write sql session("tabsql")=sql set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 if not rs.eof then pagesn=request("pagesn") if pagesn<=0 or pagesn="" then pagesn=1 rs.pagesize=pagen pagezs=rs.pagecount if cint(pagesn)>pagezs then pagesn=pagezs zs=rs.recordcount page=(pagesn-1)*pagen rs.move page,1 if findlrdisp<>"" then response.write "经搜索，"&findlrdisp&"的记录如下：" response.write " if fh="h" then response.write "
else response.write "
end if rs.close response.write " else response.write "没有找到合适的记录" end if if er() then tabdisp=false else tabdisp=true end if end function function er() 错误处理函数 if err.number = 0 then er = false else err.clear er = true end if end function %> 终于看完函数了.... 各位有点累,其实仔不仔细看都没有关系.反正只管调他就是了.下面举一个应用的例子. 首先, 我们把前面的函数就是<%和%>之间的部分保存到一个叫 tabdisp.asp的文档中. 代码如下: 显示一个职式名册表,表名: zg 有id 姓名 职务 职称 tel bp dz(地址)几个字段. <% 。。。。。。 连接数据库，此处略过，不写了。 %> <% disp="姓名,职务,职称,tel<电话,bp<传呼,dz<地址" find="姓名<姓名,职务<职务,dz<地址" pagen="15" fh="h" tab="zg" if not tabdisp(tab,disp,find,pagen,fh) then response.write "出现错误," end if set conn=nothing %> 把上面的内容随便起个文档名,就一切ok. 另外, 阿余的站www.zydn.net有不少好文章给大家.阿余也在站上随时准备和和朋友交流.阿余的email:coolkk@21cn.com 更有啊,软件世界竟然发了篇牛记的文章,说程式员工资太高,阿余在站上也放了个论坛,大家能够一起到阿余的站上去骂死那个家伙. | ||||||
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
