家庭/个人应用

开发平台：
ASP/ASPX

senduser.asp：源码内容
							<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="security.asp"-->
<%
if session("flag")>1 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if
%>
<%dim userName
userName=replace(trim(request("userName")),"'", "")%>
<link rel="stylesheet" type="text/css" href="inc/Admin_STYLE.CSS">
<html>
<style type="text/css">
<!--
.样式1 {font-size: 9px}
-->
</style>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>---给用户发信息</title>
<LINK href="images/forum_admin.css" type=text/css rel=stylesheet>
<style type=text/css>
body  {
	background:#799AE1;
	margin:0px;
	font:9pt 宋体;
	background-color: #FFFFFF;
}
table  { border:0px; }
td  { font:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover  { color:#428EFF;text-decoration:underline; }
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title  { }
.menu_title span  { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
.样式3 {font-size: 9pt}
</style>
</head>
<br style="line-height:5px;">
 
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
	  <td> 
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
		  <tr> 
			<td width="9" rowspan="2"></td>
			<td width="512" class="12v"> 
			  <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
				<tr> 
				  <td class="12v" > 
					<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
					  <tr> 
						<td> 
						  <table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr class="title"> 
							<tr> 
							  <td height="22" colspan="2" > 
								<div align="center" class="title"><b>您正在给用户<font color=#0000FF><%=userName%></font>发信息:</b></div></td>
							</tr>
							<tr> 
							  <td colspan="2" align="center"> 
									<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
								      <form name="formmsg" method="post" action="msgSave.asp">
									  <tr> 
										<td align="center">
                                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                        <tr bgcolor="#CCCCFF"> 
                                          <td width="72" bgcolor="#CCCCFF" class="tdbg">&nbsp;&nbsp;您的姓名：</td>
                                          <td width="396" bgcolor="#CCCCFF" class="tdbg"> <input name="rvauthor" type="text" class="text" id="form1" value="<%=session("loginname")%>" size="25" maxlength="20"></td>
                                        </tr>
                                        <tr bgcolor="#CCCCFF"> 
                                          <td bgcolor="#CCCCFF" class="tdbg">&nbsp;&nbsp;用户姓名：</td>
                                          <td bgcolor="#CCCCFF" class="tdbg"><input name="userName" type="text" class="text" id="userName" value="<%=userName%>" size="25" maxlength="25">                                          </td>
										</tr>
                                        <tr bgcolor="#CCCCFF"> 
                                          <td width="72" bgcolor="#CCCCFF" class="tdbg">&nbsp;&nbsp;信息主题：</td>
                                          <td width="396" bgcolor="#CCCCFF" class="tdbg"> <input name="rvname" type="text" class="text" id="form3" value="请输入您评论的题目" size="40" maxlength="20" onFocus="this.value=''">                                          </td>
                                        </tr>
                                        <tr bgcolor="#CCCCFF"> 
                                          <td width="72" bgcolor="#CCCCFF" class="tdbg">&nbsp;&nbsp;信息内容：</td>
                                          <td bgcolor="#CCCCFF" class="tdbg">　</td>
                                        </tr>
                                        <tr> 
                                          <td colspan="3" align="center" class="tdbg"> <textarea name="rvcontent" cols="60" rows="10" class="text" id="form4"></textarea> 
                                            <br>                                            <div align="center"> 
                                              <input name="Submit" type="submit" class="button" value="提交">
                                              &nbsp;&nbsp; 
                                              <input name="Submit2" type="reset" class="button" value="重置">
                                          </div></td>
                                        </tr>
                                      </table>
									    </td>
									  </tr>
									  <tr> 
                                       <td height="2" align="right" bgcolor="#E1F4EE"> 
                                        </td>
									  </tr>
								    </form>
								</table>
							 </td>
							</tr>
							<tr>
							  <td colspan="2" align="center" class="tdbg"><b><span class="样式1"><span class="样式3">给所有游客会员请用<font color="#FF0000">allusers</font>;<br>
给所有普通会员请用<font color="#FF0000">alluser</font>;<br>
给所有黄金会员<font color="#FF0000">moneyuser</font>;<br>
给所有VIP和钻石会员请用<font color="#FF0000">vipuser</font><font color="#FF0000"></font></span></span></b></td>
							</tr>
						  </table>
						</td>
					  </tr>
					</table>
				  </td>
				</tr>
			  </table>
			</td>
			<td class="12v" width="10" rowspan="2"></td>
		  </tr>
		</table>
	  </td>
  </tr>
</table>
 </body>
</html>
<script language="VBScript" type="text/VBScript">
	   function formmsg_onSubmit()
		  if document.formmsg.rvauthor.value="" then
			  alert"对不起，您应该输入姓名！"
			  formmsg.rvauthor.focus()
			  formmsg_onSubmit=false
		  elseif  document.formmsg.rvname.value="" or document.formmsg.rvname.value="请输入您评论的题目"！ then
				alert"对不起，您应该输入评论的题目！"
				formmsg.rvname.focus()
				formmsg_onSubmit=false  
		   elseif document.formmsg.userName.value="" then
			   alert"对不起，您还没说要送给谁呢！"
			   formmsg.userName.focus()
			   formmsg_onSubmit=false
		   elseif document.formmsg.rvcontent.value="" then
			   alert"对不起，您的信息还没有任何内容！"
			   formmsg.rvcontent.focus()
			   formmsg_onSubmit=false
		   elseif len(document.formmsg.rvcontent.value)>800 then
			   alert "对不起，评论内容不能大于800个字节！"
			   formmsg.rvcontent.focus()
			   formmsg_onSubmit=false
			end if
	   end function
	</script>

						