📄 mes_write.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!-- #include file="inc_session.asp" -->
<%
dim sSender
dim sReceiver
dim bReply
sSender=GetSession()
sReceiver=Request("Receiver")
bReply=Request("reply")
if bReply=1 then
bReply=1
else
bReply=0
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WebQQ - 发送信息</title>
<link rel="stylesheet" type="text/css" href="../main.css">
</head>
<body bgcolor="#D4D0C8">
<table border="0" width="100%" height="330" bgcolor="#687088">
<tr>
<td width="100%" valign="top" bgcolor="#FFFFFF">
<table border="0" width="100%">
<tr>
<td width="18%"><img border="0" src="images/logo_qq.gif" width="32" height="32"></td>
<td width="67%"><b><%=sSender%></b> - 发送信息</td>
<td width="15%" align="right"><a href="mes_INDEX.ASP">返回</a></td>
</tr>
<tr>
<td width="18%" height="1"><img border="0" src="images/dotline.gif" width="1" height="1"></td>
<td width="67%" height="1" bgcolor="#FFCC00"><img border="0" src="images/dotline.gif" width="1" height="1"></td>
<td width="15%" height="1" bgcolor="#ECE9AC"><img border="0" src="images/dotline.gif" width="1" height="1"></td>
</tr>
</table>
<!-- CONTENT START -->
<form method="post" action="mes_save.asp" name="frmWrite">
<% if sSender<>"" then %>
<table border="0" width="100%" cellspacing="1" bgcolor="#f3f3f3">
<tr>
<td width="21%" bgcolor="#eaeaea" height="25" align="right">接收者：</td>
<td width="79%" bgcolor="#ffffff" height="25"><input type="text" name="Receiver" size="25" value="<%=sReceiver%>" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid"></td>
</tr>
<tr>
<td width="21%" bgcolor="#eaeaea" align="right">内容：<p>
限100字
</td>
<td width="79%" bgcolor="#ffffff">
<textarea rows="6" name="content" cols="24" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid"></textarea>
</td>
</tr>
<tr>
<td width="21%" bgcolor="#eaeaea" align="right">表情：</td>
<td width="79%" bgcolor="#ffffff">
<table border="0" width="100%" bgcolor="#E0E0E0" cellspacing="1">
<%
dim x
dim y
dim iNum
iNum=0
for x=1 to 3
Response.Write "<tr>"
for y=1 to 6
iNum=iNum+1
if iNum<=32 then
%>
<td bgcolor="#FFFFFF"><a href="javascript:void(0);" onclick="InsertFace('<%=iNum%>')"> <img border="0" src="images/face/<%=iNum%>.gif" alt="<%=iNum%>" width="26" height="26"></a></td>
<%
else
%>
<td bgcolor="#FFFFFF"></td>
<%
end if
Response.Write vbcrlf
next
Response.Write "</tr>" & vbcrlf
next
%>
</table>
</td>
</tr>
</table>
<input type="hidden" name="reply" value="<%=bReply%>">
<p align="center"><input type="submit" value="发送" name="CmdSubmit"> <input type="reset" value="重写" name="CmdReset"></p>
<% else %>
<table border="0" width="100%" cellspacing="1" bgcolor="#f3f3f3">
<tr>
<td width="100%" bgcolor="#e0e0e0"><b>无法发送信息!请先登录或注册成为新会员</b></td>
</tr>
</table>
<% end if %>
</form>
<!-- CONTENT END -->
</td>
</tr>
</table>
</body>
</html>
<script language="javascript">
function Insert(sPrompt,sPrefix,sPostfix)
{
var sURL = prompt(sPrompt, "");
if (sURL)
{
var sTmp;
sTmp=sPrefix + sURL + sPostfix;
document.frmWrite.content.value+=sTmp;
document.frmWrite.content.focus();
}
return;
}
function InsertFace(inum)
{
var sTmp;
sTmp='[FACE]' + inum + '[/FACE]';
document.frmWrite.content.value+=sTmp;
document.frmWrite.content.focus();
return;
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -