定义js文件，如果名称ajaxform.js，放入d:\web\lib\ajaxform.js
function setCodes(){
var result= submitAjaxFileds('test2.htm','','申请部门',false);
if(result){
document.getElementById("我的部门").value=result;
}
}
HttpRequest代码
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
Vars.Add("bmmc",Gettype(String))
Select Case e.Path
Case "test.htm",""
Dim wb As New weui
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>")
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","")
.AddInput("申请部门","申请部门","text").Attribute =""
.AddInput("我的部门","我的部门","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Case "test2.htm"
Vars("bmmc") = e.PostValues("申请部门")
MessageBox.Show(Vars("bmmc"))
e.WriteString(Vars("bmmc"))
End Select
[此贴子已经被作者于2017/6/8 15:40:24编辑过]
加好友 
发短信
Post By：2017/5/25 10:41:00 [显示全部帖子]
