因为同时还有其他条件
If dr1 IsNot Nothing
if dr1("申读学校")>"" And dr1("申读班级")>""
Dim sdxx =.AddInput("申读学校","申读学校:","Text")
sdxx.readonly = True
sdxx.value= dr1("申读学校")
Dim sdbj = .AddInput("申读班级","申读班级:","Text")
sdbj.readonly = True
sdbj.value= dr1("申读班级")
endif
Else
messagebox.show("问题2")
Dim sdxx =.AddInput("申读学校","申读学校:","Text")
sdxx.readonly = True
sdxx.value= e.Cookies("sdxx")
Dim sdbj = .AddInput("申读班级","申读班级:","Text")
sdbj.readonly = True
sdbj.value= e.Cookies("sdbj")
End If
加好友 
发短信
Post By：2020/7/6 16:47:00 [显示全部帖子]
