📄 sendm.asp

📁 asp构建网站bbs.采用B/S架构

💻 ASP

字号:

<%
'Option Explicit
'ON ERROR RESUME NEXT
%>

<html>
<head>
<title>rIck small chat</title>

</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script language="VBScript">
Sub Button_OnClick()
if Document.mm.message.Value<>"" then
if right(Document.mm.message.Value,1)="\" and not right(Document.mm.message.Value,2)="\\" then Document.mm.message.Value=Document.mm.message.Value&"\"
parent.pros.location="pros.asp?message=" & Document.mm.message.Value
Document.mm.message.Value=""
Document.mm.message.focus()
end if
end sub
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
  <tr><form name="mm" method="post" action="pros.asp" target="pros">
    <td>
        <input type="text" name="message" value="<%=request("message")%>" style="font-size: 12px; color: #000000; border: 1px solid; background-color: #5894D2; border-color: #F8D927 #F8D927 #F8D927; font-variant: normal" maxlength="50">
        <img id="sendmimg" src="images/send2.gif" width="45" height="20" onmousedown="sendmimg.src='images/send1.gif'" onmouseup="sendmimg.src='images/send2.gif'" align="absbottom" onclick="Button_OnClick()"> 
        <input type="hidden" name="send" value="true">
    </td></form>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -