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

📄 sendtoids.asp

📁 功能齐全的oa系统
💻 ASP
字号:
<%option explicit%>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/GetTrueNames.asp" -->
<%
	Dim ObjDB,StrSQL
	Dim StrIDs,StrTrueNames
	Dim StrMsg
	
	StrIDs = Request.QueryString("IDs")
	StrMsg = Request.QueryString("Msg")
	If StrMsg<>"" Then StrMsg = Replace(StrMsg,"\n",Vbcrlf)
	
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	
	If StrIDs<>"" Then StrTrueNames = Trim(Replace(GetTrueNames(ObjDB,StrIDs),Vbcrlf," ") & " ")
%>

<html><head><title>消息群发</title>
<style><!--td           { font-size: 12px }

body         { border: 0 solid #dedfde }

--></style></head>
<body bgcolor="#DEDFDE" topmargin="0" leftmargin="0" topmargin="0">

<script>
function SetInfo(intToID,strToName){
	document.forms[0].ToID.value = intToID
	document.forms[0].ToName.value = strToName
	var Todays = new Date();
	document.forms[0].D.value = Todays.getYear() + "-" + (Todays.getMonth()+1) + "-" + Todays.getDate()
	document.forms[0].T.value = ((Todays.getHours() < 10) ? "0" : "") + Todays.getHours() + ((Todays.getMinutes() < 10) ? ":0" : ":") + Todays.getMinutes() + ((Todays.getSeconds() < 10) ? ":0" : ":") + Todays.getSeconds()
	document.forms[0].Message.focus();
}

function InitInfo(){
	var userinfo = window.dialogArguments;
	SetInfo(userinfo[0],userinfo[1]);
}

function SelectAccountIDs(FormID,FormName){
	var r =window.showModalDialog("../Account/Index.asp?IDs=" + FormID.value + "&R=" + Math.random(),"AccountWin","dialogHeight=400px;dialogWidth=200px;resizable=No;status=1;scrollbars=1");
	if(r!=null){
	FormID.value = r[0]
	FormName.value = r[1]
	}
}

</script>
<form action="SendMsg.asp" method="post" onsubmit="this.butSend.disabled=true;"> 
<input type=hidden name=ToIDs value="<%=StrIDs%>">
<table border=0 cellpadding="2" align=center>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%" style="border-left: 1 solid #808080; border-right: 1 solid #FFFFFF; border-top: 1 solid #808080; border-bottom: 1 solid #FFFFFF">
<tr>
<td style="border-left: 1 solid #FFFFFF; border-right: 1 solid #808080; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080">

<table border="0" cellspacing="2" width="100%">
<tr>
<td>发给:<input type="text" name="ToName" value="<%=StrTrueNames%>" size="38" style="width:170;font-family: 宋体;font-size: 12px; border-style: inset; border-width: 1">
<input value="选择.." onclick="SelectAccountIDs(ToIDs,ToName)" type=button style="font-size: 12px; font-family: 宋体; border-style: ridge; border-width: 1"></td>
<td rowspan="2" style="border-style: inset; border-width: 1"><img src="/images/oa/private/usermessage/logo.gif" width=40 height=40></td>
</tr>
<tr>
<td>日期:<input type="text" name="D" value="<%=date%>" size="15" style="width:100;font-family: 宋体;font-size: 12px; border-style: inset; border-width: 1" value="">
时间:<input type="text" name="T" value="<%=time%>" size="15" style="width:100;font-family: 宋体;font-size: 12px; border-style: inset; border-width: 1" value=""> 
</td>
</tr>
</table>
  


</td>
</tr>
</table>
  
</td>
<tr>
<td>
  <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
      <td width="50%">输入信息(少于2000字)</td>
      <td width="50%">
        <p align="right"></td>
    </tr>
    <tr>
      <td width="100%" colspan="2"><textarea rows=8 cols=50 style="width: 340; font-size: 12px; font-family: 宋体; border-style: inset; border-width: 1" name="Message"><%=StrMsg%></textarea></td>
    </tr>
  </table>
</td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="50%"></td>
    <td width="50%">
      <p align="right">
      <input type="button" value="取消发送" onclick="top.window.close()" id=button1 name=button1 style="font-size: 12px; font-family: 宋体; border-style: ridge; border-width: 1"> 
      <input type="submit" value="发送讯息" id=butSend name=butSend style="font-size: 12px; font-family: 宋体; border-style: ridge; border-width: 1"></td>
  </tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -