forumrpost.aspx

来自「用VB实现」· ASPX 代码 · 共 111 行

ASPX
111 行
字号 
<%@ Page Language="VB" ContentType="text/html"  %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>

<MM:Insert
runat="server"
CommandText='<%# "INSERT INTO ForumList (ForContent, ForPostName, ForTitle, FortPostMail,RID) VALUES (?, ?, ?, ?,?)" %>'
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
Expression='<%# Request.Form("MM_insert") = "form1" %>'
CreateDataSet="false"
SuccessURL='<%# "ForumDetail.aspx?ForID=" & Request.QueryString("ForID") & "&AddNew=True"%>'
Debug="true"
><Parameters>
  <Parameter Name="@ForContent" Value='<%# IIf((Request.Form("ForContent") <> Nothing), Request.Form("ForContent"), "") %>' Type="WChar" />  
  <Parameter Name="@ForPostName" Value='<%# IIf((Request.Form("ForPostName") <> Nothing), Request.Form("ForPostName"), "") %>' Type="WChar" />  
  <Parameter Name="@ForTitle" Value='<%# IIf((Request.Form("ForTitle") <> Nothing), Request.Form("ForTitle"), "") %>' Type="WChar" />  
  <Parameter Name="@FortPostMail" Value='<%# IIf((Request.Form("FortPostMail") <> Nothing), Request.Form("FortPostMail"), "") %>' Type="WChar" />  
  <Parameter Name="@RID" Value='<%# IIf((Request.QueryString("ForID") <> Nothing), Request.QueryString("ForID"), "") %>'  Type="Integer"   />  
</Parameters>
</MM:Insert>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<MM:DataSet 
id="dsForum"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT * FROM ForumList WHERE ForID = ?" %>'
Debug="true"
><Parameters>
<Parameter  Name="@ForID"  Value='<%# IIf((Request.QueryString("ForID") <> Nothing), Request.QueryString("ForID"), "") %>'  Type="Integer"   /></Parameters></MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>回复帖子</title>
</head>
<body>
<form name='form1' method='POST' runat='server'>
  <div align="center">
    <table width="781" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
      <tr>
        <td ><table width="765" border="0">
          <tr>
            <td width="126" align="left" valign="top" bgcolor="#CCFFCC" ><div align="center"><strong>作者</strong></div></td>
            <td width="629" align="left" valign="top" bgcolor="#CCFFCC" ><strong>发表时间 ：</strong> <%# dsForum.FieldValue("ForPostTime", Container) %></td>
          </tr>
          <tr>
            <td rowspan="2" align="left" valign="top" bgcolor="#CCFFCC"><div align="center"><%# dsForum.FieldValue("ForPostName", Container) %></div></td>
            <td align="left" valign="top" bgcolor="#CCFFCC"><div align="left">
              <strong><%# dsForum.FieldValue("ForTitle", Container) %></strong></div>
              </td>
          </tr>
          <tr>
            <td align="left" valign="top" bgcolor="#CCFFCC"><%# dsForum.FieldValue("ForContent", Container) %></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="162" colspan="2" align="left" valign="top">
			 <div align="right">
			 
			   <hr size="1">
			   <table align="center">
    <tr valign="baseline">
      <td height="18" align="right" nowrap><div align="right">发表主题：</div></td>
      <td colspan="3"  align="LEFT" ><asp:textbox id="ForTitle" TextMode="SingleLine" Columns="64" runat="server" Text= <%# "Re：" & dsForum.FieldValue("ForTitle", Container)  %> />
</td>
    </tr>
    <tr valign="middle">
      <td height="18" align="right" nowrap><div align="right">作者：</div></td>
      <td width="168"><div align="left">
        <asp:TextBox ID="ForPostName" TextMode="SingleLine" Columns="20" runat="server" />        
</div>
        <div align="left"></div></td>
      <td width="81"><div align="right">联系邮箱：</div></td>
      <td width="209"><div align="left">
        <asp:TextBox ID="FortPostMail" TextMode="SingleLine" Columns="20" runat="server" />      
      </div></td>
    </tr>
    <tr valign="baseline">
      <td height="17" colspan="4" align="right" nowrap><hr size="1"></td>
    </tr>
    <tr valign="baseline">
      <td align="right" valign="top" nowrap>内容：</td>
      <td colspan="3"><div align="left">
        <asp:textbox id="ForContent" TextMode="MultiLine" Columns="50" runat="server" Rows="10" />      
        </div></td>
    </tr>
    <tr valign="baseline">
      <td height="23" align="right" nowrap>&nbsp;</td>
      <td colspan="3"　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 align="left" >
	     <asp:Button ID="btnPost" Text="回复" runat="server" />
        <div align="left"></div></td>
    </tr>
  </table>
			 
			 
			 </div></td>
            </tr>
        </table></td>
      </tr>

    </table>
  </div>s
  <input type="hidden" name="MM_insert" value="form1">
</form>
</body>
</body>
</html>

forumrpost.aspx - 源码说明

本页面展示了「用VB实现」中的 forumrpost.aspx 源码文件，采用 ASPX 编程语言编写，共 111 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?