“深度服务”、“年度服务”按钮应该显示在文字的下方，为什么显示到上面去了
此主题相关图片如下：qq图片2017042420424777.png
页面代码：
Dim e As RequestEventArgs = args(0) '我的服务
Dim wb As New weui
With wb.AddTabBar("", "tb1",0) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
.AddButton("bt1","首页","./images/a.png","/index.htm") '.Attribute = ""
.AddButton("bt2","设置","./images/b.png","/per_chakanshezhi.htm")
.Addpage("bt3","当前","./images/c.png")
.AddButton("bt4","我的","./images/d.png","/personal.htm")
'.Attribute = "style='height:55px'"
End With
'wb.AddPageTitle("","pageheader","郎窝网","本地自助服务,为您婚恋交友之路保驾护航")
With wb.AddArticle("bt3","ar1")
.AddImage("./images/langwo/logo1.jpg")
.Attribute = "style='padding:0em;'"
End With
wb.AddForm("bt3","form1","myservice.htm")
Dim huiybh As String = e.cookies("ibh") '从cookie取会员,编号
Dim username As String = e.cookies("isj") '从cookie取会员,手机号
Dim xingb As String = e.cookies("ixb") '从cookie取会员,性别
Dim huiydj As String = e.cookies("idj") '从cookie取会员,等级
Dim jinrshiy As String '定义邀TA加微信,今日使用次数
Dim jinrshengy As String '定义邀TA加微信,今日剩余次数
Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = '" & username & "'")
If dr IsNot Nothing Then
jinrshiy = dr("免费邀ta次数_今日使用")
jinrshengy = dr("免费邀ta次数_今日剩余")
Else
msgbox("请稍后查看基础资料!")
End If
With wb.AddInputGroup("form1","ipg1","我的服务")
With .AddInput("hydj","会员等级","text")
.Value = huiydj
.Readonly= True
End With
With .AddInput("jryy","今日已用","text")
.Value = jinrshiy & "次免费邀TA加微信"
.Readonly= True
End With
With .AddInput("jrsy","今日剩余","text")
.Value = jinrshengy & "次免费邀TA加微信"
.Readonly= True
End With
If huiydj = "中级会员" OrElse huiydj = "高级会员" Then
With .AddInput("yhqx","优惠期限","text")
.Value = huiydj
.Readonly= True
End With
With .AddInput("fwsy","服务剩余","text")
.Value = huiydj
.Readonly= True
End With
End If
If huiydj = "女" Then
With .AddInput("hbje","红包金额","text")
.Value = huiydj
.Readonly= True
End With
End If
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "红包转到支付宝","submit")
End With
wb.InsertHTML("bt3","<p style='margin:0.5em'><span style='color:#E53333;'>1.普通会员:</span>每天免费<strong><span style='color:#E53333;'>3</span></strong>次.</p>")
wb.InsertHTML("bt3","<p style='margin:0.5em'><span style='color:#E53333;'>2.中级会员:</span>每天免费<strong><span style='color:#E53333;'>9</span></strong>次.</p>")
wb.InsertHTML("bt3","<p style='margin:0.5em'><span style='color:#E53333;'>3.免费升级中级会员:</span>条件符合自动升级为中级会员.</p>")
With wb.AddButtonGroup("form1","btg2",False)
.Add("btn1", "年度服务","submit")
.Add("btn1", "深度服务","submit")
End With
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2017/4/24 20:45:00 [显示全部帖子]
