日期:2014-05-17  浏览次数:20476 次

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>"%> 

-----