📄 add_companyphone.asp

📁 网络办公系统源码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../config.asp"-->
<!--#include file="checklogin.asp"-->
<!--#include file="../inc/md5/ss_md5.asp"-->

<%
if  ChkAdmin("sys_addcompany")=False then
   call message("您没有添加公司帐号信息的权限","back")
   call endexit()
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../oaadmin/img/css1.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript src="../inc/meizzDate.js"></SCRIPT>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
</head>
<%
act=request.QueryString("act")

companyid=trim(request.Form("companyid"))
    UserName=request.Form("UserName")
    UserID=request.Form("UserID")
	UserPass=request.Form("UserPass")


insql="insert into oa_PhoneConfig(UserName,UserID,UserPass,companyid) "& _
"values('"&UserName&"','"&UserID&"','"&UserPass&"',"&companyid&")"
	if act="add" then
		num=conn.execute("select count(id) from oa_PhoneConfig where companyid="&companyid)(0)
		if num=0 then
			conn.execute(insql)
			call Message("添加成功","userlist.asp?id="&companyid&"")
		else
			call Message("该公司已经分配了短信帐号","back")
		end if
		
	end if
%>
<body>
<table width="99%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" class="tabel1">
  <form name="form1" method="post" action="add_companyphone.asp?act=add">
  <tr align="center">
    <td height="25" colspan="2" bgcolor="#CC0000"><span class="style1">分配公司短信帐号</span></td>
    </tr>

  <tr bgcolor="#F9F9F9">
    <td width="18%" height="25" align="center"> 公司名称</td>
    <td width="82%" height="25" align="left">
	<select name="companyid" id="companyid">
        <option value="">请选择公司</option>
        <%
			  '提取自己的可户列表
			  	sql="select id,company from oa_company"
				set rs=conn.execute(sql)
				do while not rs.eof
			  %>
        <option value="<%=rs(0)%>"><%=rs(1)%></option>
        <%
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing
			  %>
      </select>
      *</td>
    </tr>
  
  <tr bgcolor="#F9F9F9">
    <td height="25" align="center"> <span class="divbody">ID号</span></td>
    <td height="25" align="left"><input name="UserID" type="text" class="tabel1" id="UserID" value="18225"></td>
  </tr>
  <tr bgcolor="#F9F9F9">
    <td height="25" align="center"> <span class="divbody">帐号</span></td>
    <td height="25" align="left"><input name="UserName" type="text" class="tabel1" id="UserName" value="sshl"></td>
  </tr>
  <tr bgcolor="#F9F9F9">
    <td height="25" align="center"> <span class="divbody">密码</span></td>
    <td height="25" align="left"><input name="UserPass" type="password" class="tabel1" id="UserPass" value="123456" ></td>
  </tr>
  <tr bgcolor="#F9F9F9">
    <td height="25" align="center">&nbsp;</td>
    <td height="25" align="left">      <input name="Submit2" type="submit" class="bon" value="提交">
　
<input name="Submit3" type="reset" class="bon" value="重置"> 　
 <input name="Submit" type="button" class="bon" value="返回上页" onClick="window.history.go(-1)">
 （以上是测试帐号）</td>
  </tr></form>
</table>
<%
	set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明

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