|
數(shù)據(jù)庫(kù)顯示程序,能調(diào)任意庫(kù),任意字段,多關(guān)鍵字搜索,自動(dòng)分頁(yè).
阿余經(jīng)常寫(xiě)一些數(shù)據(jù)庫(kù)相關(guān)的程序,當(dāng)然離不開(kāi)顯示庫(kù)中的數(shù)據(jù)了,說(shuō)實(shí)話(huà),做這樣的程序真是無(wú)聊啊,所以,阿余就想寫(xiě)個(gè)函數(shù),一個(gè)通用的數(shù)據(jù)庫(kù)顯示函數(shù).要求如下:
1. 能顯示指定的字段,當(dāng)然,字段名和顯示的文字可以不一樣.
2. 能同時(shí)按多個(gè)字段進(jìn)行查詢(xún),支持模糊和精確兩種查詢(xún)方式.
3. 有橫向排列和縱向排列字段兩種顯示方式.
4. 能自動(dòng)分頁(yè).
5. 能設(shè)定每頁(yè)顯示多少條記錄.好啦,要求大至就是這樣了.根據(jù)這個(gè)要求,阿余寫(xiě)了下面的函數(shù).
實(shí)際上,這里阿余寫(xiě)了兩個(gè)函數(shù).一個(gè)是TABDISP(),用于顯示一個(gè)指定表中的內(nèi)容.還有一個(gè)是ER()一個(gè)小小的錯(cuò)誤處理函數(shù).
這個(gè)函數(shù)有5個(gè)參數(shù)(真夠多的).并且各個(gè)參數(shù)都要輸入數(shù)據(jù),不能是空白,不然會(huì)出錯(cuò)的.
1(TAB), 要調(diào)用的表名.
2(DISPFILD), 要顯示表中的哪一些字段,如字段名和要顯示的字符不一樣用<分隔.比如某一個(gè)字段名為:IMG,但要在頁(yè)面上顯示為:圖片, 那么,就寫(xiě)為IMG<圖片,如果有多個(gè)字段,各字段間用“,”分隔,唉，老聲長(zhǎng)談.
3(FINDFILD), 要按哪些字段進(jìn)行查詢(xún),字段名和要顯示的字符間用<分隔.
4(PAGEN), 每頁(yè)顯示多少條記錄.
5(FH), 顯示的方向.當(dāng)為S時(shí)縱向顯示.為H時(shí)橫向顯示.
函數(shù)的返回值,當(dāng)沒(méi)有出錯(cuò)的時(shí)候,返回值為真,否則為假.
這個(gè)函數(shù)中沒(méi)有包括連接到數(shù)據(jù)庫(kù)的部分.所以要自己連接到庫(kù).另外,為了重復(fù)應(yīng)用.可以把這個(gè)函數(shù)專(zhuān)門(mén)用一個(gè)文件來(lái)保存,然后在需要的時(shí)候包含這個(gè)文件.
看下面的函數(shù): (不要不看完,最后我舉有應(yīng)用的例子)
<%
'以下定義一個(gè)顯示表格的函數(shù)TABDISP(),參數(shù)TAB,被顯示的表名,DISPFILD,要顯示的字段,FINDFILD,查詢(xún)字段,PAGEN,每頁(yè)顯示數(shù)量,fh,顯示的方向
'如顯示成功,返回值為真,不成功,返回值為假.
'多個(gè)字段間用,分隔
'查詢(xún)字段一定要包含在顯示字段中.
'如字段名與要顯示的名稱(chēng)不一樣,用<分隔,前面是字段名,后面是顯示的名字,而要進(jìn)行搜索的字段則一定要用<分隔要字段名和顯示字符
'FH顯示方向?yàn)?quot;H"時(shí)作橫向顯示,為"S"時(shí)作縱向顯示 區(qū)分大小寫(xiě)
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 "當(dāng)前欄目：<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='http://cfan.net.cn/info/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></td><td width='20%'> <input type='checkbox' name='find_fr' value='yes'>精確 <input type='submit' value='開(kāi)始' name='B_FIND'></td>"
Response.Write "</form> </tr>"
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 "經(jīng)搜索，"&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%'>總數(shù)很多,當(dāng)前顯示前"&ZS&"條，分"&PAGEZS&"頁(yè)，現(xiàn)在是第"&PAGESN&"頁(yè)</td>"
else
Response.Write"<tr><form method='POST' action='?"&urllr&"'><td width='54%'>一共"&ZS&"條，分"&PAGEZS&"頁(yè)，現(xiàn)在是第"&PAGESN&"頁(yè)</td>"
end if
Response.Write"<td width='11%' align='center'><a href='?PAGESN="&PAGESN-1&urllr&"'>上一頁(yè)</td>"
Response.Write"<td width='11%' align='center'><a href='?PAGESN="&PAGESN+1&urllr&"'>下一頁(yè)</td>"
Response.Write"<td width='24%' ALIGN='RIGHT'>跳轉(zhuǎn)到第 "
Response.Write"<input type='text' name='PAGESN' size='2'>頁(yè)<input type='submit' value='GO' name='B1'></td></form> "
Response.Write"</tr> "
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 ""
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 ""
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%'>總數(shù)很多,當(dāng)前顯示前"&ZS&"條，分"&PAGEZS&"頁(yè)，現(xiàn)在是第"&PAGESN&"頁(yè)</td>"
else
Response.Write"<tr><form method='POST' action='?"&urllr&"'><td width='54%'>一共"&ZS&"條，分"&PAGEZS&"頁(yè)，現(xiàn)在是第"&PAGESN&"頁(yè)</td>"
end if
Response.Write"<td width='11%' align='center'><a href='?PAGESN="&PAGESN-1&urllr&"'>上一頁(yè)</td>"
Response.Write"<td width='11%' align='center'><a href='?PAGESN="&PAGESN+1&urllr&"'>下一頁(yè)</td>"
Response.Write"<td width='24%' ALIGN='RIGHT'>跳轉(zhuǎn)到第 "
Response.Write"<input type='text' name='PAGESN' size='2'>頁(yè)<input type='submit' value='GO' name='B1'></td></form> "
Response.Write"</tr> "
else
Response.Write"沒(méi)有找到合適的記錄"
end if
if er() then
tabdisp=False
else
tabdisp=True
end if
END FUNCTION
Function Er()'錯(cuò)誤處理函數(shù)
If Err.Number = 0 Then
Er = False
Else
Err.Clear
Er = True
End If
End Function
%>
終于看完函數(shù)了....
各位有點(diǎn)累,其實(shí)仔不仔細(xì)看都沒(méi)有關(guān)系.反正只管調(diào)它就是了.下面舉一個(gè)應(yīng)用的例子.
首先, 我們把前面的函數(shù)就是<%和%>之間的部分保存到一個(gè)叫 TABDISP.ASP的文件中.
代碼如下:
顯示一個(gè)職式名冊(cè)表,表名: ZG
有ID 姓名 職務(wù) 職稱(chēng) TEL BP DZ(地址)幾個(gè)字段.
<%
。。。。。。
連接數(shù)據(jù)庫(kù)，此處略過(guò)，不寫(xiě)了。
%>
<!--#include file="TABDISP.asp"-->
<%
DISP="姓名,職務(wù),職稱(chēng),TEL<電話(huà),BP<傳呼,DZ<地址"
FIND="姓名<姓名,職務(wù)<職務(wù),DZ<地址"
PAGEN="15"
FH="H"
TAB="ZG"
IF NOT TABDISP(TAB,DISP,FIND,PAGEN,FH) THEN
response.write "出現(xiàn)錯(cuò)誤,"
END IF
SET CONN=NOTHING
%>
把上面的內(nèi)容隨便起個(gè)文件名,就一切OK.
范例程序及數(shù)據(jù)庫(kù)http://www.zydn.net/xxlr.asp?id=1906
另外, 阿余的站www.zydn.net有不少好文章給大家.阿余也在站上隨時(shí)準(zhǔn)備和和朋友交流.阿余的EMAIL:COOLKK@21CN.COM
還有啊,軟件世界竟然發(fā)了篇牛記的文章,說(shuō)程序員工資太高,阿余在站上也放了個(gè)論壇,大家可以一起到阿余的站上去罵死那個(gè)家伙.
|
