📄 infosel.asp

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

<head>
<title>选择资料</title>
<link href="../../style.css" rel="stylesheet">
<base target="main">
<script language="JavaScript">
function exitWindows()
{	
  var s=false;
  var InfoNo, n=0,InfoName;
  var nn = self.document.all.item("ino"); //返回复选框ino的数量
  for (j=0; j<nn.length; j++) {
    if (self.document.all.item("ino",j).checked) {
      n = n + 1;
      s = true;
      InfoNo = self.document.all.item("ino",j).id;
      InfoName = self.document.all.item("ino",j).value;
    }
  }
  if(n>1){
    alert("只能选择一个资料!");
    s = false;
  }
  if(n==0) {
    alert("请选择资料!");
    s = false;
  }	
  if(s){
	  opener.document.all.item("iname").value = InfoName;
	  opener.document.all.item("ino").value = InfoNo;
	  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" bgcolor="#eeeeee">
<div align="center">
<table border="0" width="100%" style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
  <tr>
    <td width="100%" height="20" align="center"><p align="left"><font color="#000080">选择资料信息</font></p>
    </td>
  </tr>
<%
  '读取参数
  dim DivTitle,DivId,m
  m = 0
  Set rs = Server.CreateObject("ADODB.RecordSet")
  Operid = Request.QueryString("cid")
  '读取类型数据到记录集rs中
  sql = "SELECT * FROM Types WHERE Flag=3 ORDER BY TypeId"
  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
      m = m + 1
      DivTitle = "title" & CStr(m)
      DivId = "answer" & CStr(m)
      '列出此类型所有资料
      Set rsInfo = Server.CreateObject("ADODB.RecordSet")
      sqlPro = "SELECT * FROM Information WHERE TypeId=" & rs("TypeId") & " ORDER BY InfoNo"
      rsInfo.Open sqlPro,conn,1,3
      If rsInfo.EOF Then
        Response.Write "<tr><td width=100% align=left>|--" & rs("TypeName") & "</td></tr>"
      Else
 %>
  <tr>
    <td width="100%" align="left"><div id=<%=DivTitle%>  onclick=see("<%=DivId%>")>
    |--<font color="blue"><a style="cursor:hand"><%=rs("TypeName")%></a></font></div></td>
  </tr>
<%
        n = 0
        Do While Not rsInfo.EOF 
          '设置此类型下所有资料的层编号和类型的层相对应
          Info = "编号:" & rsInfo("InfoNo") & "_名称:" & rsInfo("InfoName") & "__价格:" & rsInfo("IPrice") & "__库存数量:" & rsInfo("ICount")
        %>
 <tr>
    <td> <div id=<%=DivId%>  style="display:none"> &nbsp;&nbsp;|--<%=Info%>
    &nbsp;&nbsp;<input type="checkbox" name="ino" id="<%=rsInfo("InfoNo")%>" value="<%=Info%>"></div> </td>
  </tr>     
       
      <%   rsInfo.MoveNext()
         Loop
       End If
       rs.MoveNext()
     Loop
   End If
%>
  <tr>
    <td width="100%" height="14">
      <p align="center"><font color="#0000FF"><input type="hidden" name="ino">
      <input type="button" value="选  择" name="Sel" onclick="exitWindows()">&nbsp;&nbsp;
      <input type="button" value="关  闭"  onclick="window.close()" name="Dpch"></td>
  </tr>
</table>
</div>
</body>

</html>
⌨️ 快捷键说明

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