ASP数据库列表显示数据程序

2012-12-22

ASP数据库列表显示数据程序求助我的数据显示例子刘德华男梅艳芳女陈明女张三男李四女王五五男何仙姑女

ASP数据库列表显示数据程序求助
我的数据显示例子
刘德华男     梅艳芳女     陈明   女
张三   男     李四   女     王五五男
何仙姑女     王八   男     李洞滨男

这里我有2个问题要向高人请教，希望高人详细回答，刚接触这玩意，自己摸索比全天还难，动不动就出错，实在痛苦啊。
1：怎样给显示的人物名字加链接
2：如果我想只显示男的，应该加写什么代码

我的代码如下：高人帮帮改改把。

<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("db/data.mdb")
set rs=conn.Execute("Select * from cm100") 
Response.Write "<table border=1>"
While Not rs.EOF
 Response.Write "<tr>"
 For i = 1 To 3
   If rs.EOf Then 
   Response.Write "<td>&nbsp;</td><td>&nbsp;</td>"
   Else
   Response.Write "<td>" & rs("mingcheng") & "</td>"  //应该怎样给显示的名字加链接
   Response.Write "<td>" & rs("xingbie") & "</td>" 
   rs.MoveNext
   End If

  Next
Response.Write "</tr>"
Wend 
Response.Write "</table>"
%>

[最优解释]
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("db/data.mdb")
set rs=conn.Execute("Select * from cm100 where xingbie like '男'")
Response.Write "<table border=1>"
While Not rs.EOF
Response.Write "<tr>"
For i = 1 To 4
   If rs.EOf Then
   Response.Write "<td></td><td></td>"
   Else
Response.Write "<td><a href='www。baidu.com' >" & rs("bbs_mingcheng") & "</a></td>"
   rs.MoveNext
   End If

  Next
Response.Write "</tr>"
Wend
Response.Write "</table>"
%>
[其他解释]


5678910111213141516171819202122 

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open Server.MapPath("db/data.mdb")set rs=conn.Execute("Select * from cm100 where sex='男'")//这里加一个取数据条件过滤即可。 Response.Write "<table border=1>"While Not rs.EOF Response.Write "<tr>" For i = 1 To 3   If rs.EOf Then    Response.Write "<td>&nbsp;</td><td>&nbsp;</td>"   Else   Response.Write "<td><a href='要跳到的地址'>" & rs("mingcheng") & "</a></td>"  //应该怎样给显示的名字加链接   Response.Write "<td>" & rs("xingbie") & "</td>"    rs.MoveNext   End If   NextResponse.Write "</tr>"Wend Response.Write "</table>"%>

------其他解决方案--------------------

嗯，这样的确很痛苦，因为你没有数据库开发经验，建议你先抽空学一下数据库，大休下学习一下，然后，再学习一下HTML标签之类的，磨刀不误功啊，先静心下来，各一功破，再统一进行开发
[其他解释]
第一个问题：
如果你是用的ASP .NET 实现的，你可以这样实现，你用的数据控件GridView 绑定数据库，在GridView 中你添加一列为 HyperLinkFied,在数据属性中，DataNavigateUrlFields 后面写上数据库字段的名字，DataNavigateUrlFormatString后面写上调转的页，DataTextField 后面写上数据库字段的名字。这样就能实习名字上的跳转。
第二个问题：
查询数据库语句，select * from table where sex ='男'

希望对你有帮助
[其他解释]
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("db/data.mdb")
set rs=conn.Execute("Select * from cm100") //加什么代码能筛选出字段"xingbie" 中的男
Response.Write "<table border=1>"
While Not rs.EOF
Response.Write "<tr>"
For i = 1 To 3
   If rs.EOf Then
   Response.Write "<td> </td><td> </td>"
   Else
   Response.Write "<td>" & rs("mingcheng") & "</td>" //应该怎样给显示的名字加链接
   Response.Write "<td>" & rs("xingbie") & "</td>"
   rs.MoveNext
   End If

  Next
Response.Write "</tr>"
Wend
Response.Write "</table>"
%>

我现在学的是DW软件vbscript做网站，代码基本看不明白，只要用手编写代码就白瞎，老是试出错，DW ASP直接的查询，然后把数据绑定到页面重复区域，可是一行只能显示一条数据，我想显示3条，
我以前的提问孟子E章回答如上代码，可以显示3条，如果要做个筛选加什么代码，
现在主要问连接怎么弄，我是这么做的：Response.Write "<td>"<a href="网址"> & rs("mingcheng") & </a>"</td>"这么加出错。
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束

希望有人能帮我编辑一下，初学遇到瓶颈好几个月了，来个好人，感激不尽。
[其他解释]

引用:

C/C++ code

1234

5678910111213141516171819202122 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0"conn.Open Server.MapPath("db/data.mdb")set rs=co……

非常感谢你的回答按你的方法出错了不知道什么原因
[其他解释]
这2个问题已经解决了，谢谢各位的帮助。

热点排行

asp.net

ASP数据库列表显示数据程序