If e.Host = "okokqq.com" Or e.Host = "www.okokqq.com" Or e.Host = "127.0.0.1" Then

    Dim wb As new WeUI

    Select Case e.path

        Case ""

            With wb.AddArticle("","ar13")

                .AddImage("./images/sy.jpg")

            End With

            

            With wb.AddButtonGroup("","btngrp1")

                .Add("btn4", "访问主页", "", "qq.htm") \'超链接

                

            End With

            e.WriteString(wb.Build) \'生成网页

        Case "qq.htm"

            With wb.AddTabBar("", "tb1",1)

                .AddPage("page1","养猪","./images/pig.png")

                .AddPage("page2","养鸡","./images/chick.jpg")

                .AddPage("page3","在线帮助","./images/kplr.ico")

                .AddPage("page4","联系我们","./images/huaruizj.ico")

            End With

            e.WriteString(wb.Build)

    End Select

    

End If