在后台中如果我输入的文章太长了,要是在一页中显示不好看,怎样让他在前台显示的时候分页呢???
谢谢!!!

解决方案 »

  1.   

    原理就是截取字符串,然后显示,方法可能不是很好,可以参考:
    int textlen,prevlen,latelen;
    void Page_Load(Object sender, EventArgs e) 

    cn =new SqlConnection("server=localhost;uid=zh;pwd=admin_zh;database=zh"); 
    SqlDataAdapter da = new SqlDataAdapter("select context from wenzhang ",cn); 
    DataSet ds=new DataSet(); 
    da.Fill(ds,"text"); 
    text=ds.Tables["text"].Rows[0][0].ToString(); 
    textlen=text.Length; 
    prevlen=text.LastIndexOf(".",2)+2; 
    latelen=textlen-prevlen; 
    Label2.Text=text.Substring(0,prevlen); 

    private void Button1_Click(object sender, System.EventArgs e)
    {
    Label2.Text=text.Substring(prevlen,latelen); 
    } private void Button2_Click(object sender, System.EventArgs e)
    {
    Label2.Text=text.Substring(0,prevlen); 
    }
      

  2.   

    Public Class WebForm1
        Inherits System.Web.UI.Page
        Protected WithEvents Label1 As System.Web.UI.WebControls.Label
        Protected WithEvents Label2 As System.Web.UI.WebControls.Label
        Protected WithEvents Label3 As System.Web.UI.WebControls.Label
        Protected WithEvents Label4 As System.Web.UI.WebControls.Label#Region  Web 窗体设计器生成的代码     '该调用是 Web 窗体设计器所必需的。
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
            '不要使用代码编辑器修改它。
            InitializeComponent()
        End Sub#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            '在此处放置初始化页的用户代码
            pages()
        End Sub    '长内容分页
        Sub pages()
            Dim i, start, stops, t, stat, statt, pp, pagecount, pagesize, articleid As Integer
            Dim pa, articletxt, articletext, contenttext, html As String
            contenttext = <p>aaaaaaa</p><p>bbbbbbbbbbbb</p><p>cccccccccccccccc</p>
            '变量初始值
            stat = 0
            statt = 0
            start = 0 '开始查询的字符串位置,初始为0
            stops = 0
            pagesize = 2 '定义每页至少显示字符串数
            pagecount = 0        '获得当前的页数
            pa = Request.Params(page)
            If (pa =  Or IsDBNull(pa)) Then
                pa = 1
            End If
            pp = Convert.ToInt32(pa)        '获得内容
            articletxt = contenttext        '判断页面的内容长度是否大于定义的每页至少显示字符串数
            If (articletxt.Length >= pagesize) Then ' 如果大于字符串数,则我们可以分页显示
                t = articletxt.Length / pagesize '获得大致的总页数
                '根据目前获得的页数循环
                For i = 0 To t
                    '如果查询开始位置到查询的范围超出整个内容的长度,那么就不用寻找断点(分页点);反之,查找
                    If (start + pagesize < articletxt.Length) Then
                        stat = articletxt.IndexOf(</p>, start + pagesize) '查找</P>分页点的位置
                        '如果找不到
                        'If (stat <= 0) Then
                        'stat = articletxt.IndexOf(</p>, start + pagesize) '查找</p>分页点的位置;这里您可以自己设置分页点的判断
                        'End If
                    End If
                    'Response.Write(' & stat & ')
                    If (stat <= 0) Then
                        '如果找不到分页点,说明不能分页,也就不需要做其他的劳动了;否则,就进行分页
                        'articletext = articletxt '将结果付给要导出的变量
                        'Label1.Text = articletext & stat
                        'Exit Sub
                    Else                    stops = stat '分页点的位置也就作为这一页的终点位置
                        If (start + pagesize >= articletxt.Length) Then '如果起始位置到查询的范围超出整个内容的长度,那么这一页的终点位置为内容的终点
                            stops = articletxt.Length
                        End If
                        If (pp = i + 1) Then '如果是当前,那么输出当前页的内容
                            articletext = articletxt.Substring(start, stops - start) '取内容的起始位置到终点位置这段字符串输出
                            Label1.Text = articletext
                        End If
                        start = stat '将终点位置作为下一页的起始位置
                        pagecount = pagecount + 1 '获得实际页总数
                        'Response.Write(- & pagecount & -)
                    End If
                Next
            End If
            '分页部分(这里就简单多了)
            '定义分页代码变量        If (pagecount > 1) Then '当页数大于1的时候我们显示页数
                'Response.Write(pp)
                If (pp - 1 > 0) Then '显示上一页,方便浏览
                    html += <a href=?id= & articleid & &page= & (pp - 1) & >[上一页]</a> 
                Else
                    If pp = 1 Then
                        html += [<font color=#cccccc>上一页</font>] 
                    Else
                        html += <a href=?id= & articleid & &page= & (1) & >[上一页]</a> 
                    End If            End If
                For i = 1 To pagecount                If (i = pp) Then '如果是当前页,加粗显示
                        html += <b>[ & i & ]</b> 
                    Else
                        html += <a href=?id= & articleid & &page= & i & >[ & i & ]</a> 
                    End If
                Next
                If (pp + 1 > pagecount) Then '显示下一页,方便浏览
                    If pp = pagecount Then
                        html += [<font color=#cccccc>下一页</font>] 
                    Else
                        html += <a href=?id= & articleid & &page= & (pagecount) & >[下一页]</a></p>
                    End If
                Else
                    html += <a href=?id= & articleid & &page= & (pp + 1) & >[下一页]</a></p>
                End If
            End If
            Label2.Text = html
        End SubEnd Class
      

  3.   

    看起来"....<p>...."和<  p>等都没有考虑。
      

  4.   

    very easy!
    有几种方法:
    1.首先在添加文章时,通过添加特殊的分页符,然后在前台取出这个字段,按特殊的分页符将其分成几个div,通过JS来控制每个Div 的显示。方法要求优劣:后台和前台都要操作,但对于图片和特定的分页控制很好
    2.直接取出字段部分的字段。分成几段。优劣:不能对存有图片的文章里控制很好。
      

  5.   

    同意  tjj36(一切源于兴趣)  第一条1,目前流行的新闻系统都用这种方法;用程序直接分页会很丑!