用asp.net写的论坛程序--浏览贴子内容及回复

微博文章来源:网络整理本站编辑:兰特

2) reply.aspx : The topic viewing and replying page</P><P><%@ Page Language="C#" EnableSessionState="False" Debug="True" %>
<%@ Import Namespace="System" %>
<%@ Assembly Name="System.Data" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.ADO" %>
<html><head>
<title>Post New Topic.</title>
<%-- These are the imported assemblies and namespaces needed --%>
<s cript Language="C#" runat="server">
  DataSet ds ,rs;
  DataRow dr ;
  string postid ;
  public void Page_Load(object sender , EventArgs e)
  {
   //Check if the page is Post Back
   if(!Page.IsPostBack)
{
   //Get the postid from the Query string
   postid = Request.Params["postid"] ;
   if(postid!=null)
   {
      //Database connection string. Change the path to the database file if you have some other path where
      //you are saving your Database file
      string strConn=@"Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source="+Server.MapPath(".\db\board.mdb") ;
      //Make a connection to the Database
      ADOConnection myConn = new ADOConnection(strConn) ;
      //string to select the records from the newpost table
      string strCon ="SELECT subject, name, email, message ,date  FROM newpost WHERE postid="+postid ;
      //set a ADODataSetCommand
      ADODataSetCommand myCommand =new ADODataSetCommand(strCon,myConn);
      ds = new DataSet();
      //Don't ever forget to open the Connection
      myConn.Open();
      //Fill the DataSet
      myCommand.FillDataSet(ds,"newpost") ;
      //Get the Row at position '0' and store it in a DataRow object
      //Why row at position '0' ? Since there can only be one record with the given postid remember !!
      //Why put into a DataRow ? Its easy to access data from a DataRow
      dr = ds.Tables["newpost"].Rows[0] ;
      //Get the "subject" from the DataRow and set it up in the post reply form's subject field
      subject.Text="Re:"+dr["subject"].ToString() ;
      //Select the replies to the post from the reply table
      strCon ="SELECT name , email, subject, message ,date FROM reply WHERE postid="+postid ;
      //Make a new ADODataSetCommand and DataSet for the reply table
      ADODataSetCommand myCommand2 =new ADODataSetCommand(strCon,myConn);
      rs = new DataSet() ;
      //fill the DataSet
      myCommand2.FillDataSet(rs, "reply") ;
      //Code to update the "views" field for the newpost Table
      //Select the views field from the table for a given postid
      strCon ="SELECT views FROM newpost WHERE postid = "+postid ;
      //Make a ADOCommand here since we want a ADODataReader later
      ADOCommand vicomm = new ADOCommand(strCon, myConn) ;
      ADODataReader reader ;
      //execute the statement and create a ADODataReader
      vicomm.Execute(out reader) ;
      //Read the First record (there can only be one record remember !)
      reader.Read() ;
      //Get a "Int32" value from the first Column (we have one column in the reader, check the select statement above)
      int i = reader.GetInt32(0) ;
      //Increase the views count
      i++ ;
      reader.Close() ;
      //Update the newpost table with the new views value
      strCon ="UPDATE newpost SET views = "+i+" WHERE (postid= "+postid+")" ;
      //since we are using the same ADOCOmmand object for this statement too to set the CommandText property
      vicomm.CommandText = strCon ;
      //Since this statement will result in no output we use "ExecuteNonQuery()" method
      vicomm.ExecuteNonQuery() ;
      //close the connection
      myConn.Close();
   }
}
  }
// This method is called when the submit button is clicked
public void Submit_Click(Object sender, EventArgs e)
{
   //Get the postid
   postid = Request.Params["postid"] ;

   //proceed only if all the required fields are filled-in
   if(Page.IsValid&&name.Text!=""&&subject.Text!=""&&email.Text!=""){
      DateTime now = DateTime.Now ;
      errmess.Text="" ;
      //We have to call the postmessage.aspx page with a query to post the data to the Database.
      //Hence we have to first build the custom query from the Data posted by the user
      //also since we are using a query we have to encode the data into UTF8 format
      string req = "name="+ System.Web.HttpUtility.UrlEncodeToString(name.Text, System.Text.Encoding.UTF8);
      req+="&&email="+ System.Web.HttpUtility.UrlEncodeToString(email.Text, System.Text.Encoding.UTF8);
      req+="&&subject="+System.Web.HttpUtility.UrlEncodeToString(subject.Text, System.Text.Encoding.UTF8);
req+="&&ip="+System.Web.HttpUtility.UrlEncodeToString(Request.UserHostAddress.ToString(), System.Text.Encoding.UTF8);
      req+="&&date="+ System.Web.HttpUtility.UrlEncodeToString(now.ToString(), System.Text.Encoding.UTF8);
      req+="&&message="+ System.Web.HttpUtility.UrlEncodeToString(message.Text, System.Text.Encoding.UTF8);
      //Encode "no" to indicate that the post is not a new post but its a reply to a earlier message
      req+="&&newpost="+ System.Web.HttpUtility.UrlEncodeToString("no", System.Text.Encoding.UTF8);
      req+="&&previd="+ System.Web.HttpUtility.UrlEncodeToString(postid, System.Text.Encoding.UTF8);
      //Call the postmessage page with our custom query
      Page.Navigate("postmessage.aspx?" + req);
   }
   else
   {
      errmess.Text="Fill in all the Required Fields !" ;
      }
}
</s cript>
<LINK href="mystyle.css" type=text/css rel=stylesheet></head>
<body topmargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0">
<%-- Include a header file 'header.inc' --%>

<br>
<div align=center>
<table border=0 width=80% cellspacing=2>
<tr class=fohead><th width=20%>Author Name</th>
<th width=80%>Message</th></tr>
<%-- Below I am encapsulating the email of the author over the name of the author
so that when you click on the author a e-mail gets sent to him
Also I am geting the DateTime from the DataBase and Displaying the Date and Time separately --%>
<tr class=folight><td rowspan=2 align="center"><%= "<a href=mailto:"+dr["email"]+">"+dr["name"]+"</a>" %><br>
<font size=1><%= dr["date"].ToString().ToDateTime().ToShortDateString()  %><br>
<%= dr["date"].ToString().ToDateTime().ToShortTimeString() %></font>
</td>
<td><b>Subject: </b><%=dr["subject"] %></td></tr>
<tr class=folight>
<td><pre><%=dr["message"] %></pre> </td>
</tr>
<%-- Get all the replies to the Original post and show them --%>
<% int no = rs.Tables["reply"].Rows.Count ;
if(no>0)
{
   for(int j=0 ;j<no ; j++)
   {
      DataRow rd = rs.Tables["reply"].Rows[j] ;
%>
<tr class=fodark>
<td align="center"><%="<a href=mailto:"+rd["email"]+">"+rd["name"]+"</a>" %><br>
<font size=1><%= rd["date"].ToString().ToDateTime().ToShortDateString()  %><br>
<%= rd["date"].ToString().ToDateTime().ToShortTimeString() %></font>
</td>
<td><pre><%=rd["message"] %></pre> </td>
</tr>
<%
      }
}
%>
</table>
</div>
<h3 align="center" class="fodark"><a href=forum.aspx>Click Here</a> to go to back to Forum.
<br>Reply to the Above Post.</h3>
<br>
<asp:label id="errmess" text="" style="COLOR:#ff0000" runat="server" />
<form runat="server">
<table border="0"  width="80%" align="center">
<tr >
<td class="fohead" colspan=2><b>Reply to the Post</b></td>
</tr>
<tr class="folight" >
<td>Name :</td>
<td ><asp:textbox text="" id="name" runat="server" /> <font color=#ff0000>*</font></td>
</tr>
<tr class="folight">
<td>E-Mail :</td>
<td><asp:textbox text="" id="email" runat="server"/> <font color=#ff0000>*</font></td>
</tr>
<tr class="folight">
<td> Subject:</td>
<td><asp:textbox test="" id="subject" width=200 runat="server"/> <font color=#ff0000>*</font>
</td></tr>
<tr class="folight">
<td>Message :</td>
<td>
<asp:TextBox id=message runat="server"
Columns="30" Rows="15" TextMode="MultiLine"></asp:TextBox></td>
</tr>
<tr class=folight>
<td colspan=2>
<asp:Button class=fodark id=write onClick=Submit_Click runat="server" Text="Submit"></asp:Button></td></tr>
</table>
</form><br>
<br>
</body></html>

奇异新闻网|对错网|海鸟网