⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sendmess.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题
💻 ASP
字号:
<% if Session.Contents("UserName")="spc" then  %>
<% username=Session.Contents("UserName") %>

<html>
<head>
<title>站长公告</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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}
.put {
	BORDER-RIGHT: #f7e0e0 1px solid; BORDER-TOP: #f7e0e0 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7e0e0 1px solid; COLOR: #000000; BORDER-BOTTOM: #f7e0e0 1px solid; BACKGROUND-COLOR: white; PADDING-RIGHT: 1px; PADDING-LEFT: 1px;PADDING-BOTTOM: 1px; PADDING-TOP: 1px;
}
.put1 {
	BORDER-RIGHT: #f7e0e0 1px solid; BORDER-TOP: #f7e0e0 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7e0e0 1px solid; COLOR: #000000; BORDER-BOTTOM: #f7e0e0 1px solid; BACKGROUND-COLOR: #fff4f4; PADDING-RIGHT: 1px; PADDING-LEFT: 1px;PADDING-BOTTOM: 1px; PADDING-TOP: 1px; HEIGHT: 18px;
}
</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
   

%>
<form action=sendmess.asp method=post name=inputform >

  <table border="0" bordercolorlight="#000000" cellspacing="1" cellpadding="3" bgcolor="#FFCCCC" align="center">
    <tr> 
      <td colspan="2" align="center" nowrap height="25" bgcolor="#ffeeee">发信息给:在线的所有居民 
      </td>
    </tr>
    <tr> 
      <td width="65" align="center" nowrap bgcolor="#ffeeee">接收对象</td>
      <td bgcolor="#fff7f7"> 
        <input  name=to value=<%=reName%> size="25" class="put">
        <input  type=hidden name=myself value=<%=UserName%> size="20">
      </td>
    </tr>
    <tr> 
      <td width="65" align="center" bgcolor="#ffeeee"> 发送信息 </td>
      <td bgcolor="#fff7f7"> 
        <input type=text name=message size=25 maxlength=100 class="put">
      </td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td colspan="2"> 
        <input type="submit" name=submit1 value="发送" class="put1">&nbsp;&nbsp;
        <input type="reset" value="取消" name="B2" class="put1">
      </td>
    </tr>
  </table>
</form>    
<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 + -