review.ascx

该系统实现新闻浏览

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
    Dim oksql As String
    Dim newsid As Integer
    Dim myConn As OleDbConnection
    Dim myCmd As OleDbCommand
    Dim myDataAdapter As OleDbDataAdapter
    Dim myDataSet As DataSet
    '执行SQL字符串子程序
    Function executesql(ByVal sql As String)
        myCmd = New OleDbCommand(sql, myConn)
        myConn.Open()
        myCmd.ExecuteNonQuery()
        myConn.Close()
    End Function
    '获取数据库中数据
    Function getdataview(ByVal sql As String, ByVal strTable As String) As DataView
        myConn.Open()
        myDataAdapter = New OleDbDataAdapter(sql, myConn)
        myConn.Close()
        myDataSet = New DataSet()
        myDataAdapter.Fill(myDataSet, strTable)
        getdataview = New DataView(myDataSet.Tables(strTable))
    End Function
    '绑定数据
    Function bindgrid()
        oksql = "select * from ReView where NewsID=" & Page.Request("newsid") & " order by ReviewID desc"
        newsreview.DataSource = getdataview(oksql, "pinglun")
        newsreview.DataBind()
    End Function
    '初始化子程序
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim strConn As String
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./") & "DB_51aspx/news.mdb"
        myConn = New OleDbConnection(strConn)
        If Not Page.IsPostBack Then
            newsid = Page.Request("newsid")
            bindgrid()
        End If
    End Sub
    '回写用户评价信息
    Sub butadd_click(ByVal Sender As Object, ByVal e As EventArgs)
        oksql = "insert into ReView(ReViewTitle,Author,Email,Content,NewsID) values('" & title.Text & "','" & author.Text & "','" & email.Text & "','" & content.Text & "'," & Page.Request("newsid") & ")"
        executesql(oksql)
        title.Text = ""
        author.Text = ""
        email.Text = ""
        content.Text = ""
        bindgrid()
    End Sub
    '清除变量信息子程序
    Sub butcan_click(ByVal Sender As Object, ByVal e As EventArgs)
        title.Text = ""
        author.Text = ""
        email.Text = ""
        content.Text = ""
    End Sub
    '翻页子程序
    Sub changepage(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs)
        newsreview.CurrentPageIndex = e.NewPageIndex
        bindgrid()
    End Sub
</script>

<link href="style.css" type="text/css" rel="Stylesheet"  />
<table width="100%" cellpadding="2px"  cellspacing="0" style="border:1px solid #6699FF;">
    <tr>
        <td   bgcolor="#6699FF">
&nbsp;&nbsp;相关评论：（个人观点仅供参考）
        </td>
    </tr>
    <tr>
        <td>
<asp:DataGrid id="newsreview" runat="server" AutoGenerateColumns="False" AllowPaging="true" PageSize="5" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages"
	OnPageIndexChanged="ChangePage" Width="100%" BorderColor="Black" BorderWidth="0" GridLines="Both" DataKeyField="ReViewID" ShowHeader="false"> 
    <Columns>
        <asp:HyperLinkColumn DataTextField="ReViewTitle"
 DataNavigateUrlField="ReviewID" Target ="_new" DataNavigateUrlFormatString="../reviewshow.aspx?reviewid={0}"/> 
    </Columns>
</asp:DataGrid>
        </td>
    </tr>
</table>
<br />
<table width="100%" cellpadding="2px"  cellspacing="0" style="border:1px solid #6699FF;"> 
    <tr>
        <td bgcolor="#6699FF">
&nbsp;&nbsp;发表评论：
        </td>
    </tr>
    <tr>
        <td>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
            <td width="16%" align="right">题目：</td>
            <td>
<asp:TextBox id="title" Columns="50" MaxLength="50" runat="server"/><font color="#FF0000">*</font>
			</td>
        </tr>
        <tr>
            <td align="right">作者：</td>
            <td>
<asp:TextBox id="author" Columns="10" MaxLength="10" runat="server"/><font color="#FF0000">*</font>
            </td>
        </tr>
        <tr>
            <td align="right">E-mail：</td>
            <td>
<asp:TextBox id="email" Columns="20" MaxLength="20" Text="" runat="server"/><font color="#FF0000">*</font>
			</td>
        </tr>
        <tr>
            <td align="right" valign="top">内容：</td>
            <td valign="top">
<asp:TextBox id="content" TextMode="MultiLine" Columns="54" Rows="5" runat="server"/><font color="#FF0000">*</font></td>
        </tr>
    </table>
        </td>
    </tr>
    <tr>
        <td align="center">
<asp:Button id="butadd" OnClick="butadd_Click" Text="发表" runat="server"/>
<asp:Button id="butcan" OnClick="butcan_Click" Text="取消" runat="server"/></td>
    </tr>
</table>