addentertongxunlu1111.asp

本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能

<!--#include file="../../Connections/oavbsconn.asp" -->

<%function DbCombox() 

Dim Recordset1__MMColParam
Recordset1__MMColParam = "对所有人群发"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset1__MMColParam = Request("MM_EmptyValue")
End If


Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT 部门  FROM sms部门表  WHERE 部门 <> '对所有人群发' and 开关='开'  ORDER BY 排序 ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

while not Recordset1.eof 
msg = msg & "<option value=""" &Recordset1("部门") & """>" & Recordset1("部门") & "</option>" 
Recordset1.movenext 
wend 
Recordset1.close 
set Recordset1 = nothing 
DbCombox = msg 
End function 

Recordset1_numRows = 0
%>

<style type="text/css">
<!--
.style1 {color: #FFFFFF;
	font-weight: bold;
}
.style3 {color: #FFFFFF}
-->
</style>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#5AAE18">
  <tr>
    <td width="6" height="21"><img src="../../img/bbs/leftlin1.gif" width="6" height="21"></td>
    <td width="936" bgcolor="#5AAE18"><div align="center"><span class="style3"><span class="style1">通讯录</span></span></div></td>
    <td width="6" height="21">&nbsp;</td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><form name="form1" method="post" action="">
      <table width="100%" border="1">
        <tr>
          <td width="9%">姓名</td>
          <td width="19%"><input name="textfield" type="text" value="<%=session("names")%>"></td>
          <td width="12%"><select name="userdept">
            <option value="%" selected>选择部门</option>
            <%=DbCombox()%>
          </select></td>
          <td width="36%">&nbsp;</td>
          <td width="12%">&nbsp;</td>
          <td width="12%">&nbsp;</td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
      </table>
    </form></td>
  </tr>
</table>
<p>&nbsp;</p>