<%
' 假设已连接数据库并获取记录集
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "你的数据库连接字符串"
Set rs = conn.Execute("SELECT id, name, age FROM users")
' 初始化行计数器
i = 0
%>
ID
姓名
年龄
<% Do While Not rs.EOF %>
">
<%= rs("id") %>
<%= rs("name") %>
<%= rs("age") %>
<%
i = i + 1 ' 行计数器自增
rs.MoveNext
Loop
%>
<%
' 关闭连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<%
Dim i, numRows
numRows = 10 ' 假设有10行数据
For i = 1 To numRows
If i Mod 2 = 0 Then
Response.Write("
行" & i & "
")
Else
Response.Write("
行" & i & "
")
End If
Next
%>
方法2:使用内联样式和ASP
如果你不想使用外部或内部的CSS文件,可以直接在
标签中使用内联样式 。例如:
<%
Dim i, numRows, rowColor
numRows = 10 ' 假设有10行数据
For i = 1 To numRows
If i Mod 2 = 0 Then
rowColor = "background-color: #ffffff;"
Else
rowColor = "background-color: #f2f2f2;"
End If
Response.Write("