📄 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"> 您的姓名：</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"> 用户姓名：</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"> 信息主题：</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"> 信息内容：</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="提交">
<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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -