后台VB:
If Not newTable Is Nothing And newTable.Rows.Count > 0 Then
Dim str As StringBuilder = New StringBuilder()
str.Append("<table border='1' cellpadding='0' cellspacing='0' class='tbl' style ='text-align :center '>")
For i = 0 To newTable.Rows.Count - 1
If i Mod 3 = 0 Then
str.Append("<tr>")
End If
Dim path As String = newTable.Rows(i)(2).ToString.Replace("~", "..")
str.Append("<td>")
str.Append("<table border='0' cellpadding='0' cellspacing='0' width='220' class='tbl' style ='text-align :center '>")
str.Append("<tr>")
str.Append("<td style='height :80px; text-align :center '>")
str.Append("<input type ='image' src ='..\image\czuft.jpg' onclick ='' style ='height:56px;width :112px'/>")
str.Append("</td>")
str.Append("</tr>")
str.Append("<tr>")
str.Append("<td style='height :140px; text-align :center;'>")
str.Append("<input type ='image' src ='" & path & "' onclick ='' style =' height:112px;width :80px' />")
str.Append("</td>")
str.Append("</tr>")
str.Append("<tr>")
str.Append("<td style ='height :30px;font-weight :bold'>" & newTable.Rows(i)(1).ToString() & "</td>")
str.Append("</tr>")
str.Append("<tr>")
str.Append("<td style ='height :30px;font-weight :bold'>" & newTable.Rows(i)(3).ToString() & "</td>")
str.Append("</tr>")
str.Append("<tr>")
str.Append("<td style='height :40px; text-align :right; padding-right :10px;font-weight:bold'>NO." & newTable.Rows(i)(0).ToString() & "</td>")
str.Append("</tr>")
str.Append("</table>")
str.Append("</td>")
If i Mod 3 = 2 Then
str.Append("</tr>")
ElseIf i = newTable.Rows.Count - 1 Then
str.Append("</tr>")
End If Next
str.Append("</table>")
Me.Literal1.Text = str.ToString()
Else
End If
前台aspx:
<div runat ="server" id ="divIamge" style ="width :660px;text-align:center; padding-top:20px; padding-left :300px ">
<asp:Literal ID="Literal1" runat ="server" Text ="XXXX" ></asp:Literal>
</div>