asp 显示数据内容重复数量
我请大家帮我写一下代码数据库名。abc.mdbid姓名电话地址1王一1234562张三1234563王一1254554王一1265365张三25435256李四25812...
我请大家帮我写一下代码
数据库名。abc.mdb
id 姓名 电话 地址
1 王一 123 456
2 张三 123 456
3 王一 125 455
4 王一 126 536
5 张三 254 3525
6 李四 258 125
----------
我想显示页面内容是
1 王一 出显 3次
2 张三 出显 2次
3 李四 出显 1次
非常感谢 lostexile 你的信息让我学到了很多。不过我要把分给陈半仙,我想要的就是这个。 展开
数据库名。abc.mdb
id 姓名 电话 地址
1 王一 123 456
2 张三 123 456
3 王一 125 455
4 王一 126 536
5 张三 254 3525
6 李四 258 125
----------
我想显示页面内容是
1 王一 出显 3次
2 张三 出显 2次
3 李四 出显 1次
非常感谢 lostexile 你的信息让我学到了很多。不过我要把分给陈半仙,我想要的就是这个。 展开
3个回答
展开全部
试试这个(将[table]改为你的数据库中的表名)
<%
strConn="DBQ="+server.mappath("abc.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.Open strConn
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open "select 姓名 from [table] group by 姓名",conn,1,1
i=1
do while not rs1.eof
rs2=conn.execute("select count(*) from [table] where 姓名='"&rs1("姓名")&"'")
response.write i&" "&rs1("姓名")&" 出现 "&rs2(0)&"次<BR>"
rs1.movenext
i=i+1
loop
rs1.close
set rs1=nothing
%>
<%
strConn="DBQ="+server.mappath("abc.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.Open strConn
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open "select 姓名 from [table] group by 姓名",conn,1,1
i=1
do while not rs1.eof
rs2=conn.execute("select count(*) from [table] where 姓名='"&rs1("姓名")&"'")
response.write i&" "&rs1("姓名")&" 出现 "&rs2(0)&"次<BR>"
rs1.movenext
i=i+1
loop
rs1.close
set rs1=nothing
%>
展开全部
Dim conn,strConn
Set rs=Server.CreateObject("ADODB.Recordset")
Set rst=Server.CreateObject("ADODB.Recordset")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("about.mdb")
conn.Open strConn
sql="select user_name from user GROUP BY user_name"
rs.open sql,conn,1,1
if rs.recordcount > 0 then
while not rs.eof
sql = "select user_name from user where user_name='"&rs("user_name")&"'"
rst.open sql,conn,1,1
response.write rs("user_name")&" 出现 "&rst.recordcount&"次"
rst.close
rs.movenext
wend
end if
rs.close
Set rs=Server.CreateObject("ADODB.Recordset")
Set rst=Server.CreateObject("ADODB.Recordset")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("about.mdb")
conn.Open strConn
sql="select user_name from user GROUP BY user_name"
rs.open sql,conn,1,1
if rs.recordcount > 0 then
while not rs.eof
sql = "select user_name from user where user_name='"&rs("user_name")&"'"
rst.open sql,conn,1,1
response.write rs("user_name")&" 出现 "&rst.recordcount&"次"
rst.close
rs.movenext
wend
end if
rs.close
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个起始是数据库语言知识
和asp本身没有太大的关系
正好我今天早上刚看到一个
和你分享一下
http://ajxfxb.blog.163.com/blog/static/56675086201032115942127/?followBlog
是我的博友
和asp本身没有太大的关系
正好我今天早上刚看到一个
和你分享一下
http://ajxfxb.blog.163.com/blog/static/56675086201032115942127/?followBlog
是我的博友
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询