review.ascx

很好的新闻更新系统

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<style type="text/css">
body {COLOR: #000000; FONT-SIZE: 14px}
td {COLOR: #000000; FONT-SIZE: 14px}
td.TopLighNav1
{
background-image:  url(image/tabs_m_tile.gif);
}
.tableBorder1
{
width:100%;
border: 1px #0099FF solid; 
background-color: #ffffff;
}

</style>
<table class="tableBorder1" cellpadding="0" cellspacing="0">
  <tr>
      <td background="pic/tabs_m_tile.gif">&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>
  <tr>
    <td background="pic/tabs_m_tile.gif">&nbsp;&nbsp;发表评论：<font color="#FF0000">爱国 守法 自律 真实 
      文明</font></td>
  </tr>
  <tr>
    <td>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30%" align="right">题目：</td>
            <td><asp:TextBox id="title" Columns="50" MaxLength="50" runat="server"/><font color="#FF0000">*</font>
			</td>
          </tr>
          <tr>
            <td width="30%" align="right">作者：</td>
            <td><asp:TextBox id="author" Columns="10" MaxLength="10" runat="server"/><font color="#FF0000">*</font>
			</td>
          </tr>
          <tr>
            <td width="30%" 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 width="30%" align="right" valign="top">内容：</td>
            <td valign="top"><asp:TextBox id="content" TextMode="MultiLine" Columns="50" 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>
<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

function executesql(sql as string)
   myCmd=new OleDbCommand(sql,myConn)
   myConn.open()
   myCmd.ExecuteNonQuery()
   myConn.close()
end function
function getdataview(sql as string, 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(sender As Object, e As EventArgs)
Dim strConn As String
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"	    	
	    	myConn = New OledbConnection(strConn)
   		if not page.ispostback then
         newsid=Page.request("newsid")
         bindgrid
        end if
end sub
sub butadd_click(Sender as Object,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(Sender as Object,e as EventArgs)
    title.Text=""
	author.Text=""
	email.Text=""
	content.Text=""
end sub
sub changepage(Sender as Object,e as DataGridPageChangedEventArgs)
   newsreview.CurrentPageIndex=e.NewPageIndex
   bindgrid
end sub
</script>