
2个回答
展开全部
<%
Dim strConnect = "SqlConnection写到这里"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect
Dim sql = "select col1,col2,col3,col4 from table";
set rs = Conn.execute(sql)
%>
<form id="frm" method="post">
<table border="0">
<tr>
<th>列1</th>
<th>列2</th>
<th>列3</th>
<th>列4</th>
</tr>
<!--将查询出来的数据写入到画面中,生成LIST表-->
<%
If Not rs.eof then
Do While NOT Rs.eof
%>
<tr>
<td><%=rs("rs1")%></td>
<td><%=rs("rs2")%></td>
<td><%=rs("rs3")%></td>
<td><%=rs("rs4")%></td>
</tr>
<%
rs.MoveNext
Loop
End if
%>
</table>
</form>
Dim strConnect = "SqlConnection写到这里"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect
Dim sql = "select col1,col2,col3,col4 from table";
set rs = Conn.execute(sql)
%>
<form id="frm" method="post">
<table border="0">
<tr>
<th>列1</th>
<th>列2</th>
<th>列3</th>
<th>列4</th>
</tr>
<!--将查询出来的数据写入到画面中,生成LIST表-->
<%
If Not rs.eof then
Do While NOT Rs.eof
%>
<tr>
<td><%=rs("rs1")%></td>
<td><%=rs("rs2")%></td>
<td><%=rs("rs3")%></td>
<td><%=rs("rs4")%></td>
</tr>
<%
rs.MoveNext
Loop
End if
%>
</table>
</form>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询