线索池页面

最新推荐文章于 2022-02-22 15:26:42 发布

「已注销」

最新推荐文章于 2022-02-22 15:26:42 发布

阅读量866

点赞数

本文链接：https://blog.csdn.net/eds124/article/details/88083213

版权

本文详细探讨了线索池页面的功能与作用，包括如何收集、筛选和管理销售线索，以及利用数据分析提升转化效率。通过对不同来源的线索进行整合，企业能够更有效地跟踪潜在客户，优化营销策略。

摘要由CSDN通过智能技术生成

Imports System.Data.SqlClient

Partial Class KeHuChi
    Inherits System.Web.UI.Page

    Private Shared ReadOnly cs As String = "Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1"
    Private pagesize As Integer = 3

    Private Function getPageCount() As Integer
        Using con As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=master;User ID=sa;Password=Abcdefg1")
            Try
                con.Open()
                Using cmd As SqlCommand = New SqlCommand("select count(*) from t_clue", con)
                    Dim i As Integer = Math.Ceiling(cmd.ExecuteScalar() / pagesize)
                    Return i
                End Using
            Catch ex As Exception
                Response.Write(ex.Message)
            End Try
        End Using
    End Function

    Private Sub BindData()
        Using con As SqlConnection = New SqlConnection(cs)
            Using cmd As SqlCommand = New SqlCommand("select * from (select row_number() over(order by username desc) as rid,* from t_clue) as t where rid between @s and @e", con)
                cmd.Parameters.AddWithValue("s", Me.lbl_pagenow.Text * Me.pagesize - Me.pagesize + 1)
                cmd.Parameters.AddWithValue("e", Me.lbl_pagenow.Text * Me.pagesize)
                Try
                    con.Open()
                    Using sdr As SqlDataReader = cmd.ExecuteReader()
                        Me.Repeater1.DataSource = sdr
                        Me.Repeater1.DataBind()
                    End Using
                Catch ex As Exception
                    Response.Write(ex.Message)
                End Try
            End Using
        End Using
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Me.lbl_pagenow.Text = 1
            Me.lbl_pagecount.Text = getPageCount()
            Me.BindData()
        End If
    End Sub

    Protected Sub Repeater1_ItemCo