📄 sendmess.asp
字号:
<% if Session.Contents("UserName")="spc" then %>
<% username=Session.Contents("UserName") %>
<html>
<head>
<title>站长公告</title>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<style type="text/css">
td{font-size:9pt;}
A:link {COLOR: #000000; TEXT-DECORATION: none; font-size: 9pt}
A:active {COLOR: #000000; TEXT-DECORATION: none; font-size: 9pt}
A:visited {COLOR: #000000; TEXT-DECORATION: none; font-size: 9pt}
.song9 { font-family: 宋体; font-size: 9pt}
</style>
</head>
<script language="javascript">
<!--
function saysfocus( )
{
//top.main1.scroll(0, 65000);
//setTimeout('scrollWindow()', 200);
document.inputform.message.focus();
//parent.userlist.location.reload();
}
-->
</script>
<body bgcolor=#FEF7ED topMargin="4" MARGINWIDTH="5" MARGINHEIGHT="4">
<%
if request("message")<>"" then '把request("submit")改成了request("message") /by c.t. 14:46 19991020
if trim(request("message"))<>"" then
from=request("myself")
towhom=request("to")
message=request("message")
mymessage=from&"&&"&towhom&"&&"&message
Application.Lock
application("message")=Application("message")&mymessage&"||"
Application.UnLock
Response.write "<p align=center>"&from&",你的信息发送成功</p>"
%>
<script language="javascript">
<!--
window.self.close();
-->
</script>
<%else
Response.Write "<p align=center><font color=red>发信内容不能为空</font>"
end if
else
%>
<p align=center>发信息给:在线的所有居民</p>
<form action=sendmess.asp method=post name=inputform >
<div align="center">
<center>
<table border="1" width="60%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" height="124">
<tr>
<td width="29%" height="43" nowrap><p align="center">接收对象</td></p>
<td width="71%" height="43">
<input name=to value=<%=reName%> size="40">
<input type=hidden name=myself value=<%=UserName%> size="20">
</td>
</tr>
</center>
<tr>
<td width="29%" height="43">
<p align="center">信息</p>
</td>
<center>
<td width="71%" height="43"><input type=text name=message size=40 maxlength=100></td>
</tr>
<tr>
<td width="100%" height="32" colspan="2">
<p align="center"> <input type="submit" name=submit1 value="发送"> <input type="reset" value="取消" name="B2">
</td>
</tr>
</center>
</form>
</table>
<script language="javascript">
<!--
saysfocus();
-->
</script>
</body>
</html>
<%end if
else%>
<script language=vbscript>
MsgBox "你不是站长！"
location.href = "javascript:history.back()"
</script>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -