<!--#include file="../../checkLogin.asp"-->
<!--#include file="../../SQLconn.asp"-->
<html>
<head><title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>
<style type="text/css">
<!--
body {
	margin-top: 15px;
	margin-bottom: 10px;
}
-->
</style><body>

<table width="100%" height="495" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="27">
	<div class="header">
	<div class="nav">
        <ul>            
            <li><a href="../UserPhone.asp">个人通信录</a></li>
			<li class="on">内部办公电话</li>
        </ul>
    </div>	
	</td>
  </tr>
  <tr>
   <td height="400" valign="top"   class="NemuMainBox">

 <br>

<%
   '检查权限
       abc=1
       tname=request.cookies("tname") 
       Set MyOAASPObj= Server.CreateObject("YFSchoolOApro.YFSchoolDll")
           if MyOAASPObj.QuanXian(tname,"系统参数")=0 then 
		    abc=0
           end if 
		   set MyOAASPObj=nothing

     '检查权限结束
   
   %>
   <%if abc=1 then  %>
      <form id="form3" name="form3" method="post" action="OfficePhoneSave.asp"  onSubmit="return form_check();">
	  <table width="95%" border="1" align="center" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtablehui"> 
<tr style="background-color:#D6E4FF"  class="TableHeader">      <td colspan="3" valign="middle"  align="center" nowrap class="NemuNot">
	  
      <table width="100%" border="0" align="center" cellspacing="0" bordercolorlight="#11b1ff" bordercolordark="#f0f8ff">
      <tr align="middle">  <td width="5" class="STYLE1">&nbsp;</td>
      <td width="47" height="25" class="STYLE1"><div align="center">序号</div></td>
      <td width="60" align="center" valign="middle" class="STYLE1"><div align="left">
      <label><input name="vid" type="text" class="text" id="vid" size="5" /></label>
      </div></td><td width="64"  class="STYLE1"><div align="center">办公室</div></td> 
      <td width="168"><div align="left">
        <input name="vname1" type="text" class="text" id="vname1" />
      </div></td>
      <td width="51"><div align="center"><span class="STYLE1">分机</span></div></td>
      <td width="168"><div align="left">
        <input name="vname2" type="text" class="text" id="vname2" />
      </div></td>
      <td width="52"><div align="center"><span class="STYLE1">电话</span></div></td>
      <td width="172"><input name="vname3" type="text" class="text" id="vname3" /></td>
      <td width="67"><div align="center"><span class="STYLE1">邮箱</span></div></td>
      <td width="198"><input name="vname4" type="text" class="text" id="vname4" /></td>
      <td width="68"><input name="Submit" type="submit" class="topanniu" value="添加" /></td>
      </tr>
      </table>
	    </td>    </tr>    </table> 
      </form>
 <%end if  %>

    <table width="95%" align="center" border="1" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtable">   
    <tr style="background-color:#D6E4FF"  class="TableHeader">
    <td width="5%"  align="center" nowrap class="STYLE1">序号</td>
    <td  width="25%"  height="30" align="center" nowrap class="STYLE1">办公室
      <div align="center"></div></td>
 	<td width="20%" align="center" nowrap class="STYLE1">分机号码</td> 
	<td width="20%" align="center" nowrap class="STYLE1">电话号码</td>
	<td width="20%" align="center" nowrap class="STYLE1">电子邮箱</td>
   <%if abc=1 then  %>
    <td width="100" align="center" nowrap class="STYLE1">操作</td>
	 <%end if  %>
    </tr>

   
   <%Set Rslist=Server.CreateObject("Adodb.Recordset")
   sqllist="select * from varLong where  name='内部办公电话'  order by vid" 
   Rslist.open sqllist,conn,1,1
   while not Rslist.eof and not Rslist.bof%>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#EFF8FF'">
    <td   height="30" align="center" nowrap class="STYLE1"><%=Rslist("vid")%></td>
    <td  align="center" nowrap class="STYLE1"><%=Rslist("vname1")%></td>
    <td align="center" nowrap class="STYLE1"><%=Rslist("vname2")%></td>
	<td align="center" nowrap class="STYLE1"><%=Rslist("vname3")%></td>
	<td align="center" nowrap class="STYLE1"><%=Rslist("vname4")%></td>
  <%if abc=1 then  %>
    <td align="center" nowrap class="STYLE1">
	<a href="OfficePhoneMod.asp?id=<%=Rslist("id")%>">修改</a>&nbsp;&nbsp;&nbsp;	 
	<a   href= "# "   onclick= "javascript:if(confirm( '您真的要删除记录？ '))href= 'OfficePhoneDel.asp?id=<%=Rslist("id")%>'; "> 删除 </a>
	  </td>	
  <%end if  %>
    </tr>
<%  Rslist.movenext
    wend
%>
</table>

 <p align="center">
		  <input name="button" type="button" class="topanniu" onClick="location='../../main.asp';"  value="返回首页" />
	  </p>


		
 </td>
  </tr>
</table>
</body>
</body>
</html>

