ASP.NET中怎样截取文章标题或者内容的一部分进行显示
2006-08-29 16:06
603 查看
今天又解决了一个问题,太高兴了,又学到了.写下来先,可别忘了.
就是关于文章的标题或内容的显示问题,如果想以表的形式显示所有的文章,那么一般来讲,标题或者内容,只需要显示一部分就可以了.那么怎么截取呢?下面是一个例子,在page_load里面,使用datatable设置的.
<%@ Page Language="VB" Debug ="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("rizhi.mdb") & ";User Id=;Password=;"
Dim sql As String
Dim mycommand As OleDbCommand
'Dim myread As OleDbDataReader
Dim adpt As OleDbDataAdapter
Dim conn As OleDbConnection
Dim ds As DataSet
Sub page_load(ByVal sender As Object, ByVal e As EventArgs)
conn = New OleDbConnection(connstr)
conn.Open()
sql = "select * from rizhi"
ds = New DataSet()
adpt = New OleDbDataAdapter(sql, conn)
adpt.Fill(ds, "rizhi")
Dim I
Dim Table1 As DataTable = ds.Tables("rizhi")
For I = 0 To Table1.Rows.Count - 1
Table1.Rows(I).Item("content") = ShortStr(Table1.Rows(I).Item("content"), 20)
Next
GridView1.DataSource = Table1
GridView1.DataBind()
conn.Close()
End Sub
Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs)
Dim id As Integer = GridView1.DataKeys(e.RowIndex).Value
Dim j As Integer = 0
conn = New OleDbConnection(connstr)
conn.Open()
sql = "delete from rizhi where id=" & id
mycommand = New OleDbCommand(sql, conn)
Try
j = mycommand.ExecuteNonQuery
Response.Write("共删除了" & j & "条记录!")
sql = "select * from rizhi"
mycommand = New OleDbCommand(sql, conn)
myread = mycommand.ExecuteReader()
GridView1.DataSource = myread
GridView1.DataBind()
Catch ex As Exception
Throw ex
Finally
conn.Close()
End Try
End Sub
Function ShortStr(ByVal LongStr As String, ByVal StrNum As Integer) As String
Dim l = Len(LongStr)
Dim I, c, t As Integer
For i = 1 To l
c = Math.Abs(Asc(Mid(LongStr, i, 1)))
If c > 255 Then
t = t + 2
Else
t = t + 1
End If
If t >= StrNum Then
ShortStr = left(LongStr, i) & "..."
Exit For
Else
ShortStr = LongStr
End If
Next
End Function
Function ShortDate(ByVal LongDate As Date) As String
Dim ShortDate_m As String = Month(LongDate)
Dim ShortDate_d As String = Day(LongDate)
If Len(ShortDate_m) = 1 Then
ShortDate_m = "0" & ShortDate_m
End If
If Len(ShortDate_d) = 1 Then
ShortDate_d = "0" & ShortDate_d
End If
ShortDate = ShortDate_m & "-" & ShortDate_d
End Function
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>无标题页</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<center>
<a href ="rizhi_add.aspx" style ="font-size :12px;">增加新日志</a>
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" Width ="80%" Font-Size="12px" OnSelectedIndexChanged="GridView1_SelectedIndexChanged" OnRowDeleting="GridView1_RowDeleting" DataKeyNames="id" >
<Columns>
<asp:BoundField DataField="id" HeaderText="序号" >
<ItemStyle Font-Size="12px" HorizontalAlign="Left"/>
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:BoundField>
<asp:BoundField DataField="rq" HeaderText="日期" >
<ItemStyle Font-Size="12px" HorizontalAlign="Left" />
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:BoundField>
<asp:BoundField DataField="n_je" HeaderText="金额" >
<ItemStyle Font-Size="12px" HorizontalAlign="Right" />
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:BoundField>
<asp:BoundField DataField="title" HeaderText="标题" >
<ItemStyle Font-Size="12px" HorizontalAlign="Left" />
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:BoundField>
<asp:TemplateField HeaderText="内容">
<EditItemTemplate>
<asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("content") %>'></asp:TextBox>
</EditItemTemplate>
<ItemStyle Font-Size="12px" HorizontalAlign="Left" />
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
<ItemTemplate>
<asp:Label ID="Label1" runat="server" Text='<%# Bind("content") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField DataTextField="id" DataNavigateUrlFields ="id" DataNavigateUrlFormatString="rizhi_edit.aspx?id={0}" HeaderText ="操作" DataTextFormatString ="修改" >
<ItemStyle Font-Size="12px" HorizontalAlign="Center" />
<HeaderStyle BackColor ="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:HyperLinkField>
<asp:TemplateField HeaderText="操作" ShowHeader="False">
<ItemTemplate>
<asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="False" CommandName="Delete"
Text="删除" OnClientClick="return confirm('您确认删除该记录吗?');"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</center>
</div>
</form>
</body>
</html>
总结一下下吧:
1.使用dataset,需要引入system.data命名空间
2.OleDbDataReader和OleDbDataAdapter的区别:
OleDbDataReader:提供从数据源读取数据行的只进流的方法。无法继承此类.
OleDbDataAdapter:表示一组数据命令和一个数据库连接，它们用于填充 DataSet 和更新数据源。
以上是在MSDN中查到的信息.
我的理解是,Reader相当于asp中的rs ,每次取一个记录，需要用循环。Adapter相当于GetRows ,一次取出全部记录，填充于一个容器中，通常是一个dataset的一个表中。
不知道我理解的对不对,如有错误,欢迎指正!!!
就是关于文章的标题或内容的显示问题,如果想以表的形式显示所有的文章,那么一般来讲,标题或者内容,只需要显示一部分就可以了.那么怎么截取呢?下面是一个例子,在page_load里面,使用datatable设置的.
<%@ Page Language="VB" Debug ="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("rizhi.mdb") & ";User Id=;Password=;"
Dim sql As String
Dim mycommand As OleDbCommand
'Dim myread As OleDbDataReader
Dim adpt As OleDbDataAdapter
Dim conn As OleDbConnection
Dim ds As DataSet
Sub page_load(ByVal sender As Object, ByVal e As EventArgs)
conn = New OleDbConnection(connstr)
conn.Open()
sql = "select * from rizhi"
ds = New DataSet()
adpt = New OleDbDataAdapter(sql, conn)
adpt.Fill(ds, "rizhi")
Dim I
Dim Table1 As DataTable = ds.Tables("rizhi")
For I = 0 To Table1.Rows.Count - 1
Table1.Rows(I).Item("content") = ShortStr(Table1.Rows(I).Item("content"), 20)
Next
GridView1.DataSource = Table1
GridView1.DataBind()
conn.Close()
End Sub
Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs)
Dim id As Integer = GridView1.DataKeys(e.RowIndex).Value
Dim j As Integer = 0
conn = New OleDbConnection(connstr)
conn.Open()
sql = "delete from rizhi where id=" & id
mycommand = New OleDbCommand(sql, conn)
Try
j = mycommand.ExecuteNonQuery
Response.Write("共删除了" & j & "条记录!")
sql = "select * from rizhi"
mycommand = New OleDbCommand(sql, conn)
myread = mycommand.ExecuteReader()
GridView1.DataSource = myread
GridView1.DataBind()
Catch ex As Exception
Throw ex
Finally
conn.Close()
End Try
End Sub
Function ShortStr(ByVal LongStr As String, ByVal StrNum As Integer) As String
Dim l = Len(LongStr)
Dim I, c, t As Integer
For i = 1 To l
c = Math.Abs(Asc(Mid(LongStr, i, 1)))
If c > 255 Then
t = t + 2
Else
t = t + 1
End If
If t >= StrNum Then
ShortStr = left(LongStr, i) & "..."
Exit For
Else
ShortStr = LongStr
End If
Next
End Function
Function ShortDate(ByVal LongDate As Date) As String
Dim ShortDate_m As String = Month(LongDate)
Dim ShortDate_d As String = Day(LongDate)
If Len(ShortDate_m) = 1 Then
ShortDate_m = "0" & ShortDate_m
End If
If Len(ShortDate_d) = 1 Then
ShortDate_d = "0" & ShortDate_d
End If
ShortDate = ShortDate_m & "-" & ShortDate_d
End Function
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>无标题页</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<center>
<a href ="rizhi_add.aspx" style ="font-size :12px;">增加新日志</a>
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" Width ="80%" Font-Size="12px" OnSelectedIndexChanged="GridView1_SelectedIndexChanged" OnRowDeleting="GridView1_RowDeleting" DataKeyNames="id" >
<Columns>
<asp:BoundField DataField="id" HeaderText="序号" >
<ItemStyle Font-Size="12px" HorizontalAlign="Left"/>
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:BoundField>
<asp:BoundField DataField="rq" HeaderText="日期" >
<ItemStyle Font-Size="12px" HorizontalAlign="Left" />
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:BoundField>
<asp:BoundField DataField="n_je" HeaderText="金额" >
<ItemStyle Font-Size="12px" HorizontalAlign="Right" />
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:BoundField>
<asp:BoundField DataField="title" HeaderText="标题" >
<ItemStyle Font-Size="12px" HorizontalAlign="Left" />
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:BoundField>
<asp:TemplateField HeaderText="内容">
<EditItemTemplate>
<asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("content") %>'></asp:TextBox>
</EditItemTemplate>
<ItemStyle Font-Size="12px" HorizontalAlign="Left" />
<HeaderStyle BackColor="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
<ItemTemplate>
<asp:Label ID="Label1" runat="server" Text='<%# Bind("content") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField DataTextField="id" DataNavigateUrlFields ="id" DataNavigateUrlFormatString="rizhi_edit.aspx?id={0}" HeaderText ="操作" DataTextFormatString ="修改" >
<ItemStyle Font-Size="12px" HorizontalAlign="Center" />
<HeaderStyle BackColor ="BurlyWood" Font-Size="12px" HorizontalAlign="Center" />
</asp:HyperLinkField>
<asp:TemplateField HeaderText="操作" ShowHeader="False">
<ItemTemplate>
<asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="False" CommandName="Delete"
Text="删除" OnClientClick="return confirm('您确认删除该记录吗?');"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</center>
</div>
</form>
</body>
</html>
总结一下下吧:
1.使用dataset,需要引入system.data命名空间
2.OleDbDataReader和OleDbDataAdapter的区别:
OleDbDataReader:提供从数据源读取数据行的只进流的方法。无法继承此类.
OleDbDataAdapter:表示一组数据命令和一个数据库连接，它们用于填充 DataSet 和更新数据源。
以上是在MSDN中查到的信息.
我的理解是,Reader相当于asp中的rs ,每次取一个记录，需要用循环。Adapter相当于GetRows ,一次取出全部记录，填充于一个容器中，通常是一个dataset的一个表中。
不知道我理解的对不对,如有错误,欢迎指正!!!
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- ASP.NET中怎样截取文章标题或者内容的一部分进行显示ASP.NET中怎样截取文章标题或者内容的一部分进行显示
- asp.net 关于列表问题。点击文章标题，显示文章内容。
- 截取html页面的文章内容显示前一部分内容
- asp.net 文章内容分页显示的代码
- asp:截取文章内容,多出来的以...显示！
- ASP.NET MVC入门教程（三）文章评论内容的加载与显示
- asp.net 文章内容分页显示的代码
- asp.net文章截取显示摘要 转 荐
- asp.net 文章内容分页显示的代码
- ASP.NET显示数据库文章标题前多少个字符加省略号
- asp.net开发网站时指定或截取标题字数的方法和内容页多关键字切分的方法
- Asp.net中解决母版页CSS样式无法在内容页完整显示——问题
- ASP.net在页面所有内容生成后、输出内容前对页面内容进行操作
- ASP.net在页面所有内容生成后、输出内容前对页面内容进行操作
- asp.net的多行TextBox随内容增加自动增高而不显示滚动条！
- ASP.net在页面所有内容生成后、输出内容前对页面内容进行操作
- 文章，记录按内容分页显示，根据文章内容按字数进行分页
- asp.net对于长篇文章进行分页
- asp,php,asp.net长文章内容分页函数
- asp.net C#用JavaScript获取JS显示得到TextBox文本框控件text值内容