问题见，下面粉色字体处
Dim e As RequestEventArgs = args(0) 'TA邀请我 ,用cookie保存最后一位会员,下次查找照小于这个编号数的,且符合条件的,返回30行
Select Case e.Path
Case "per_tayaoqing.htm"
Dim wb As New WeUI
wb.AddForm("","form1","details.htm")
With wb.AddPanelGroup("","pg1","TA邀请我列表")
'获得用户名,获得被报名表具体行,将同一行报名人信息填入
Dim username As String = e.cookies("isj") '从cookie取用户名(手机号)
Dim pic(9) As String '定义各个panel,展示照
Dim bianh(9) As String '定义各个panel,邀请编号
Dim nianl(9) As String '定义各个panel,字符串,年龄
Dim huny(9) As String '定义各个panel,字符串,婚姻
Dim hongb(9) As String '定义各个panel,字符串,有无红包
Dim qux(9) As String '定义各个panel,字符串,所在区县
Dim shi(9) As String '定义各个panel,字符串,所在市
Dim sheng(9) As String '定义各个panel,字符串,所在省
Dim txt(9) As String '定义各个panel,中间行字符串
Dim tians(9) As String '定义各个panel,发起天数
Dim zhuangt(9) As String '定义各个panel,状态
Dim yix(9) As String '定义各个panel,查找异性
Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = '" & username & "'")
Dim dr1 As DataRow
Dim drs As List(of DataRow)
If dr IsNot Nothing Then
If dr("性别") = "男" Then
drs = DataTables("女生发起").sqlSelect("[男_手机] = '" & username.Trim() & "'",10,"[发起_日期] DESC") '从订单表找,个人订单集合
Else If dr("性别") = "女" Then
drs = DataTables("男生发起").SQLSelect("[女_手机] = '" & username.Trim() & "'",10,"发起_日期 DESC") '从订单表找,个人订单集合
Else If dr("性别") = "" Then
msgbox("会员性别为空!")
Else If dr("性别") <> "男" OrElse dr("性别") <> "女" Then
msgbox("会员性别错误填写!")
End If
Else
msgbox("未找到您的会员账号!")
End If
Dim cis As String = 9 '定义被报名,本页显示次数-1
If drs.count < 10 Then
cis = drs.count - 1
'msgbox("人数=" & cis)
End If
For i As Integer = 0 To cis
If drs.count > 0 Then '找出异性报名的手机号
If dr("性别") = "男" Then
yix(i) = drs(i)("女_手机")
dr1 = DataTables("会员资料").sqlFind("手机 = '" & yix(i) & "'")
ElseIf dr("性别") = "女" Then
yix(i) = drs(i)("男_手机")
dr1 = DataTables("会员资料").sqlFind("手机 = '" & yix(i) & "'")
End If
Else
msgbox("尚无异性报名!完善资料及靓照,TA将主动找到您!")
End If
If dr1 IsNot Nothing Then
pic(i) = dr1("展示照") '定义各个panel,展示照
bianh(i) = drs(i)("会员行为_发起编号") '定义各个panel,邀请编号
nianl(i) = dr1("年龄") '定义各个panel,字符串,年龄
huny(i) = dr1("婚姻状况") '定义各个panel,字符串,婚姻
hongb(i) = drs(i)("红包情况") '定义各个panel,字符串,有无红包
qux(i) = dr1("所在区县") '定义各个panel,字符串,所在区县
shi(i) = dr1("所在市") '定义各个panel,字符串,所在市
sheng(i) = dr1("所在省") '定义各个panel,字符串,所在省
txt(i) = nianl(i) & "," & huny(i) & "," & hongb(i) & "," & qux(i) & "," & shi(i) & "," & sheng(i) '定义各个panel,中间行字符串
tians(i) = drs(i)("发起天数") '定义各个panel,发起天数
zhuangt(i) = drs(i)("邀请状态") '定义各个panel,状态
Else
msgbox("未找到您的会员账号2!")
End If
With .Add("pn" & i,"邀请编号:" & bianh(i),txt(i),"./images/zhanshi/" & pic(i)) '带子链接ProjectPath & |./langwo/Attachments ) ( "./web/images/" & pic(i) )
.AddFoot("已发起:" & tians(i))
.AddFoot("|状态:" & zhuangt(i),"http://www.foxtable.com")
.Attribute = "style='height:60px'"
End With
If i = cis AndAlso drs.count > 10 Then
e.AppendCookie("jiezhi",cis) '将截至目前发送数量,保存到cookie
End If
Next
End With
wb.insertHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的 页面
wb.AppendLine("<img src='abc.jpg'>") ’.Attribute= ""，这里如何引用js函数tongji()？
wb.AppendHTML("<script src='./lib/ajaxform_tongji.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2017/4/8 23:33:00 [只看该作者]
