📄 hand2.asp
字号:
<!--#include file="../include/buyok_shop_30_conn.asp"-->
<!--#include file="checkadmin.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>
<%call checkmanage("06")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
</head>
<BODY background="../images/admin/back.gif">
<%
action=request("send")
if action<>"ok" then
name=request("name")
id=request("id")
if id<>"" then
Set rs = conn.Execute("select * from hand where id="&id)
name=rs("fname")
huifu=vbcrlf&vbcrlf&vbcrlf&vbcrlf&"======="&rs("fname")&"于"&rs("riqi")&"发送的消息原文======="&vbcrlf&replace(rs("neirong"),"<font color=darkgray>","")
end if
%>
<table width="98%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px" bordercolor="#333333" cellspacing="0" cellpadding="2">
<form action=hand2.asp method=post name="hand">
<tr class=backs><td colspan=2 class=td height=18>发送站内消息</td></tr>
<tr><td width=20% align=right height="18">发 给 谁 </td><td>
<input type=text
<%
if request("fw")<>"yes" then response.write "value='"&name&"'"
%>"
name="name" size=18 maxlength=16> <img src=../images/admin/memo.gif border=0 alt="请填写本站注册会员的ID<br><font color=red>小秘技：发送给所有人，请填写大写的ALL</font>"></td></tr>
<tr><td width=20% align=right height="18">消息内容 </td><td>
<textarea rows="10" name="neirong" style="width=95%; overflow:auto;"><%=huifu%></textarea>
<tr><td colspan=2>
<INPUT name="send" TYPE="hidden" value="ok">
<INPUT name="back" TYPE="hidden" value="<%=request("back")%>">
<INPUT name=action TYPE="submit" value="发送消息"></td></tr>
</form>
</table>
<%
set rs=nothing
end if
if action="ok" then
if trim(request.form("name"))="" then
response.write "<script language='javascript'>"
response.write "alert('出错了，没有填写收件人！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if request.form("neirong")="" then
response.write "<script language='javascript'>"
response.write "alert('出错了，没有填写要发送的内容！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if len(request.form("neirong"))>500 then
response.write "<script language='javascript'>"
response.write "alert('出错了，您填写的内容太长了，请检查后重新提交！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if request("name")<>"ALL" then
set rs=conn.execute("select * from buyok_user where userid='"&request("name")&"'")
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('出错了，没有找到"&request("name")&"会员，请检查后重新提交！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
end if
sql="select * from hand"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("name")=trim(request.form("name"))
neirong=request.form("neirong")
neirong=replace(neirong,"=======","<font color=darkgray>======")
rs("neirong")=neirong
rs("riqi")=now()
rs("fname")="admin"
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
where=request("where")
if where="" then
url="hand2.asp"
else
url=where
end if
response.write "<script language='javascript'>"
response.write "alert('站内消息发送成功！');"
if request("back")="user" then
response.write "location.href='user1.asp?action=useredit&id="&request("name")&"';"
elseif request("back")="hand1" then
response.write "location.href='hand1.asp';"
elseif request("back")="hand3" then
response.write "location.href='hand3.asp';"
elseif request("back")="hand5" then
response.write "location.href='hand5.asp';"
else
response.write "location.href='hand2.asp';"
end if
response.write "</script>"
response.end
end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -