通用數據庫顯示程序

數據庫顯示程序,能調任意庫,任意字段,多關鍵字搜索,自動分頁.


阿余經常寫一些數據庫相關的程序,當然離不開顯示庫中的數據了,說實話,做這樣的程序真是無聊啊,所以,阿余就想寫個函數,一個通用的數據庫顯示函數.要求如下:

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)&""
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)&""
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='img/SEARCH.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〉"
next

Response.Write "〈tr〉〈/table〉〈/td〉〈td width='20%'〉 〈input type='checkbox' name='find_fr' value='yes'〉精確 〈input type='submit' value='開始' name='B_FIND'〉〈/td〉"
Response.Write "〈/form〉 〈/tr〉〈/table〉"
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 "〈table border='0' width='90%'〉"
if zs〉=300 and topsn〈〉"" then
Response.Write "〈tr〉 〈form method='POST' action='?"&urllr&"'〉〈td width='54%'〉總數很多,當前顯示前"&ZS&"條，分"&PAGEZS&"頁，現在是第"&PAGESN&"頁〈/td〉"
else
Response.Write "〈tr〉 〈form method='POST' action='?"&urllr&"'〉〈td width='54%'〉一共"&ZS&"條，分"&PAGEZS&"頁，現在是第"&PAGESN&"頁〈/td〉"
end if
Response.Write "〈td width='11%' align='center'〉〈a href='?PAGESN="&PAGESN-1&urllr&"'〉上一頁〈/td〉"
Response.Write "〈td width='11%' align='center'〉〈a href='?PAGESN="&PAGESN+1&urllr&"'〉下一頁〈/td〉"
Response.Write "〈td width='24%' ALIGN='RIGHT'〉跳轉到第 "
Response.Write "〈input type='text' name='PAGESN' size='2'〉頁〈input type='submit' value='GO' name='B1'〉〈/td〉〈/form〉 "
Response.Write "〈/tr〉〈/table〉 "
if fh="H" THEN
Response.Write " 〈table border='0' width='100%' cellspacing='1' cellpadding='0'〉"
Response.Write " 〈tr bgcolor='#EDBAA5' align='center'〉 "
for ii=1 to i-1
Response.Write "〈td〉"&dispFIL(ii)&"〈/td〉"
next
Response.Write "〈/tr〉"
for iii=1 to pagen
Response.Write "〈tr bgcolor='#FFFAEE'〉"
FOR II=1 TO I-1
Response.Write "〈td〉"&RS(fild(II))&"〈/td〉"
NEXT
Response.Write "〈/tr〉"
RS.MOVENEXT
if rs.eof then exit for
next
Response.Write "〈/table〉"
ELSE
Response.Write " 〈table border='0' width='100%' cellspacing='1' cellpadding='0'〉"
for iii=1 to pagen
FOR II=1 TO I-1
Response.Write "〈tr〉〈td bgcolor='#EDBAA5' ALIGN='RIGHT' WIDTH='20%'〉"&dispFIL(ii)&"：〈/td〉〈td bgcolor='#FFFAEE'〉"&RS(fild(II))&"〈/td〉〈/tr〉"
NEXT
Response.Write "〈tr height='1'〉〈td bgcolor='#CFBA9E' colspan='2' ALIGN='RIGHT' WIDTH='20%'〉 〈/td〉〈/tr〉"
RS.MOVENEXT
if rs.eof then exit for
next
Response.Write "〈/table〉"
END IF
rs.close
Response.Write "〈table border='0' width='90%'〉"
if zs〉=300 and topsn〈〉"" then
Response.Write "〈tr〉 〈form method='POST' action='?"&urllr&"'〉〈td width='54%'〉總數很多,當前顯示前"&ZS&"條，分"&PAGEZS&"頁，現在是第"&PAGESN&"頁〈/td〉"
else
Response.Write "〈tr〉 〈form method='POST' action='?"&urllr&"'〉〈td width='54%'〉一共"&ZS&"條，分"&PAGEZS&"頁，現在是第"&PAGESN&"頁〈/td〉"
end if
Response.Write "〈td width='11%' align='center'〉〈a href='?PAGESN="&PAGESN-1&urllr&"'〉上一頁〈/td〉"
Response.Write "〈td width='11%' align='center'〉〈a href='?PAGESN="&PAGESN+1&urllr&"'〉下一頁〈/td〉"
Response.Write "〈td width='24%' ALIGN='RIGHT'〉跳轉到第 "
Response.Write "〈input type='text' name='PAGESN' size='2'〉頁〈input type='submit' value='GO' name='B1'〉〈/td〉〈/form〉 "
Response.Write "〈/tr〉〈/table〉 "
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(地址)幾個字段.

〈%
。。。。。。
連接數據庫，此處略過，不寫了。
%〉
〈!--#include file="TABDISP.asp"--〉
〈%
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.