📄 list.aspx
字号:
<%@ Page Language="VB" Debug="True" %>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<html>
<head>
<title>Guest Book</title>
</head>
<body>
<Form runat="server">
<H1>Guest Book</H1>
<asp:DataGrid
runat="server" id="MyGrid"
ShowHeader="False"
AllowPaging="True"
PageSize="10"
PagerStyle-Mode="NumericPages"
PagerStyle-HorizontalAlign="Left"
OnPageIndexChanged="ChangePage"
BorderWidth="0"
CellPadding="2"
CellSpacing="0"
AutoGenerateColumns="False"
>
<Columns>
<asp:BoundColumn DataField="HTML" HeaderText="HTML" />
</Columns>
</asp:DataGrid>
<HR>
<asp:Button runat="server" Text="POST WORD" OnClick="Message_Click" />
</Form>
</body>
</html>
<script Language="VB" runat="server">
Sub OpenDataBase_And_BindToDataGrid()
Dim Conn As OleDbConnection
Dim Adpt As OleDbDataAdapter
Dim Ds As DataSet
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim DataBase = "Data Source=" & Server.MapPath( ")#Guestbook.mdb" )
Conn = New OleDbConnection( Provider &";" & DataBase )
Conn.Open()
Dim SQL As String
SQL = "Select Top 20 * From GUEST_BOOK Order By ID Desc"
Adpt = New OleDbDataAdapter( SQL, Conn )
Ds = New DataSet()
Adpt.Fill(Ds, "GUEST_BOOK")
Dim Table1 As DataTable
Table1 = Ds.Tables("GUEST_BOOK")
Table1.Columns.Add(New DataColumn("HTML", GetType(String)))
Dim I As Integer
For I = 0 To Table1.Rows.Count-1
Table1.Rows(I).Item("HTML") = MakeHTML( Table1.Rows(I) )
Next
MyGrid.DataSource = Table1.DefaultView
MyGrid.DataBind()
Conn.Close()
End Sub
Function MakeHTML( row As DataRow ) As String
Dim BOOK_IMG = row.Item("BOOK_IMG")
BOOK_IMG="<img src=images/"&BOOK_IMG &".gif>"
Dim BOOK_NAME ="NAME:" & Server.HtmlEncode(row.Item("BOOK_NAME"))
Dim BOOK_EMAIL="EMAIL:" & row.Item("BOOK_EMAIL")
Dim BOOK_SUBJECT="SUBJECT:" & Server.HtmlEncode(row.Item("BOOK_SUBJECT"))
Dim BOOK_DATE="Date:" & Server.HtmlEncode(row.Item("BOOK_DATE"))
Dim BOOK_CONTENT="<pre>" & Server.HtmlEncode(row.Item("BOOK_CONTENT")) &"</pre>"
Dim HTML As String
HTML = "<table border=0>"
HTML &= "<tr valign=top><td rowspan=5>" & BOOK_IMG & "</td>"
HTML &= "<td>" & BOOK_NAME & "</td></tr>"
HTML &= "<td>" & BOOK_EMAIL & "</td></tr>"
HTML &= "<td>" & BOOK_DATE & "</td></tr>"
HTML &= "<td>" & BOOK_SUBJECT & "</td></tr>"
HTML &= "<td>" & BOOK_CONTENT & "</td></tr> "
HTML &= "</table>"
HTML = HTML &"<HR>"
Return HTML
End Function
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
OpenDataBase_And_BindToDataGrid()
End If
End Sub
Sub ChangePage(sender As Object, e As DataGridPageChangedEventArgs)
MyGrid.CurrentPageIndex = e.NewPageIndex
OpenDataBase_And_BindToDataGrid()
End Sub
Sub Message_Click(sender As Object, e As EventArgs)
Response.Redirect( "Add.aspx" )
End Sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -