WebMaker让不会做WEB页面的新手一键做出漂亮的网页（一）

                 做这个是由于人类懒惰的因子的原因，有时候要做大量重复的工作，人就感觉不愉快！

于是逼迫我得想出懒人的法子来，我注意到许多大型网站都有连续可连接的图片URL

比如www.tom.com的娱乐写真
看

<BR><DIV align="center"><input type=image src=" http://img.ent.tom.com/images/zhuanti/chenhuilin/d/280.jpg" style="border: 12 ridge #FFCB68" width="600" height="450"></DIV>

http://img.ent.tom.com/images/zhuanti/chenhuilin/d/281.jpg这个URL就是“连续的”
于是我可以定义一个模版循环引用这个图片URL：
TextBox3.Text=" http://img.ent.tom.com/images/zhuanti/chenhuilin/d/"
TextBox4.Text=" http://img.ent.tom.com/images/zhuanti/chenhuilin/d/"
dim fullstr as String
        Dim sbStart As New System.Text.StringBuilder
        Dim sbEnd As String = "<TR align=middle><TD vAlign=top colSpan=4 height=5></TD></TR></TBODY></TABLE><TABLE cellSpacing=0 cellPadding=0 width=""100%"" border=0><TBODY>" & vbCrLf

        Dim i, j As Integer

        For i = 11 To 100

            sbStart.Append("<TD vAlign=top><TABLE cellSpacing=1 cellPadding=1 bgColor=#ff6699 border=0><TBODY><TR><TD bgColor=#ffffff><A href=""" & Me.TextBox4.Text & i & ".jpg" & """>")

            sbStart.Append("<IMG height=200 alt=""tip"" src=""" & Me.TextBox3.Text & i & ".jpg"" width=150 border=0></A></TD></TR></TBODY></TABLE></TD>" & vbCrLf)
        Next

 fullstr=sbStart.Append(sbEnd).ToString
 这个fullstr就是最后的HTML代码
原理就是这样

给个生成的简单例子效果