📄 senduser.asp

📁 网上流行的MOVE站点
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="security.asp"-->
<%dim userName
userName=replace(trim(request("userName")),"'", "")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>---给用户发信息</title>
<LINK href="../css/style.css" type=text/css rel=stylesheet>
</head>
<SCRIPT language=javascript>
<!--
var state=0
window.resizeTo(370,355);
window.moveTo((screen.width-450)/2, (screen.height-450)/2);
//-->
</SCRIPT>
<body bgcolor="#000000"  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu=self.event.returnValue=false onselectstart="return false">
<TABLE width=350 border=0 align="center" cellPadding=0 cellSpacing=0>
<form name="formmsg" method="post" action="msgSave.asp">
<TR> 
    <TD align="center" class="title"><img src="../images/mixtop.gif"   width="350" height="43"></TD>
  </TR>
  <TR> 
    <TD height="27" align="center" background="../images/mediatop2.gif" class="title"><b>您正在给会员发送短信息</b></TD>
  </TR>
<TR> 
    <TD valign="top" background="../images/mixmediabg.gif"  > <table width="90%" border="0" align="center">
        <tr> 
      <tr>
        <td bgcolor=fff000 align="center">您的姓名：<input class="button2" name="rvauthor" type="text" class="text" id="form1" value="盗帅楚留香" size="20" maxlength="20" readonly><br>
        用户姓名：<input name="userName" type="text" class="button2" id="userName" value="<%=userName%>" size="20" maxlength="20"><br>
        信息主题：<input class="button2" name="rvname" type="text" class="text" id="form3" value="香帅影视网[公告]" size="20" maxlength="20" onFocus="this.value=''"><br>
        <textarea name="rvcontent" cols="40" rows="5" class="text" id="form4" style="background-color: #EEFFAD"></textarea><br>请你在上面填写你要发送的<font color=cc3300><b>《消息内容》</b></font><br>
        <input name="Submit" type="submit" class="button1" value="开 始 发 送">    <input name="Submit2" type="reset" class="button1" value="重 写 一 遍"></td>
    </tr>
    </table></TD>
  </TR>
  <tr> 
    <td><img src="../images/mixend.gif"   width="350" height="54"></td>
  </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>
</body>
</html>
⌨️ 快捷键说明

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