📄 addsn.asp
字号:
{
if (subcat[i][1] == locationid)
{
document.myform.nclassid.options[document.myform.nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
changelocation3(document.myform.nclassid.options[document.myform.nclassid.selectedIndex].value)
}
function changelocation3(locationid)
{
document.myform.xclassid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < threecount; i++)
{
if (subcat3[i][1] == locationid)
{
document.myform.xclassid.options[document.myform.xclassid.length] = new Option(subcat3[i][0], subcat3[i][2]);
}
}
}
//-->
</script>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
<tr>
<td width="1%"> </td>
<td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="30%" style="font-size:14px;color:#ffffff"> <strong><font color="#000000">添加新商品</font></strong></td>
<td width="70%" align="right"> </td>
</tr>
</table></td>
</tr>
</table><br>
<form name="myform" method="post" action="saveaddsn.asp?action=add" onSubmit="return checkkk()" >
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
<tr bgcolor="#C7D3E6">
<td width="13%" align="center">选择添加类型：</td>
<td colspan="3">
<%
Set rsz = Server.CreateObject("ADODB.Recordset")
rsz.open "SELECT * From shop_ziduan order by ziduanorder",conn,1,1
if rsz.recordcount=0 then
%>
暂无字段分类
<%
else
do while not rsz.eof
%>
<input type="hidden" name="ziduanid" value="<%=rsz("id")%>">
<a href="addsn.asp?lx=<%=rsz("id")%>"><%=trim(rsz("zdname"))%></a>
<%
rsz.MoveNext
Loop
end if
rsz.close
set rsz=nothing
%></td>
</tr>
<tr bgcolor="#F0F3F8">
<td align="center" bgcolor="#F0F3F8">选择分类： </td>
<td colspan="3">大类:
<%
rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%>
<select name="anclassid" size="1" id="anclassid" onChange="changelocation(document.myform.anclassid.options[document.myform.anclassid.selectedIndex].value)">
<% dim selclass
selclass=rs("anclassid")
do while not rs.eof
response.write "<option value="&rs("anclassid")
if anclassid=rs("anclassid") then response.write " selected "
response.write ">"&trim(rs("anclass"))&"</option>"
rs.movenext
loop
end if
rs.close
%>
</select>
小类：
<select name="nclassid" size="1" id="nclassid" onChange="changelocation3(document.myform.nclassid.options[document.myform.nclassid.selectedIndex].value)">
<%rs.open "select * from shop_Nclass where anclassid="&selclass,conn,1,1
if not(rs.eof and rs.bof) then
%>
<%
dim selclass3
selclass3=rs("nclassid")
do while not rs.eof
response.write "<option value="&rs("nclassid")
if nclassid=rs("nclassid") then response.write " selected "
response.write ">"&trim(rs("nclass"))&"</option>"
rs.movenext
loop
end if
rs.close
set rs = nothing
%>
</select>
<font color="#FF0000"> </font> 子类：
<select name="xclassid">
<%
rs2.open "select * from shop_xclass where nclassid="&selclass3,conn,1,1
if not(rs2.eof and rs2.bof) then
do while not rs2.eof%>
<option value="<%=rs2("id")%>"<%if xclassid=rs2("id") then %> selected <%end if %> ><%=rs2("xclass")%></option>
<% rs2.movenext
loop
end if
rs2.close
set rs2= nothing
%>
</select></td>
</tr>
<tr bgcolor="#F0F3F8">
<td width="13%" align="center" bgcolor="#F0F3F8">
<%
lx=request.QueryString("lx")
set rs_s=server.createobject("adodb.recordset")
if lx="" then
rs_s.open "select * From shop_ziduan where id=1 ",conn,1,1
else
rs_s.open "select * From shop_ziduan where id="&lx,conn,1,1
end if
zd1=rs_s("zd1")
zd2=rs_s("zd2")
zd3=rs_s("zd3")
zd4=rs_s("zd4")
zd5=rs_s("zd5")
zd6=rs_s("zd6")
zd7=rs_s("zd7")
zd8=rs_s("zd8")
zd9=rs_s("zd9")
zd10=rs_s("zd10")
zd11=rs_s("zd11")
zd12=rs_s("zd12")
zd13=rs_s("zd13")
zd14=rs_s("zd14")
zd15=rs_s("zd15")
zd16=rs_s("zd16")
zd17=rs_s("zd17")
zd18=rs_s("zd18")
zd19=rs_s("zd19")
rs_s.close
set rs_s=nothing
%>
<input type="text" name="mch" size="12" value="<%=zd1%>" class="wenbenkuang"> </td>
<td colspan="3">
<input name="shopname" class="wenbenkuang" type="text" id="shopname" size="30">
浮动价
<select name="fudongjia" size=1 class="wenbenkuang">
<%set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from shop_fudong order by id ",conn,1,1
if rs_s.recordcount=0 then
response.write "请先添加浮动价"
else
while not rs_s.eof
%>
<option value=<%=rs_s("id")%> ><%=rs_s("shuoming")%></option>
<%
rs_s.movenext
wend
end if%>
</select>
</td>
</tr>
<tr bgcolor="#F0F3F8">
<td width="13%" align="center" bgcolor="#F0F3F8">
<input type="text" name="pp" size="12" value="<%=zd2%>" class="wenbenkuang"> </td>
<td colspan="3">
<input name="pingpai" type="text" id="pingpai" size="20" class="wenbenkuang">
<%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_pingpai order by pingpaiorder ",conn,1,1
%>
<select name="select" class="wenbenkuang" onChange="(document.myform.pingpai.value=this.options[this.selectedIndex].value)">
<option selected>请选择品牌</option>
<%
while not rs_s.eof
%>
<option value="<%=rs_s("pingpainame")%>"><%=rs_s("pingpainame")%></option>
<%
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
</select>
</td>
</tr>
<tr bgcolor="#F0F3F8">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -