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"> </td>
<td colspan="3"><input type="submit" value="发表"></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?