澳门新葡萄京官网首页我的论坛源代码(十)

数据库显示程序,能调任意库,任意字段,多关键字搜索,自动分页.

reguse.inc.php处理注册用户时的信息

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

<?

1. 能显示指定的字段,当然,字段名和显示的文字可以不一样. 
2. 能同时按多个字段进行查询,支持模糊和精确两种查询方式. 
3. 有横向排列和纵向排列字段两种显示方式. 
4. 能自动分页. 
5. 能设定每页显示多少条记录.好啦,要求大至就是这样了.根据这个要求,阿余写了下面的函数. 
实际上,这里阿余写了两个函数.一个是TABDISP(),用于显示一个指定表中的内容.还有一个是ER()一个小小的错误处理函数. 
这个函数有5个参数(真够多的).并且各个参数都要输入数据,不能是空白,不然会出错的. 
1(TAB), 要调用的表名. 
2(DISPFILD), 要显示表中的哪一些字段,如字段名和要显示的字符不一样用<分隔.比如某一个字段名为:IMG,但要在页面上显示为:图片, 那么,就写为IMG<图片,如果有多个字段,各字段间用“,”分隔,唉,老声长谈. 
3(FINDFILD), 要按哪些字段进行查询,字段名和要显示的字符间用<分隔. 
4(PAGEN), 每页显示多少条记录. 
5(FH), 显示的方向.当为S时纵向显示.为H时横向显示. 
函数的返回值,当没有出错的时候,返回值为真,否则为假. 
这个函数中没有包括连接到数据库的部分.所以要自己连接到库.另外,为了重复应用.可以把这个函数专门用一个文件来保存,然后在需要的时候包含这个文件. 
看下面的函数: (不要不看完,最后我举有应用的例子) 

