http：Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","自动输入")
With .AddSelect("province","省市","|"+DataTables("行政区域").GetComboListString("省市"))
.Attribute = """
End With
With .AddSelect("county","县","")
.Attribute = "" '调用js函数
End With
.AddInput("areacode","区号","text")
.AddInput("postcode","邮编","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script src='./lib/ajaxform3.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Case "getCounties.htm" '根据输入的省,获取县市列表
Dim pps As String = DataTables("行政区域").GetComboListString("县市","省市='" & e.Values("province") & "'")
e.WriteString("|" & pps)
Case "getCodes.htm" '根据输入的省和县,获取区号有邮编
Dim dr As DataRow = DataTables("行政区域").Find("省市='" & e.Values("province") & "' and 县市='" & e.values("county") & "'")
If dr IsNot Nothing Then
e.WriteString(dr("区号") & "|" & dr("邮编"))
End If
End Select
js：
function setCodes(){
var result= submitAjaxFileds('getCodes.htm','','province','county',false);
if(result){
var vals=result.split("|");
if(vals.length==2){
document.getElementById("areacode").value=vals[0];
document.getElementById("postcode").value=vals[1];
}
}
}
[此贴子已经被作者于2020/10/7 11:52:33编辑过]
加好友 
发短信
Post By：2020/10/7 11:40:00 [只看该作者]
