我的数据显示例子
刘德华 男 梅艳芳 女 陈明 女
张三 男 李四 女 王五五 男
何仙姑 女 王八 男 李洞滨 男
这里我有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> </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>"
%>
------最佳解决方案--------------------------------------------------------
<%
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> </td><td> </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>"%>
------其他解决方案--------------------------------------------------------