📄 ctsel.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../../conndb.asp"-->
<html>

<head>
<title>选择客户联系人</title>
<link rel="stylesheet" type="text/css" href="../../style.CSS">
<base target="main">
<script language="JavaScript">
function exitWindows()
{	
  var s=false;
  var CtId, n=0,CtName,CustId; 
  var nn = self.document.all.item("CtId"); //返回复选框CtId的数量
  for (j=0; j<nn.length; j++) {
    if (self.document.all.item("CtId",j).checked) {
      n = n + 1;
      s = true;
      CtId = self.document.all.item("CtId",j).id;
      CtName = self.document.all.item("CtId",j).value;
      CustId= self.document.all.item("CtId",j).title;
    }
  }
  if(n>1){
    alert("只能选择一个联系人!");
    s = false;
  }
  if(n==0) {
    alert("请选择联系人!");
    s = false;
  }	
  if(s){
	  opener.document.all.item("ctname").value = CtName;
	  opener.document.all.item("ctid").value = CtId;
	  opener.document.all.item("custid").value = CustId;
	  window.close();
	}
}
function  see(opt){ 
  var  c=document.getElementById(opt).style.display;  
  c==''?document.getElementById(opt).style.display='none':document.getElementById(opt).style.display='';  
} 
</script>
</head>
<body topmargin="4" leftmargin="4">
<div align="center">
<table border="0" width="80%" style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
  <tr>
    <td width="100%" height="20" align="center"><b>
	<font color="#000080" size="3" face="幼圆">选择联系人</font></b></td>
  </tr>
  <tr>
    <td width="100%" height="20" align="center">　</td>
  </tr>
  <%
  '读取参数
  dim rs,n
  n = 0
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '读取客户数据到记录集rs中
  sql = "SELECT * FROM Customer ORDER BY CustId"
  rs.Open sql, conn, 1, 1
  If rs.EOF Then
    '如果记录集为空，则显示“目前还没有记录”
    Response.Write "<tr><td align=center><font style='COLOR:Red'>目前还没有记录。</font></td></tr></table>"
  Else
    '在表格中显示客户名称
    Do While Not rs.EOF
      n = n + 1
      DivTitle = "title" & CStr(n)
      DivId = "answer" & CStr(n)
      '读取此客户的联系人信息
      Set rsCt= Server.CreateObject("ADODB.RecordSet")
      sqlCt = "SELECT * FROM Contact WHERE CustId=" & rs("CustId")
      Set rsCt= Conn.Execute(sqlCt)
      If rsCt.EOF Then '如果没有联系人
%>
  <tr>
    <td width="100%" align="left"><%=rs("CustName")%></td>
  </tr>
<%
      Else
 %>
  <tr>
    <td><div id=<%=DivTitle%>  onclick=see("<%=DivId%>")>
    <font color="blue"><a style="cursor:hand"><%=rs("CustName")%></a></font></div></td>
  </tr>      
      <% '列出此客户所有联系人
         Do While Not rsCt.EOF %>
   <tr>
    <td><div id=<%=DivId%>  style="display:none">|--&nbsp;&nbsp;<%=rsCt("CName")%>
    &nbsp;&nbsp;<input type="checkbox" name="CtId" id="<%=rsCt("Id")%>" value="<%=rsCt("CName")%>" title="<%=rs("CustId")%>" ></div></td>
  </tr>
   <%     rsCt.MoveNext()
        Loop
      End If
      rs.MoveNext()
    Loop
   End If
%>
  <tr>
    <td width="100%" height="14"><input type="hidden" name="CtId" ></td>
  </tr>
  <tr>
    <td width="100%" height="14">
      <p align="center"><font color="#0000FF">
      <input type="button" value="选  择"  onclick="exitWindows()" name="Sel" style="font-family: 宋体; font-size: 9pt">&nbsp;&nbsp;
      <input type="button" value="关  闭"  onclick="window.close()" name="Dpch" style="font-family: 宋体; font-size: 9pt"></td>
  </tr>
</table>
</div>
</body>

</html>
⌨️ 快捷键说明

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