页面代码

test.js代码

function test() {
 var v1 = getRadioValue("rdg1");
 var v2 = getRadioValue("rdg2");
 if(v1 == "") {
  alert("请选择1");
  document.getElementById("ie1").focus();
  return false;
 }
 if(v2 == "") {
  alert("请选择2");
  document.getElementById("ie2").focus();
  return false;
 }
 return true;
}

function getRadioValue(name) {
 var rdg = document.getElementsByName(name)
 for (var i=0;i<rdg.length;i++){ //遍历Radio
     if(rdg[i].checked){
  return rdg[i].value;
     }
 }
 return "";
}

这段代码要加上，我测试没问题。

Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If

 粘贴代码的时候，一些代码丢失了，改一下

Select Case e.Path
    Case "test.htm" \'首页
        Dim wb As New weui
        wb.AddForm("","form1","test.htm").attribute = "onsubmit=\'return test()\'"
        With wb.AddRadioGroup("form1","rdg1","浏览器")
            .Add("ie1","Intenet Explorer")
            .Add("gc1","Google Chorme") \'默认勾选
            .Add("ff1","FireFox")
        
        End With
        With wb.AddRadioGroup("form1","rdg2","浏览器")
            .Add("ie2","Intenet Explorer")
            .Add("gc2","Google Chorme") \'默认勾选
            .Add("ff2","FireFox")
        
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        wb.AppendHTML("<script src=\'./lib/test.js\'></script>") \'引入脚本文件
        e.WriteString(wb.Build) \'生成网页
End Select