主题：执行网页代码，js，alert("OK");不显示

 你贴出的代码没有问题。

 请确认你的js文件没有其余代码。

 你要学会用浏览器调试啊，浏览器提示什么错误？

 我这样测试没问题

         Dim wb As New weui
        With wb.AddTabBar("", "tb1",0)                            '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
            .AddButton("bt1","首页","./images/a.png","/index.htm")
            .AddButton("bt2","设置","./images/b.png","/per_chakanshezhi.htm")
            .Addpage("bt3","当前","./images/c.png")
            .AddButton("bt4","我的","./images/d.png","/personal.htm")
            '.Attribute = "style='height:55px'"
        End With
        wb.AddTopTips("bt3","toptip1","") '用于显示动态错误提示
        With wb.AddArticle("bt3","ar1")
            .AddImage("./images/langwo/logo1.jpg")
            .Attribute = "style='padding:0em;'"
        End With
        wb.AddForm("bt3","form1","per_quyu.htm").Attribute="onsubmit='return validit_per_quyu()'"
        With wb.AddInputGroup("form1","ipg1","所在区域")
            With .AddSelect("szs","所在省","|123|3434")
            End With
        End With
        With wb.AddButtonGroup("form1","btg2",True)
            .Add("btn1", "确定","submit")
        End With
        wb.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页