📄 post.aspx
字号:
<%@ 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 MessageBook (email, face, MessageBook, MessageName, Miange, PageUrl, Qicq, title, UserIP) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" %>'
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_MyMessageData") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_MyMessageData") %>'
Expression='<%# Request.Form("MM_insert") = "form2" %>'
CreateDataSet="false"
SuccessURL='<%# "index.aspx" %>'
Debug="true"
><Parameters>
<Parameter Name="@email" Value='<%# IIf((Request.Form("Email") <> Nothing), Request.Form("Email"), "") %>' Type="WChar" />
<Parameter Name="@face" Value='<%# IIf((Request.Form("face") <> Nothing), Request.Form("face"), "") %>' Type="WChar" />
<Parameter Name="@MessageBook" Value='<%# IIf((Request.Form("MessageBook") <> Nothing), Request.Form("MessageBook"), "") %>' Type="WChar" />
<Parameter Name="@MessageName" Value='<%# IIf((Request.Form("MessageName") <> Nothing), Request.Form("MessageName"), "") %>' Type="WChar" />
<Parameter Name="@Miange" Value='<%# IIf((Request.Form("Miange") <> Nothing), Request.Form("Miange"), "") %>' Type="WChar" />
<Parameter Name="@PageUrl" Value='<%# IIf((Request.Form("PageUrl") <> Nothing), Request.Form("PageUrl"), "") %>' Type="WChar" />
<Parameter Name="@Qicq" Value='<%# IIf((Request.Form("Qicq") <> Nothing), Request.Form("Qicq"), "") %>' Type="WChar" />
<Parameter Name="@title" Value='<%# IIf((Request.Form("title") <> Nothing), Request.Form("title"), "") %>' Type="WChar" />
<Parameter Name="@UserIP" Value='<%# IIf((Request.Form("UserIP") <> Nothing), Request.Form("UserIP"), "") %>' Type="WChar" />
</Parameters>
</MM:Insert>
<MM:PageBind runat="server" PostBackBind="true" />
<script runat="server">
Sub sub_off(Src As Object, E As EventArgs)
button1.Enabled="False"
End Sub
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发表新留言</title>
<style type="text/css">
<!--
.style1 {font-size: 14px}
.style3 {font-size: 14px; color: #666666; }
.style4 {color: #666666}
-->
</style>
</head>
<body>
<form name='form2' id="form1" method='POST' runat='server' >
<table width="730" border="0">
<tr>
<td width="103"> </td>
<td width="597"><img src="gif/logo.gif" width="253" height="34"></td>
<td width="16"> </td>
</tr>
<tr>
<td><span class="style3">留言标题：</span></td>
<td><span class="style3">
<input name="title" type="text" id="title" runat="server" >
*必填
<asp:requiredfieldvalidator ControlToValidate="title" Display="Static" EnableClientScript="true" ErrorMessage="对不起！请输入留言标题！" runat="server" />
</span></td>
<td> </td>
</tr>
<tr>
<td><span class="style3">昵 称：</span></td>
<td><span class="style3">
<input name="MessageName" type="text" id="MessageName" runat="server" >
*必填
<asp:requiredfieldvalidator ControlToValidate="MessageName" Display="Static" EnableClientScript="true" ErrorMessage="对不起！请输入你的昵称！" runat="server" />
</span></td>
<td> </td>
</tr>
<tr>
<td><span class="style3">个人主页：</span></td>
<td><span class="style3">
<input name="PageUrl" type="text" id="PageUrl" runat="server" >
<asp:regularexpressionvalidator ControlToValidate="PageUrl" Display="Static" ErrorMessage="对不起！你输入的主页网址格不对！（要http://）" runat="server" ValidationExpression="http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?" />
</span></td>
<td> </td>
</tr>
<tr>
<td><span class="style3">电子邮箱：</span></td>
<td><span class="style3">
<input name="Email" type="text" id="Email" runat="server" >
<asp:regularexpressionvalidator ControlToValidate="Email" Display="Static" EnableClientScript="true" ErrorMessage="对不起！你输入的电子邮箱地址格式不对！" runat="server" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" />
</span></td>
<td> </td>
</tr>
<tr>
<td><span class="style3">QQ号码：</span></td>
<td><span class="style3">
<input name="Qicq" type="text" id="Qicq" runat="server" >
<asp:rangevalidator ControlToValidate="Qicq" Display="Static" ErrorMessage="请输入正确的QQ号码！" ID="rang" MaximumValue="999999999999999" MinimumValue="10000" runat="server" />
</span></td>
<td> </td>
</tr>
<tr>
<td><span class="style3">选择头像：</span></td>
<td><span class="style3"><a href=### onClick=window.open("face.aspx","face","width=400,height=400,resizable=1,scrollbars=1") title=点击选择头像><img src="<% if session("face")="" then
response.write("face/face1.GIF")
else
response.write(session("face"))
end if%>" width="82" height="90" border=0 id="faceImg"></a>
<input name="face" type="hidden" id="face" value="<% if session("face")="" then
response.write("face/face1.GIF")
else
response.write(session("face"))
end if%>" >
（单击选择头像） </span></td>
<td> </td>
</tr>
<tr>
<td><span class="style3">选择表情：</span></td>
<td><p class="style1 style4">
<input type=radio name=Miange value=Miange/FIL1.GIF checked >
<img src="Miange/FIL1.GIF" border="0" >
<input type=radio name=Miange value=Miange/FIL7.GIF>
<img src="Miange/FIL7.GIF" border="0" >
<input type=radio name=Miange value=Miange/FIL8.GIF>
<img src="Miange/FIL8.GIF" border="0" >
<input type=radio name=Miange value=Miange/FIL11.GIF>
<img src="Miange/FIL11.GIF" border="0" >
<input type=radio name=Miange value=Miange/FIL12.GIF>
<img src="Miange/FIL12.GIF" border="0" > </p>
<p class="style3">
<input type=radio name=Miange value=Miange/FIL5.GIF>
<img src="Miange/FIL5.GIF" border="0" >
<input type=radio name=Miange value=Miange/FIL39.GIF>
<img src="Miange/FIL39.GIF" border="0" >
<input type=radio name=Miange value=Miange/FIL42.GIF>
<img src="Miange/FIL42.GIF" border="0" >
<input type=radio name=Miange value=Miange/FIL50.GIF>
<img src="Miange/FIL50.GIF" border="0" >
<input type=radio name=Miange value=Miange/FIL47.GIF>
<img src="Miange/FIL47.GIF" border="0" ></p></td>
<td> </td>
</tr>
<tr>
<td><span class="style3">留言内容：</span></td>
<td><span class="style3">
<textarea name="MessageBook" cols="65" rows="10" id="MessageBook" runat="server" ></textarea>
*必填
<asp:requiredfieldvalidator ControlToValidate="MessageBook" Display="Static" EnableClientScript="true" ErrorMessage="对不起！请输入留言内容！" runat="server" />
</span></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<div align="left"></div>
<div align="center">
<asp:button ID="button1" runat="server" Text="发表" OnClick="sub_off" />
<input type="reset" name="Submit2" value="重写" runat="server" >
<input name="UserIP" type="hidden" id="UserIP" value="<%= Request.ServerVariables("REMOTE_ADDR")%>" >
<a href="index.aspx">查看留言 </a></div> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><div align="center"><span class="style3"> 程序设计：B.A.D QQ:5414856 </span></div></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form2">
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -