📄 prosel.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 ProId, n=0,ProName,OrgNum=0;
var nn = self.document.all.item("proid"); //返回复选框proid的数量
for (j=0; j<nn.length; j++) {
if (self.document.all.item("proid",j).checked) {
n = n + 1;
s = true;
ProId = self.document.all.item("proid",j).id;
ProName = self.document.all.item("proid",j).value;
OrgNum = self.document.all.item("proid",j).title;
}
}
if(n>1){
alert("只能选择一个商品!");
s = false;
}
if(n==0) {
alert("请选择商品!");
s = false;
}
if(s){
opener.document.all.item("proname").value = ProName;
opener.document.all.item("proid").value = ProId;
opener.document.all.item("onum").value = OrgNum;
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 m,DivTitle,DivId
m = 0
Set rs = Server.CreateObject("ADODB.RecordSet")
'读取一级类型数据到记录集rs中
sql = "SELECT * FROM ProType WHERE UpperId=0 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
%>
<tr>
<td width="100%" align="left"><%=rs("TypeName")%></td>
</tr>
<%
'包含下级类型
Set RsSub = Server.CreateObject("ADODB.RecordSet")
sqlSub = "SELECT * FROM ProType WHERE UpperId=" & rs("TypeId")
RsSub.Open sqlSub, conn,1,3
Do While Not RsSub.EOF
m = m + 1
DivTitle = "title" & CStr(m)
DivId = "answer" & CStr(m)
'判断是否存在对应商品，否则不设置层
sql = "Select * From Product Where TypeId=" & RsSub("TypeId")
Set rs1 = Conn.Execute(sql)
If Not rs1.EOF Then
%>
<tr>
<td><div id=<%=DivTitle%> onclick=see("<%=DivId%>")>
|--<font color="blue"><a style="cursor:hand"><%=RsSub("TypeName")%></a></font></div></td>
</tr>
<%Else%>
<tr><td>|--<%=RsSub("TypeName")%></td></tr>
<%End If
'列出此类型所有商品
Set RsPro = Server.CreateObject("ADODB.RecordSet")
sqlPro = "SELECT * FROM Product WHERE TypeId=" & RsSub("TypeId") & " ORDER BY ProId"
RsPro.Open sqlPro,conn,1,3
Do While Not RsPro.EOF
'设置此类型下所有商品的层编号和类型的层相对应
ProInfo = "名称:" & RsPro("ProName") & "__型号:" & RsPro("ProStyle") & "__库存数量:" & RsPro("Quantity")
%>
<tr>
<td> <div id=<%=DivId%> style="display:none"> |--<%=RsPro("ProName")%>__型号:<%=RsPro("ProStyle")%>
__库存数量:<%=RsPro("Quantity")%>
<input type="checkbox" name="proid" id="<%=RsPro("ProId")%>" value="<%=ProInfo%>" title="<%=RsPro("Quantity")%>"></div> </td>
</tr>
<%
RsPro.MoveNext()
Loop
RsPro.Close()
RsSub.MoveNext()
Loop
rs.MoveNext()
Loop
End If
%>
<tr>
<td width="100%" height="14"><input type="hidden" name="proid" ></td>
</tr>
<tr>
<td width="100%" height="14">
<p align="center"><font color="#0000FF">
<input type="button" value="选 择" name="Sel" onclick="exitWindows()">
<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 + -