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

📄 newaccountshare.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复! 自己写吧~~~:) 4 又 是一点缺陷
💻 ASP
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
if request("user")<>"" then
	dim conn
	dim rs
	set conn=server.CreateObject("adodb.connection")
	set rs=server.CreateObject("adodb.recordset")
	conn.Open connstring

		set rsq=conn.Execute("select * from accountshare where accountid="&request("account")&" and shareto='"&request("user")&"'")
		if not rsq.EOF then
			Response.Write "已经存在共享"
			Response.End 
		end if
		rs.Open "select * from accountshare",conn,2,3,1
		rs.AddNew 
		rs("accountid")=request("account")
		rs("shareto")=request("user")
		rs("shareuser")=session("loginid")
		rs("edit")=request("edit")
		rs("sharedate")=now()
	rs.Update 
	rs.Close 
	set rs=nothing
	conn.Close 
	set conn=nothing
%>
<script language=javascript>
	window.opener.location.reload();
	window.close();
</script>
<%
end if
%>
<HTML><HEAD><TITLE>共享客户</TITLE>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language="javascript">
function save(){
	if (form1.user.value==''){
		alert('请选择共享用户');
		form1.user.focus();
		return;
	}
										
form1.submit();
}
</script>
<body>
 <form name=form1  method="post"  id=form1>
    <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
   <tr> 
      <td height="25"><strong><font size="2" class=title><b>共享客户</b></font></strong></td>
      <td>&nbsp;</td>
    </tr>
    <tr > 
      <td height="16" colspan="2" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr>
      <td height=4></td>
    </tr>
    <tr><td><div align="center" style="cursor:hand"> <a onclick="save();"><img src="../images/button_save.gif"></a>&nbsp;&nbsp;&nbsp;&nbsp;<a onclick="window.close();"><img src="../images/button_cancel.gif"></a> 
        </DIV></td>
    </tr>
 </table>

  <table width="100%" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
     <tr  bgcolor="white"> 
      <td bgcolor="DEDFDE" ><div align="center">客户</div><input type=hidden name=account value=<%=request.QueryString("accountid")%>></td>
      <td colspan="3" bgcolor="EFEFEF"><%=request("accountname")%>
      </td>
    </tr>
    <tr  bgcolor="white"> 
      <td width="15%" bgcolor="DEDFDE" ><div align="center">共享给</div></td>
      <td width="40%" bgcolor="EFEFEF"><input name="user" type="hidden" size="8"> 
        <input name="username" type="text" size="8" readonly> 
        <input type="button" name="bnuser" onClick="JavaScript:opensubwin2('form1','user')"  class=black  value=...> 
      </td>
      <td width="15%" bgcolor="DEDFDE"><div align="center">权限</div></td>
      <td width="35%" bgcolor="EFEFEF"><select name="edit">
          <option value="0">只读</option>
          <option value="1">可修改</option>
        </select></td>
    </tr>

  </table>
</form>

⌨️ 快捷键说明

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