function regok($mess,$reginfo)       //记录成功后输出用户信息
{
echo “<table width=’70%’ border=’0′ cellspacing=’0′ cellpadding=’0′
bgcolor=’#000000′ align=’center’>”;
echo “<tr><td><table width=’100%’ border=’0′
cellspacing=’1′ cellpadding=’1′ align=’center’
bgcolor=’#eeeeee’><tr bgcolor=’#006699′><td
colspan=’4′><div align=’center’><font
color=’ffffff’>”.$mess.”</font></div></td></tr>”;
echo “<tr ><td width=’15%’ ><div
align=’left’>ID号:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[13].”</font></div></td>”;
echo “<td width=’15%’><div
align=’left’>用户:</div></td><td width=’35%’
><div align=’center’><font
color=’#FF0000′>”.$reginfo[0].”</div></td></tr>”;
echo “<tr ><td width=’15%’><div
align=’left’>密码:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[1].”</font></div></td>”;
echo “<td width=’15%’><div
align=’left’>主页:</div></td><td width=’35%’
><div align=’center’><font
color=’#FF0000′>”.$reginfo[9].”</div></td></tr>”;
echo “<tr ><td width=’15%’><div
align=’left’>邮箱:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[8].”</font></div></td>”;
echo “<td width=’15%’><div
align=’left’>oicq:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[3].”</div></td></tr>”;
echo “<tr ><td width=’15%’><div
align=’left’>昵称:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[2].”</font></div></td>”;
澳门新葡萄京官网首页 ,echo “<td width=’15%’><div
align=’left’>等级:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[11].”</div></td></tr>”;
echo “<tr ><td width=’15%’><div
align=’left’>性别:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[4].”</font></div></td>”;
echo “<td width=’15%’><div
align=’left’>年龄:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[5].”</div></td></tr>”;
echo “<tr ><td width=’15%’><div
align=’left’>职业:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[6].”</font></div></td>”;
echo “<td width=’15%’><div
align=’left’>来自:</div></td><td width=’35%’
><div align=’center’><font
color=’#FF0000′>”.$reginfo[7].”</div></td></tr>”;
echo “<tr ><td width=’15%’><div
align=’left’>信息保密:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[12].”</font></div></td>”;
echo “<td width=’15%’><div
align=’left’>签名:</div></td><td width=’35%’
><div align=’center’><font
color=’#FF0000′>”.$reginfo[10].”</div></td></tr>”;
echo “<tr ><td width=’15%’><div
align=’left’>邮件通知:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[18].”</font></div></td>”;
echo “<td width=’15%’><div
align=’left’>注册时间:</div></td><td width=’35%’
><div align=’center’><font
color=’#FF0000′>”.$reginfo[15].”</div></td></tr>”;
echo “<tr ><td width=’15%’><div
align=’left’>登录时间:</div></td><td
width=’35%’><div align=’center’><font
color=’#FF0000′>”.$reginfo[16].”</font></div></td>”;
echo “<td width=’15%’><div
align=’left’>头像:</div></td><td width=’35%’
><div align=’center’><img
src=’images/”.$reginfo[14].”.gif’></div></td></tr>”;
$reginfo=$reginfo[0];
echo “<tr bgcolor=’#006699′><td colspan=’4′><div
align=’center’><a
href=’reguse.php?action=dl&use=”.$reginfo.”‘>用户登录</a></div></td></tr>”;
echo “</table></td></tr></table>”;

<% 
‘以下定义一个显示表格的函数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 

     //检查信息并写入记录
function
reg($usename,$usepass,$usemail,$useweb,$useni,$useoicq,$usesex,$useage,$usezy,$useaddr,$useinf,$usety,$usebq,$useqm)
{
  if ($usename)     //如果有用户名传入则处理   用户注册模块
    {
      if(strlen($usename)>8) return 1;
      else if(strlen($usepass)>8) return 2;
      else if(strlen($useoicq)>12) return 3;
      else if(!uinfo($usepass,pass)) return 4;
      else if(!uinfo($usename,name)) return 5;
      else if(!uinfo($useoicq,oicq)) return 6;
      else if(!uinfo($usemail,mail)) return 7;
      else
        {
          if(!$useinf) $useinf=2;
          $query=”select * from useinfo where
usename='”.$usename.”‘”;  //是否已经存在用户
          $req=mysql_query($query);
          $useinfp=mysql_fetch_array($req);
          if ($useinfp[0]) return 8;
          else
            {
              $time=date(Y年n月j日G时i分);
              $useqm=nl2br($useqm);                                                                            //写入用户信息
              $query=”insert into useinfo
(usename,usepass,usemail,useweb,useni,useoicq,usesex,useage,usezy,useaddr,useinf,usety,usebq,useqm,useattr,regdate,enddate)
values
(‘”.$usename.”‘,'”.$usepass.”‘,'”.$usemail.”‘,'”.$useweb.”‘,'”.$useni.”‘,'”.$useoicq.”‘,'”.$usesex.”‘,'”.$useage.”‘,'”.$usezy.”‘,'”.$useaddr.”‘,'”.$useinf.”‘,'”.$usety.”‘,'”.$usebq.”‘,'”.$useqm.”‘,1,now(),'”.$time.”‘)”;
              $req=mysql_query($query);
              if ($req)
                 {
                 $query=”select * from useinfo where
usename='”.$usename.”‘”;  //取出用户信息,并传出用户端
                 $req=mysql_query($query);
                 $useinfo=mysql_fetch_array($req);
                 return $useinfo;
                 }
              else return 10;
            }
        }
        return 9;
    }
}

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 

function
usemess($mess,$usename,$usemail,$useweb,$useni,$useoicq,$useaddr,$useqm)      //信息输入表单
{
echo “<FORM METHOD=post>”;
echo “<table width=’90%’ border=’0′ cellspacing=’0′ cellpadding=’0′
bgcolor=’#000000′ align=’center’>”;
echo “<tr><td><table width=’100%’ border=’0′
cellspacing=’1′ cellpadding=’1′ align=’center’>”;
echo “<tr bgcolor=’#006699′><td colspan=’2′><font
color=’ffffff’><div align=’center’>狐网论坛用户注册—<font
color=’00ff00′>”.$mess.”</font></div></font></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’> 用 户 名:<font
color=’#FF0000′>八位,第一位必须是字母</FONT></div></td><td
width=’52%’><input onFocus=’this.select()’
style=’BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px dashed;
BORDER-LEFT: #000000 1px dashed; BORDER-RIGHT: #000000 1px dashed;
BORDER-TOP: #000000 1px dashed;’ type=’text’ name=’usename’ size=’30’
maxlength=’8′ value='”.$usename.”‘></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>密  码:<font
color=’#FF0000′>八位,数字和字母组合.</font></div></td><td
width=’52%’><input style=’BACKGROUND-COLOR: #ffffff;
BORDER-BOTTOM: #000000 1px dashed; BORDER-LEFT: #000000 1px dashed;
BORDER-RIGHT: #000000 1px dashed; BORDER-TOP: #000000 1px dashed;’
type=’password’ name=’usepass’ size=’30’
maxlength=’8′></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>电子信箱:<font
color=’#FF0000′>请填写真实的邮箱地址。</font></div></td><td
width=’52%’><input onFocus=’this.select()’
style=’BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px dashed;
BORDER-LEFT: #000000 1px dashed; BORDER-RIGHT: #000000 1px dashed;
BORDER-TOP: #000000 1px dashed;’ type=’text’ name=’usemail’ size=’50’
maxlength=’50’ value='”.$usemail.”‘></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>个人主页:</div></td><td
width=’52%’><div align=’left’><input onFocus=’this.select()’
style=’BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px dashed;
BORDER-LEFT: #000000 1px dashed; BORDER-RIGHT: #000000 1px dashed;
BORDER-TOP: #000000 1px dashed;’ type=’text’ name=’useweb’ size=’50’
maxlength=’50’
value='”.$useweb.”‘></div></td></tr>”;
echo “<tr bgcolor=’#006699′><td colspan=’2′><div
align=’center’><font
color=’#FFFFFF’>个人信息设定</font></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>你的昵称:</div></td><td
width=’52%’><div align=’left’><input onFocus=’this.select()’
style=’BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px dashed;
BORDER-LEFT: #000000 1px dashed; BORDER-RIGHT: #000000 1px dashed;
BORDER-TOP: #000000 1px dashed;’ type=’text’ name=’useni’ size=’30’
maxlength=’15’
value='”.$useni.”‘></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>OICQ:</div></td><td
width=’52%’><div align=’left’><input onFocus=’this.select()’
style=’BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px dashed;
BORDER-LEFT: #000000 1px dashed; BORDER-RIGHT: #000000 1px dashed;
BORDER-TOP: #000000 1px dashed;’ type=’text’ name=’useoicq’ size=’20’
maxlength=’20’
value='”.$useoicq.”‘></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>性  别:</div></td><td
width=’52%’><div align=’left’><select
onFocus=’this.select()’ style=’BACKGROUND-COLOR: #ffffff;
BORDER-BOTTOM: #000000 1px dashed; BORDER-LEFT: #000000 1px dashed;
BORDER-RIGHT: #000000 1px dashed; BORDER-TOP: #000000 1px dashed;’
name=’usesex’><option value=’1′
selected>我是男生</option><option
value=’0′>我是女生</option></select></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>年  龄:</div></td><td
width=’52%’><div align=’left’><select
onFocus=’this.select()’ style=’BACKGROUND-COLOR: #ffffff;
BORDER-BOTTOM: #000000 1px dashed; BORDER-LEFT: #000000 1px dashed;
BORDER-RIGHT: #000000 1px dashed; BORDER-TOP: #000000 1px dashed;’
name=’useage’><option
value=’14’>15岁以下</option><option value=’15’>15
岁</option><option value=’16’>16 岁</option><option
value=’17’>17 岁</option>”;
echo “<option value=’18’>18 岁</option><option
value=’19’>19 岁</option><option value=’20’ selected>20
岁</option><option value=’21’>21 岁</option><option
value=’22’>22 岁</option><option value=’23’>23
岁</option><option value=’24’>24 岁</option><option
value=’25’>25 岁</option><option value=’26’>26
岁</option><option value=’27’>27 岁</option><option
value=’28’>28 岁</option><option value=’29’>29
岁</option><option
value=’30’>30或以上</option></select></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>职  业:</div></td><td
width=’52%’><div align=’left’><select
onFocus=’this.select()’ style=’BACKGROUND-COLOR: #ffffff;
BORDER-BOTTOM: #000000 1px dashed; BORDER-LEFT: #000000 1px dashed;
BORDER-RIGHT: #000000 1px dashed; BORDER-TOP: #000000 1px dashed;’
name=’usezy’><option value=’5′
selected>我是学生</option><option
value=’1′>公务员</option><option
value=’2′>公司雇员</option><option
value=’3′>自由职业</option><option
value=’4′>无所事事</option><option
value=’5′>不告诉你</option></select></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>来自何方:</div></td><td
width=’52%’><div align=’left’><input onFocus=’this.select()’
style=’BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px dashed;
BORDER-LEFT: #000000 1px dashed; BORDER-RIGHT: #000000 1px dashed;
BORDER-TOP: #000000 1px dashed;’ type=’text’ name=’useaddr’ size=’50’
maxlength=’50’
value='”.$useaddr.”‘></div></td></tr>”;
echo “<tr bgcolor=’#006699′><td colspan=’2′><div
align=’left’></div><div align=’center’><font
color=’#FFFFFF’>参数设定</font></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>是否充许他人查看你的信息:</div></td><td
width=’52%’><div align=’left’><input type=’radio’
name=’useinf’ value=’2′>否  <input type=’radio’ name=’useinf2′
value=’1′ checked>是</div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’
valign=’top’><div
align=’left’>个人签名档:</div></td><td
width=’52%’><div align=’left’><textarea
onFocus=’this.select()’ style=’BACKGROUND-COLOR: #ffffff;
BORDER-BOTTOM: #000000 1px dashed; BORDER-LEFT: #000000 1px dashed;
BORDER-RIGHT: #000000 1px dashed; BORDER-TOP: #000000 1px dashed;’
name=’useqm’ cols=’40’ wrap=’VIRTUAL’
rows=’5′>”.$useqm.”</textarea></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td width=’40%’><div
align=’left’>是否允许版主或管理员给你发邮件通知:</div></td><td
width=’52%’><div align=’left’><input type=’radio’
name=’usety’ value=’2′>否  <input type=’radio’ name=’usee2′
value=’1′ checked>是</div></td></tr>”;
echo “<tr bgcolor=’#006699′><td colspan=’2′><div
align=’center’><font
color=’#FFFFFF’>头像设定</font></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td colspan=’2′><div
align=’center’><input type=’radio’ name=’bq[0]’
value=’a’><img src=’images/a.gif’ width=’15’ height=’15’
checked>  <input type=’radio’ name=’bq[1]’ value=’1′><img
src=’images/1.gif’ width=’15’ height=’15’>  <input type=’radio’
name=’bq[2]’ value=’2′><img src=’images/2.gif’ width=’15’
height=’15’>  <input type=’radio’ name=’bq[3]’
value=’3′><img src=’images/3.gif’ width=’15’ height=’15’>
 <input type=’radio’ name=’ba[4]’ value=’4′><img
src=’images/4.gif’ width=’15’ height=’15’>  ”;
echo “<input type=’radio’ name=’bq[5]’ value=’5′><img
src=’images/5.gif’ width=’15’ height=’15’>  <input type=’radio’
name=’bq[6]’ value=’6′><img src=’images/6.gif’ width=’15’
height=’15’>  <input type=’radio’ name=’ba7′
value='[7]’><img src=’images/7.gif’ width=’15’ height=’15’>
 <input type=’radio’ name=’ba[8]’ value=’8′><img
src=’images/8.gif’ width=’15’ height=’15’>  <input type=’radio’
name=’ba[9]’ value=’9′><img src=’images/9.gif’ width=’15’
height=’15’></div></td></tr>”;
echo “<tr bgcolor=’#eeeeee’><td
colspan=’2′></td></tr>”;
echo “</table></td></tr></table>”;
echo “<div align=’center’><INPUT TYPE=’HIDDEN’ NAME=’action’
VALUE=’add’><INPUT class=’bott’ TYPE=’SUBMIT’ name=’submit’
VALUE=’提 交!’><INPUT class=bott TYPE=’RESET’ NAME=’Reset’
VALUE=’重 填’></form></div>”;
}
function dlmes($mess)
{
echo “<table width=’50%’ border=’0′ cellspacing=’0′ cellpadding=’0′
bgcolor=’#000000′ align=’center’>”;
echo “<tr><td>”;
echo “<table width=’100%’ border=’0′ cellspacing=’1′ cellpadding=’1′
bgcolor=’#eeeeee’><form method=’post’>”;
echo “<tr bgcolor=’#009999′><td><div
align=’center’><font
color=’#FFFFFF’>”.$mess.”</font></div></td></tr>”;
echo “<tr><td><div align=’center’>用户名:<input
type=’text’ name=’uname’></div></td></tr>”;
echo “<tr><td><div align=’center’>密 码:<input
type=’password’ name=’upass’></div></td></tr>”;
echo “<tr><td><div align=’center’><input
type=’submit’ name=’Submit’
value=’确定’></div></td></tr>”;
echo “<tr><td><input type=’hidden’ name=’action’
value=’dl’></td></tr>”;
echo “<tr><td><div align=’center’><a
href=’useinfo.php?action=pass’>[忘记密码]</a>     <a
href=’reguse.php?action=xy’>[我要注册]</a></div></td></tr>”;
echo “<tr bgcolor=’#009999′><td
height=’20’></td></tr>”;
echo
“</form></table></td></tr></table>”;
}
?> 

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. 

范例程序及数据库 
另外, 阿余的站www.zydn.net有不少好文章给大家.阿余也在站上随时准备和和朋友交流.阿余的EMAIL:COOLKK@21CN.COM 
还有啊,软件世界竟然发了篇牛记的文章,说程序员工资太高,阿余在站上也放了个论坛,大家可以一起到阿余的站上去骂死那个家伙.

发表评论

电子邮件地址不会被公开。 必填项已用*标注