📄 admin_hand.asp
字号:
<!--#include file="../Comm/subconn.asp"-->
<%
dim cls
if session("admin")="" then
Response.Redirect("admin.asp")
else
if session("flag")<>"0" then
cls = Instr(session("flag"), "client")
if cls <= 0 then
%>
<script language="javascript">
if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
location.href="admin.asp";
else
location.href="quit.asp";
</script>
<%
end if
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<title>站内消息</title>
<style type="text/css"><!--
a:link {color: #FFFFFF;text-decoration: none;}
a:visited {color: #FFFFFF;text-decoration: none;}
a:hover {color: #FFFF99;text-decoration: underline;}
.b{color:#cccc99;font-size:10pt;border:dotted 1px}
--></style>
<script language=javascript>
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
-->
</script>
<meta http-equiv=refresh content=""1;URL=admin_prod.asp?action=cls"">
</head>
<body topmargin="20" bgcolor="#336699" text=#ffffff>
<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="760" height="150" bgcolor="#336699" align="center">
<tr><td width=125 valign="top">
<!--#include file="admin_left.asp"-->
</td>
<td valign="top">
<table border="1" cellpadding="2" cellspacing="4" style="border-collapse: collapse" bordercolor="#222222" width="100%">
<tr><td width="100%">当前位置：<a href="admin.asp">网站管理中心</a>--站内短信</td>
</tr>
<tr>
<td width="100%">
<%
if request("send")="ok" then
if request("name")<>"ALL" then
ssql="select * from usermain where userid='"&request("name")&"'"
set rss=server.createobject("adodb.recordset")
rss.open ssql,conn,1,3
if rss.eof and rss.bof then
response.write "<br> 没有找到 "&request("name")&" 会员， <A HREF='javascript:history.go(-1)'>点击返回重新填写</A><br> "
set rss=nothing
response.end
end if
end if
sql="select * from hand"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
name=request.form("name")
neirong=request.form("neirong")
rs("name")=name
rs("neirong")=neirong
rs("riqi")=now()
rs("fname")="管理员"
rs.update
rs.close
set rs=nothing
if name="ALL" then name="所有"
response.write "<br> 短信成功发送给 "&name&" 会员 <br> "
response.write "<meta http-equiv=refresh content=""2;URL=admin_mesage.asp"">"
else
%>
<form name="add" method="post" action="admin_hand.asp">
<p><font color="#FFFF00">提示：站内短信系统仍在测试中，请尽量不要用站内短信发送机密内容，接收的短信中，若有重要内容，请及时转移保存并删除短信。</font></p>
<table width="99%" align="center" cellpadding="5" cellspacing="1" style="border-collapse: collapse" bordercolor="#222222" border="1">
<tr><td>
<br>
发送对象：<input type="text" name="name" size="21" value='<%=request("name")%>'> [填写网站的注册会员名]
<p>
消息内容：<br>
<textarea rows="10" name="neirong" cols="75"></textarea></p>
<p> <input type="submit" value="发送短信" name=""> <input type="reset" value="重新填写"></p>
<input name="send" type="hidden" value="ok"></td>
</table>
</form>
<%
end if
%>
</td></tr></table>
</td></tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -