62,072
社区成员
发帖
与我相关
我的任务
分享
<html>
<body>
<table>
<%
Dim myConn As New SqlClient.SqlConnection(connectionstring)
myConn.Open()
Dim strsql as string="select * from tableName"
Dim myds As New DataSet
Dim mySqlda As New SqlClient.SqlDataAdapter(strsql, myConn)
mySqlda.Fill(myds)
mySqlda.Dispose()
myConn.Close
myConn.Dispose()
for xx as integer=0 to ds.tables(0).rows.count
%>
<tr><td><%=ds.tables(0).rows(xx).item("字段名")%></td></tr>
<%
next
ds.dispose
ds=nothing
%>
</table>
</body>
</html>