|
|
|
说明： tname 是要显示的名称，用"|"分隔 如: "标题|发表时间" ttype 是数据库的字段，用"|"分隔，如"title|posttime", 如果调出的字段需要链接，如title,字段所要的链接是look.asp?id=4， 则"title$look.asp?id=|posttime" table 是数据库的表名，如："bbs" usl 是当前页面的路径，如调用面是index.asp，而url为:"index.asp?" action 是弹出页的路径，如"add.asp" width 是弹出页的宽度，如“400” height 是弹出页的高度，如"300" sessionname 是管理员登录所设的session,如session("admin") sessionpx 是帐号级别，必须是数字 使用：<% page=request.querystring("page") '分页会用到page，如果没有这句就报错！ if page="" then page=1 tname="帐号|QQ|电子邮件|主页|积分|登录次数|注册时间" ttype="uname$user.asp?username=|qq|email$mailt|url$|jf|dl|atime" call showrd(tname,ttype,"user","?action="&action&"&","reg.asp","500","400",session("qx"),2) %> 函数： <% '通用记录显示函数 '作者 无根泉 '最后更新2005-6-7 '功能：支持access,ms sql server,数据库， '自定义显示数据表的记录，自定义链接字段、格式，分页显示记录，管理权限识别， '自定义文字说明，字段显示...... sub showrd(tname,ttype,table,url,action,width,height,sessionname,sessionqx) if width="" then width="400" if height="" then height="300" set rs=server.CreateObject("adodb.recordset") sql="select * from "&table&"" rs.pagesize=20 rs.open sql,conn,3,2 if rs.eof then %> <table width="740" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="30"><center> 当前没有数据！[<a href="#" onClick="open('<%= action %>?action=add','','width=<%=width %>,height=<%= height %>')">添加版块</a>] </center></td> </tr> </table> <% else ipage=0 if rs.pagecount<page then page=rs.pagecount rs.absolutepage=page %> <table width="740" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#888888" style="border-left:0px; "> <tr bgcolor="#BDCBDE"> <td width="5%" height="30"><center> <strong>编号</strong> </center></td> <% tn=split(tname,"|") for tn1=0 to ubound(tn) %> <td width="477"><center> <strong><%= tn(tn1) %></strong> </center></td> <% next %> <% If sessionname<>"" or isempty(sessionname)=false Then if sessionname>sessionqx then%> <td width="15%"><center> <strong>操作</strong> </center></td> <% end if end if %> </tr> <% do while not rs.eof and ipage<rs.pagesize if page=1 then bh=(ipage+1) else bh=(page-1)*rs.pagesize+(ipage+1) end if %> <tr bgcolor="#BDCBDE"> <td height="26"> <%=bh %></td> <% tty=split(ttype,"|") for tt1=0 to ubound(tty) tnm=tty(tt1)%> <td><% if instr(tnm,"$")=0 then response.Write rs(tnm) else u1=split(tnm,"$") if instr(u1(1),"id=")<>0 then response.Write "<a href="&u1(1)&rs(0)&" target='_blank'>"&rs(u1(0))&"</a>" else response.Write "<a href="&u1(1)&rs(u1(0))&" target='_blank'>"&rs(u1(0))&"</a>" end if end if%> </td> <% next %> <% If sessionname<>"" or isempty(sessionname)=false Then if sessionname>sessionqx then%> <td><center> [<a href="#" onClick="open('<%= action %>?action=add','','width=<%=width %>,height=<%=height %>')">添加</a>][<a href="#" onClick="open('<%= action %>?action=edit&id=<%= rs(0) %>','','width=<%=width %>,height=<%=height %>')">修改</a>][<a href="#" onClick="open('<%= action %>?action=del&id=<%= rs(0) %>','','width=200,height=10')">删除</a>] </center></td> <% end if end if %> </tr> <% ipage=ipage+1 rs.movenext loop %> <tr bgcolor="#BDCBDE"> <td height="24" colspan="<%=tt1+3 %>"> <% call showpage(rs.recordcount,rs.pagesize,page,url)%></td> </tr> <% end if rs.close set rs=nothing%> </table> <% end sub %> |
|
IP卡
狗仔卡
发表于 2010-1-18 02:39:05
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2010-3-11 06:05:04