Dim a, b As Integer
Response.Write("<br>")
Response.Write("<br>")
Response.Write("<br>")
Response.Write("<br>")
Response.Write("<br>")
Response.Write("<br>")
Response.Write("<br>")
Response.Write("</Tr>")
For a = 0 To mytable2.Rows.Count - 1
Response.Write("<Tr>")
For b = 0 To mytable2.Columns.Count - 1
If b = 0 Then
name = mytable2.Rows(a).Item(b)
heaurl = "tubiao.aspx?name=" & mytable2.Rows(a).Item(b)
Response.Write("<Td>")
Response.Write("<a href=" + heaurl + "> " + mytable2.Rows(a).Item(b) + "</a>")
Response.Write("</Td>")
Else
Response.Write("<Td>")
Response.Write(mytable2.Rows(a).Item(b))
Response.Write("</Td>")
End If
Next
Response.Write("</Tr>")
Next
Response.Write("</Table>")