phone_config.asp

来自「网络办公系统源码」· ASP 代码 · 共 102 行

<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
	if  ChkAdmin("oa_configsms")=False then
  		call message("您没有配置短信的权限","back")
   		call endexit()
	end if


dim SitePhoneConfig
set prs=conn.execute("select SitePhoneConfig from oa_company where id="&session("companyid"))
	if not prs.eof then
		SitePhoneConfig=cint(prs(0))
	end if
prs.close
set prs=nothing


if  ChkAdmin("Phone_set")=False then
   call message("您没有管理 手机设置 权限","back")
   call endexit()
end if


action = Request("action")
if action = "save" then
    U_SitePhoneConfig=request("SitePhoneConfig")
    UserName=request("UserName")
    UserID=request("UserID")
	UserPass=request("UserPass")
	UserID2=request("UserID2")
    UserName2=request("UserName2")
	UserPass2=request("UserPass2")
	
	'Call ExeSql("Update oa_PhoneConfig set UserName='"&UserName&"',UserID='"&UserID&"',UserPass='"&UserPass&"' Where Id=1")
	'Call ExeSql("Update oa_PhoneConfig set UserName='"&UserName2&"',UserID='"&UserID2&"',UserPass='"&UserPass2&"' Where Id=2")	
	call ExeSql("Update oa_company set SitePhoneConfig="&request("SitePhoneConfig")&" Where id="&session("companyid")&"")
	
	if err.number=0 then
		call message("手机设置更新成功","?")
	else
		call message("更新失败","back")
	end if
	call endexit()
end if

	Sql="select top 1 * from oa_PhoneConfig Where ID=1"
	Call OpenRs(VData,Sql,1)
		
%>
<link href="../img/Style.css" type=text/css rel=stylesheet>
<table width="96%"  border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
	<form name=myform method="POST" action="?action=save">
	<tr>
		<th colspan="2" align="center"> 手机设置</th>
	</tr>
	<tr>
	  <td width="11%" align="right"  class="TableRow1">发送设置：</td>
      <td width="89%"  class="TableRow1"><input type="radio" name="SitePhoneConfig" value="0"<%If CInt(SitePhoneConfig) = 0 Then Response.Write (" checked")%>> 
      关闭 
        <input type="radio" name="SitePhoneConfig" value="1"<%If CInt(SitePhoneConfig) = 1 Then Response.Write (" checked")%>>
打开</td>
  </tr>
	<tr>
	  <td colspan="2" class="TableRow1">&nbsp;</td>
  </tr>
	
	<tr>
	<td colspan="2" class="TableRow1">	
<%
	PSql="select * from oa_PhoneConfig Where companyid="&session("companyid")
	Call OpenRs(PData,PSql,1)
%>
	<fieldset style="cursor: default"><legend>&nbsp;手机设置(以下帐号和密码由红金羚软件分配，请无随便改动)</legend>
	<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
	
		<tr>
			<td width="10%" align="right" class="TableRow1"><div class="divbody">ID号：</div></td>
			<td class="TableRow1" width="90%">
			<input name="UserID2" type="text" disabled="true" value="<%=PData("UserID")%>" size="35"></td>
		</tr>
	
		<tr>
		  <td width="11%" align="right" class="TableRow1"><div class="divbody">帐号：</div></td>
		  <td width="89%" class="TableRow1"><input name="UserName2" type="text" disabled="true" value="<%=PData("UserName")%>" size="25" /></td>
	  </tr>
		<tr>
		  <td align="right" class="TableRow1"><div class="divbody">密码：</div></td>
		  <td class="TableRow1"><input name="UserPass2" type="password" disabled="true" value="<%=PData("UserPass")%>" size="25" /></td>
	  </tr>		
	</table>
	</fieldset>	</td>
	</tr>
	<tr>
	<td colspan="2" align="center" class="TableRow2"><input type="submit" value="保存设置" name="B1" class=Button></td>
	</tr>
	</form>
</table>
<%
Call closeconn()
%>