……
Else '否则根据Cookie合成条件表达式
If e.Cookies.ContainsKey("product") Then
flt = "bh = '" & e.Cookies("product") & "'"
End If
End If
Dim page As Integer = 0
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
Dim cmd As New SQLCommand
cmd.C '记得设置数据源名称
cmd.CommandText = "Select Row_Number() Over(Order by SPDM) As [NO.], SPDM as 商品代码,ZJF AS 助记符,CW AS 仓位,GG1MC as 颜色,GG2MC as 尺码,BHS AS 补货数,TCTP AS 图片 From XPHCX where SPDM='" & lst(page) & "' "
If flt > "" Then
cmd.CommandText = cmd.CommandText & " and " & flt
End If
Dim dt As DataTable = cmd.ExecuteReader
With wb.AddTable("","Table1")
.MergeCols = 3 '合并左边2列
.Highlight = -1 '关闭高亮显示功能
.RowHead = 1
.CreateFromDataTable(dt)
End With
With wb.AddInputGroup("form1","ipg1","商品图片")
wb.AddForm("","form2","test.htm")
With .AddUploader("up1","",True)
.AllowAdd = False '关闭文件上传功能
For Each dr As DataRow In dt.datarows
For Each s As String In dr.lines("图片")
AddImage(s)
'msgbox(s)
Next
Next
End With
End With
With wb.AddButtonGroup("","btg2", False)
If page > 0 Then
.Add("btnPrev", "上一款","","List.htm?page=" & page - 1)
End If
If page < lst.count - 1 Then
.Add("btnNext", "下一款","","List.htm?page=" & page + 1)
End If
End With
End Select
e.WriteString(wb.Build)
加好友 
发短信
Post By：2021/7/2 9:16:00 [只看该作者]
此主题相关图片如下：43124.png
