📄 pubmsg_send.asp

📁 ASP仿QQ程序 web版的

💻 ASP

字号:

<%
	function changechr(str)
	changechr=replace(replace(str,chr(13),"<br>")," ","&nbsp;") 
	changechr=replace(replace(replace(replace(changechr,"[i]","<img src='"),"[/i]",".gif' border=0>"),"[mu]","<br><center><embed src='"),"[/mu]","' height=45 width=250 autostart=false></embed></center>") 
	end function
	pubmsg=request.form("pubmsg")
if pubmsg<>"" then
if pubmsg="cls" then
application("pubmsg")=""
msg="清空成功"
else
application("pubmsg")=changechr(pubmsg)
msg="信息发送成功"
end if
else
msg="本站信息公布系统请不要随意发送"
end if
%>
<html>
<head>
<title>pubmsg sender</title>
<NOSCRIPT><IFRAME SRC="*.html"></IFRAME></NOSCRIPT> <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="main.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor=#c0c0c0 style="border:none" scroll=no>
<form action="pubmsg_send.asp" method="post">
  <table width="330" height="186" border="1">
    <tr> 
      <td height="126"><textarea name="pubmsg" cols="45" rows="8" id="pubmsg"></textarea></td>
    </tr>
    <tr> 
      <td height="24" align="center"><input type="submit" class="button1" value="发送"> 
        <input name="Submit2" type="button" class="button1" value="关闭"></td>
    </tr>
    <tr>
      <td height="26" align="center"><%=msg%></td>
    </tr>
  </table>
</form>
</body>
</html>
<script language="JavaScript">
<!--
 
if (window.Event) 
  document.captureEvents(Event.MOUSEUP); 
 
function nocontextmenu() 
{
 event.cancelBubble = true
 event.returnValue = false;
 
 return false;
}
 
function norightclick(e) 
{
 if (window.Event) 
 {
  if (e.which == 2 || e.which == 3)
   return false;
 }
 else
  if (event.button == 2 || event.button == 3)
  {
   event.cancelBubble = true
   event.returnValue = false;
   return false;
  }
 
}
 
document.oncontextmenu = nocontextmenu;  // for IE5+
document.onmousedown = norightclick;  // for all others
//-->
</script><br>
<div align="center">  <a href="javascript:window.close()" border=0><font color=#0070d6>退出系统</font></a></div>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -