发布一个东西，大家帮着完善一下！
说明：
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 %>
[此贴子已经被作者于2005-6-8 13:24:06编辑过]
