📄 senduser.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="primary_admin.asp"-->
<%dim userName
userName=trim(request("userName"))%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>---给用户发信息</title>
<link href="http://www.hipmovie.com/images/CNFNOT.ICO" rel="shortcut icon">
<link rel="stylesheet" href="../style/style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" BACKGROUND="../index1.files/background-extender.gif">
<br style="line-height:5px;">
<table width="530" border="1" cellspacing="0" cellpadding="1" bordercolor="#CCCCFF" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9" background="../images/back_3.gif" rowspan="2"></td>
<td 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 width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td colspan="2" bgcolor="#00FFFF" >
<b>您正在给用户<font color=#0000FF><%=userName%></font>发信息:</b></td>
</tr>
<tr>
<td colspan="2" align="center">
<table width="100%" border="0" align="center" cellpadding="10" cellspacing="0" bgcolor="#00FFFF">
<form name="formmsg" method="post" action="msgSave.asp">
<tr>
<td align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr bgcolor="#CCCCFF">
<td width="72"> 您的姓名：</td>
<td width="396" bgcolor="#CCCCFF"> <input name="rvauthor" type="text" class="text" id="form1" value="<%=session("loginname")%>" size="25" maxlength="20">
</td>
</tr>
<tr bgcolor="#CCCCFF">
<td> 用户姓名：</td>
<td bgcolor="#CCCCFF"><input name="userName" type="text" class="text" id="userName" value="<%=userName%>" size="25" maxlength="25">
</td>
</tr>
<tr bgcolor="#CCCCFF">
<td width="72"> 信息主题：</td>
<td width="396" bgcolor="#CCCCFF"> <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"> 信息内容：</td>
<td> </td>
</tr>
<tr bgcolor="#CCCCFF">
<td colspan="3" align="center"> <textarea name="rvcontent" cols="60" rows="10" class="text" id="form4"></textarea>
<br> <div align="center">
<input name="Submit" type="submit" class="button" value="提交">
<input name="Submit2" type="reset" class="button" value="重置">
</div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="2" align="right" bgcolor="#CCCCFF">
</td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td colspan="2" align="center" bgcolor="#00FFFF">
<b>给所有用户请用<font color="#FF0000">_alluser2020</font>;已付费用户用
<font color="#FF0000">_moneyuser2020</font></b></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td class="12v" background="images/back_3.gif" width="9" 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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -