從數據庫中獲取與在不同的標籤

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"> 
    <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返回更多的領域，你的表將是錯誤的。

Answer 2

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