📄 send_zn_message.asp

📁 一个综合类整站
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%if session("china_admin")="" then
response.redirect "login.asp"
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发送站内消息</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body>
<%
messagelxfs=HtmlEncode(trim(request.form("messagelxfs")))
if messagelxfs<>"" then
messagetext=HtmlEncode(trim(request.form("messagetext")))
messagename=HtmlEncode(trim(request.form("messagename")))
uid=HtmlEncode(trim(request.form("uid")))
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If ip = "" Then 
ip = Request.ServerVariables("REMOTE_ADDR") 
end if
sql="select * from china_message"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,3
rs2.addnew
rs2("messagename")=messagename'发送人
rs2("messagelxfs")=messagelxfs'标题
rs2("messagetext")=messagetext'内容
rs2("uid")=uid
rs2("ip")=ip
rs2("zn")="yes"
rs2.update
rs2.close  
set rs2=nothing 
response.redirect "ok.asp"                                                                
end if
%>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function checkmessage()
{   
    if (document.form.messagename.value.length<1)
	{
        alert("请填写发送人！");
        document.form.messagename.focus();
        return false;
    }
    if (document.form.messagetext.value.length<1)
	{
        alert("请填写内容！");
        document.form.messagetext.focus();
        return false;
    }
	    if (document.form.messagetext.value.length>1000)
	{
        alert("请把字数控制在1000以内！");
        document.form.messagetext.focus();
        return false;
    }
}
//-->
</SCRIPT>
<form name="form" method="post" action="" onsubmit="return checkmessage()">
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
  <tr>
    <td height="20" bgcolor="#799AE1" align="center">
      <table width="98%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="center"><font color="#FFFFFF" style="font-size:14px">发 送 站 内 消 息</font></td>
          <td width="35">　</td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"> <br>
        <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#D6DFF7">
          <tr bgcolor="#FFFFFF">
            <td width="27%" height="26" align="right">发送人：</td>
            <td><input name="messagename" type="text" id="messagename" size="20" maxlength="20"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="26" align="right">接收人：</td>
            <td><select name="uid" size="1" id="select" style="width:152 ">
              <option value="all">全部会员</option>
              <%set rs_lei = server.createobject("adodb.recordset")                                            
			sql = "select * from china_user"                                            
			rs_lei.open sql,conn,1,1                                          
			do while not rs_lei.eof%>
              <option value="<%=rs_lei("uid")%>"><%=rs_lei("uid")%>&nbsp;(<%=rs_lei("username")%>)</option>
              <%rs_lei.movenext                                        
		  loop                                                
		  rs_lei.close                                       
		  set rs_lei = nothing%>
            </select></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="26" align="right">标&nbsp; 题：</td>
            <td><input name="messagelxfs" type="text" id="messagelxfs2" size="40" maxlength="50"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right" valign="top">内&nbsp; 容：</td>
            <td><textarea name="messagetext" cols="39" rows="5"></textarea>
              <input name="id" type="hidden" value="<%=request("id")%>"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="30">　</td>
            <td><input type="submit" name="Submit" value="发送消息">
&nbsp;
<input type="reset" value="取消发送" name="reset"></td>
          </tr>
        </table>
        <br>
    </td>
  </tr>
</table></form>                                               
</body>                                                                        
</html>
⌨️ 快捷键说明

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