📄 newmessage.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷

💻 ASP

字号:

<!--#include file="config.ini" -->
<!--#include file="commfunction.inc" -->
<%
strloginid=Request.Form("consignee2")
	dim conn
	dim rs
	set conn=server.CreateObject("adodb.connection")
	conn.Open connstring
if request.Form("message")<>"" then

Dim objmessage
Set objmessage=Server.CreateObject("SmartSales.Messenger")
objmessage.SendMessage
set objmessage=nothing

%>
<script language=javascript>
	window.opener.location.reload();
	window.close();
</script>
<%
end if
%>
<HTML><HEAD><TITLE>发送消息</TITLE>
<LINK href="global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body>
 <form name=form1  method="post"  id=form1>
  <table width="100%" height="100%" border="0" cellpadding="10" cellspacing="1" bgcolor="#DECFAD">
    <tr bgcolor="#EFEFEF"> 
      <td colspan="2" nowrap>发送消息给 
        <select name="consignee2">
            <option value="all">所有人</option>
            <%
			set rsq=conn.execute("select loginid,username from usertable")
			do while not rsq.eof
			%>
				<option value="<%=rsq("loginid")%>"  <%if request("consignee")=rsq("loginid") then response.Write("selected")%>><%=rsq("username")%></option>
			<%
			rsq.movenext
			loop
			%>
          </select>
	  </td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td width=30>内容</td>
      <td> 
        <textarea name="message"  cols="30" rows="6"></textarea>
       
		<%if Request("str")<>"" then%>
		<%Response.Write "===="&name&"在消息中说道：====<br>"%>
		<%Response.Write Request("str")%>
        <%end if%>
        </td>
    </tr>
    <tr bgcolor="#EFEFEF"> 
      <td></td>
      <td style="cursor:hand">&nbsp;&nbsp;<a onclick="form1.submit();"><img src="images/button_confirm.gif" border=0></a>&nbsp;&nbsp;&nbsp;&nbsp;<a onclick="window.close();"><img src="images/button_cancel.gif" border=0></a> 
      </td>
    </tr>
  </table>
</form>
<%
	conn.Close 
	set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -