根本都不去理解一下代码，乱用
Case "list.htm"
''合成条件
Dim flt As String
If e.GetValues.ContainsKey("unfilter") Then '如果有unfilter参数,则清除cookie
wb.ClearCookie()
ElseIf e.PostValues.Count > 0 Then '如果是filter.htm访问,则根据用户输入合成条件表达式
If e.PostValues.ContainsKey("product") Then
flt = "bh = '" & e.PostValues("product") & "'" '合成条件
wb.AppendCookie("product", e.PostValues("product")) '将值写入cookie中
Else
wb.DeleteCookie("product") '删除cookie
End If
Else '否则根据Cookie合成条件表达式
If e.Cookies.ContainsKey("product") Then
flt = "bh = '" & e.Cookies("product") & "'"
End If
End If
dim lst as new list(of string)
Dim cmd As New SQLCommand
cmd.ConnectionName = "BGERP" '记得设置数据源名称
cmd.CommandText = "Select SPDM From XPHCX"
if flt > "" then cmd.CommandText &= " where " & flt
Dim dt2 As DataTable = cmd.ExecuteReader
lst = dt2.getvalues("SPDM")
Dim page As Integer = 1
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
[此贴子已经被作者于2021/7/6 8:53:39编辑过]
加好友 
发短信
Post By：2021/7/5 23:43:00 [只看该作者]
