forumpost.aspx

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

ASPX
87
字号
<%@ 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 (ForTitle, ForPostName, FortPostMail, ForContent) 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='<%# "ForumList.aspx" %>'
Debug="true"
>
  <Parameters>
    <Parameter Name="@ForTitle" Value='<%# IIf((Request.Form("ForTitle") <> Nothing), Request.Form("ForTitle"), "") %>' Type="WChar" />
    <Parameter Name="@ForPostName" Value='<%# IIf((Request.Form("ForPostName") <> Nothing), Request.Form("ForPostName"), "") %>' Type="WChar" />
    <Parameter Name="@FortPostMail" Value='<%# IIf((Request.Form("FortPostMail") <> Nothing), Request.Form("FortPostMail"), "") %>' Type="WChar" />
    <Parameter Name="@ForContent" Value='<%# IIf((Request.Form("ForContent") <> Nothing), Request.Form("ForContent"), "") %>' Type="WChar" />
  </Parameters>
</MM:Insert>
<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" %>'
Debug="true"
></MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
	font-size: large;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<form method="post" name="form1" runat="server">
  <table align="center">
    <tr valign="baseline">
      <td height="23" colspan="4" align="right" nowrap><div align="left" class="style1">
        <div align="center">发表新帖子
          <hr>
        </div>
      </div></td>
    </tr>
    <tr valign="baseline">
      <td height="23" align="right" nowrap><div align="right">发表主题:</div></td>
      <td colspan="3"><asp:textbox id="ForTitle" TextMode="SingleLine" Columns="64" runat="server" />
      </td>
    </tr>
    <tr valign="middle">
      <td height="26" 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></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></td>
    </tr>
    <tr valign="baseline">
      <td align="right" valign="top" nowrap>内容:</td>
      <td colspan="3"><asp:textbox id="ForContent" TextMode="MultiLine" Columns="50" runat="server" Rows="10" />
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td colspan="3"><input type="submit" value="发表"></td>
    </tr>
  </table>
  <input type="hidden" name="MM_insert" value="form1">
</form>
<p>&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

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