页面代码：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='icon' href='./favicon.ico' Type='image/x-icon' />") 'favicon.ico,已经放到web文件夹了
wb.AddForm("","form1","shengfen.htm")
wb.AddInputGroup("form1","ipg1","华东地区")
With wb.AddButtonGroup("form1","btg1", False)
.Add("btn1", "上海市","","/index.htm?chakshi=上海市").Kind = 1 '.Add("btn1" & bianh, "查看TA的资料", "","/details.htm?bh=" & bianh)
.Add("btn2", "江苏省","","/cs_jiangsu.htm").Kind = 1
.Add("btn3", "浙江省","","/cs_zhejiang.htm").Kind = 1
End With
With wb.AddButtonGroup("form1","btg2", False)
.Add("btn4", "安徽省","","/cs_anhui.htm").Kind = 1
.Add("btn5", "福建省","","/cs_fujian.htm").Kind = 1
.Add("btn6", "江西省","","/cs_jiangxi.htm").Kind = 1
End With
With wb.AddButtonGroup("form1","btg3", False)
.Add("btn7", "山东省","","/cs_shandong.htm").Kind = 1 ’为了保证与上面按钮宽度一致，设置了下面2个空按钮，但是进入页面有时候卡住不动，这样用行么？
.Add("btn8", "").Kind = 1
.Add("btn9", "").Kind = 1
End With
e.WriteString(wb.Build) '生成网页
这是反应特慢的截图：
此主题相关图片如下：qq图片201812291008244444444.png
这是正常的截图，.ico是灰色的
此主题相关图片如下：qq图片20181229101216666.png
这是服务器端.icoweb根目录文件夹截图：
此主题相关图片如下：未命名2.jpg
[此贴子已经被作者于2019/1/22 12:33:11编辑过]
加好友 
发短信
Post By：2018/12/29 10:05:00 [只看该作者]
