您的位置：首页 → 网页设计 → ASP实例 → 一个通用数据库显示程序

一个通用数据库显示程序

时间：2004/11/7 3:00:00来源：本站整理作者：蓝点我要评论(0)

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



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 ""

Response.Write ""

Response.Write "

" 'width='50%' IF SESSION("FLMENULBUP")<>"" THEN Response.Write "当前栏目："&MID(SESSION("FLMENULBUP"),4,200)&"" END IF IF SESSION("flmenulb")<> SESSION("FLMENULBUP") THEN Response.Write " >> "&MID(SESSION("flmenulb"),4,200)&"" END IF Response.Write "

" Response.Write "" for i3=1 to i1-1 Response.Write "" next Response.Write "" ' for i2=1 to i1-1 Response.Write "" next Response.Write " "&findr(i3)&"：

精确

"

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 zs>=300 and topsn<>"" then

Response.Write ""

else

Response.Write ""

end if

Response.Write ""

Response.Write ""

Response.Write " "

Response.Write "

总数很多,当前显示前"&ZS&"条，分"&PAGEZS&"页，现在是第"&PAGESN&"页
一共"&ZS&"条，分"&PAGEZS&"页，现在是第"&PAGESN&"页	上一页	下一页	跳转到第 " Response.Write "页

"

if fh="H" THEN

Response.Write " "

Response.Write " "

for ii=1 to i-1

Response.Write ""

next

Response.Write ""

for iii=1 to pagen

Response.Write ""

FOR II=1 TO I-1

Response.Write ""

NEXT

Response.Write ""

RS.MOVENEXT

if rs.eof then exit for

next

Response.Write "

"&dispFIL(ii)&"

"&RS(fild(II))&"

"

ELSE

Response.Write " "

for iii=1 to pagen

FOR II=1 TO I-1

Response.Write ""

NEXT

Response.Write ""

RS.MOVENEXT

if rs.eof then exit for

next

Response.Write "

"&dispFIL(ii)&"：	"&RS(fild(II))&"

"

END IF

rs.close

Response.Write ""

if zs>=300 and topsn<>"" then

Response.Write ""

else

Response.Write ""

end if

Response.Write ""

Response.Write ""

Response.Write " "

Response.Write "

总数很多,当前显示前"&ZS&"条，分"&PAGEZS&"页，现在是第"&PAGESN&"页
一共"&ZS&"条，分"&PAGEZS&"页，现在是第"&PAGESN&"页	上一页	下一页	跳转到第 " 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

还有啊,软件世界竟然发了篇牛记的文章,说程序员工资太高,阿余在站上也放了个论坛,大家可以一起到阿余的站上去骂死那个家伙.

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论