1，扩展名呢？,完整路径是这样吗：D:\web\
xp\511011200201038010.jpg
wb.InsertHTML("<img src='/xp/511011200201038010.jpg' width='50' height='50'>")
2、
……
f ReadSex(e.cookies("username"))="女"
dr("xb")=2
End If
DR("sfzh")= e.Cookies("username")
dr("bswy")="1"
dr("kshlb")="1"
If dr3 IsNot Nothing
dr("xxmc")= dr3("group")
End If
dr.save()
If e.GetValues.ContainsKey("lock") Then '如果地址中有page参数
Dim zds() As String = {"xm","lxdh","txdz","sdbmh","政治面貌","民族","考生类别","户口性质","综合素质","是否借考","bxxjnx","bjdm","yzbm"} '不能为空的列名数组
For Each zd As String In zds
If dr(zd)=""
e.WriteString(wb.Build)
Return ""
e.WriteString(wb.Build)
End If
Next
dr("手机锁定")= True
dr.save()
With wb.AddMsgPage("form1","msgpage","锁定成功数据不能再修改不能再修改", "") '生成成功提示页
.AddButton("btn7","返回","zkbm.htm")
End With
e.WriteString(wb.Build)
else
If e.PostValues.Count = 0 Then
With wb.AddTabBar("", "tb1", 1)
Dim a1= .AddPage("page1","中考报名","./images/21.png")
.AddPage("page2","注意事项","./images/23.png")
.AddPage("page3","有关通知","./images/24.png")
End With
wb.AddForm("page1","form1","zkbm.htm")
With wb.AddInputGroup("form1","ipg1","用户:" & e.Cookies("username") & ",请仔细填写每项信息")
If dr("xjh") >""
Dim Inxjh = .AddInput("xjh","学籍号码:","text")
Inxjh.value=dr.....
……原来的其它代码
End If
[此贴子已经被作者于2018/4/7 15:50:44编辑过]
加好友 
发短信
Post By：2018/4/7 15:50:00 [显示全部帖子]
