从数据库中获取并在不同的标签中显示它们

Question

我有一个数据库，我有这个代码从它获取信息，并显示在一个表

   <table border="1">
   <tr><th>ID</th><th>Name</th><th>Age</th><th>Gender</th><th>City</th></tr>
   <%do until rs.EOF%>
   <tr>
 <%for each x in rs.Fields%>
 <%IF (x.value="ID") THEN%>
 <td><a href="form7.asp?id=1">
 <%Response.Write(x.value)%>
 </td>
 <%ELSE%> 
 <td>
 <%Response.Write(x.value)%><a/>
 </td>
 <%END IF%>
   <%next%>
   </tr>
   <%
   rs.MoveNext
   loop
   %>
   </table>
   <%
   rs.close
   conn.close
   %>

这将把所有的信息显示为超链接我想要的只是其中一个作为链接显示其余的应该是普通文本

例如

，我只想将id作为链接标签，其余的我想将其显示为普通标签

怎么做?

Answer 1

<table border='1' cellspacing='2' cellpadding='2'>
    <tr>
        <th>ID</th>
        <th>Name</th>
        <th align=right>Age</th>
        <th>Gender</th>
        <th>City</th>
    </tr>
    <%
    do until rs.EOF
        response.write("<tr>") & vbCrLf
        response.write("<td>")
        response.write("<a href='form7.asp?id=" & rs("ID") & "'>")
        response.Write rs("ID")
        response.Write ("</a>")
        response.Write ("</td>")
        '======================
        'NOTE: I'm breaking these next 4 columns down instead of using your "for" loop
        'REASON: Inevitably you will want to format these differently from each other
        'See the "age" column as an example.
        'Also: easier to understand what is going on
        '======================
        response.write("<td>")
        response.Write rs("Name")
        response.Write ("</td>")
        response.write("<td align=right>")
        response.Write rs("Age")
        response.Write ("</td>")
        response.write("<td>")
        response.Write rs("Gender")
        response.Write ("</td>")
        response.write("<td>")
        response.Write rs("City")
        response.Write ("</td>")
        response.write("</tr>") & vbCrLf
        rs.MoveNext
        loop
        rs.close
        set rs=nothing
    %>
</table>

Answer 2

你的代码太混乱了。

这就是你需要的。

<table border="1">
    <tr>
        <th>ID</th>
        <th>Name</th>
        <th>Age</th>
        <th>Gender</th>
        <th>City</th>
    </tr>
    <%do until rs.EOF%>
        <tr>
            <%for each x in rs.Fields%>
                <%IF (x.value="ID") THEN%>
                    <td>
                        <a href="form7.asp?id=<%=rs(x.value)%>">
                            <%Response.Write rs(x.value)%>
                        </a>
                    </td>
                <%ELSE%> 
                    <td>
                        <%Response.Write rs(x.value)%>
                    </td>
                <%END IF%>
            <%next%>
        </tr>
    <%
        rs.MoveNext
        loop
    %>
</table>

但是，如果您的查询返回的字段多于您的table head，那么您的表将是错误的。