📄 prod_info_list.asp
字号:
pp=ubound(split(id,","))+1 '判断数组id中共有几维
for v=1 to pp
id=request("id")(v)
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select prod_info_flag from prod_info where id="&id
rs.open sql,conn,1,3
prod_info_flag1=rs(0)
rs.close
set rs=nothing
prod_info_flag1=Replace(prod_info_flag1,"1","")
conn.execute ("update prod_info set prod_info_flag='"&prod_info_flag1&"' where id="&id)
next
response.write "<script language='javascript'>"
response.write "alert('所选商品均已取消新品！');"
response.write "location.href='prod_info_list.asp';"
response.write "</script>"
end if
end sub
'批量新品
sub ProdTjY()
id=my_request("id",0)
if id<>"" then
pp=ubound(split(id,","))+1 '判断数组id中共有几维
for v=1 to pp
id=request("id")(v)
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select prod_info_flag from prod_info where id="&id
rs.open sql,conn,1,3
prod_info_flag1=rs(0)
rs.close
set rs=nothing
prod_info_flag1=prod_info_flag1&",2"
conn.execute ("update prod_info set prod_info_flag='"&prod_info_flag1&"' where id="&id)
next
response.write "<script language='javascript'>"
response.write "alert('所选商品均已设置为推荐！');"
response.write "location.href='prod_info_list.asp';"
response.write "</script>"
end if
end sub
'批量非推荐
sub ProdTjN()
id=my_request("id",0)
if id<>"" then
pp=ubound(split(id,","))+1 '判断数组id中共有几维
for v=1 to pp
id=request("id")(v)
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select prod_info_flag from prod_info where id="&id
rs.open sql,conn,1,3
prod_info_flag1=rs(0)
rs.close
set rs=nothing
prod_info_flag1=Replace(prod_info_flag1,"2","")
conn.execute ("update prod_info set prod_info_flag='"&prod_info_flag1&"' where id="&id)
next
response.write "<script language='javascript'>"
response.write "alert('所选商品均已取消推荐！');"
response.write "location.href='prod_info_list.asp';"
response.write "</script>"
end if
end sub
'批量特价
sub ProdSpecY()
id=my_request("id",0)
if id<>"" then
pp=ubound(split(id,","))+1 '判断数组id中共有几维
for v=1 to pp
id=request("id")(v)
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select prod_info_flag from prod_info where id="&id
rs.open sql,conn,1,3
prod_info_flag1=rs(0)
rs.close
set rs=nothing
prod_info_flag1=prod_info_flag1&",3"
conn.execute ("update prod_info set prod_info_flag='"&prod_info_flag1&"' where id="&id)
next
response.write "<script language='javascript'>"
response.write "alert('所选商品均已设置为特价！');"
response.write "location.href='prod_info_list.asp';"
response.write "</script>"
end if
end sub
'批量非特价
sub ProdSpecN()
id=my_request("id",0)
if id<>"" then
pp=ubound(split(id,","))+1 '判断数组id中共有几维
for v=1 to pp
id=request("id")(v)
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select prod_info_flag from prod_info where id="&id
rs.open sql,conn,1,3
prod_info_flag1=rs(0)
rs.close
set rs=nothing
prod_info_flag1=Replace(prod_info_flag1,"3","")
conn.execute ("update prod_info set prod_info_flag='"&prod_info_flag1&"' where id="&id)
next
response.write "<script language='javascript'>"
response.write "alert('所选商品均已取消特价！');"
response.write "location.href='prod_info_list.asp';"
response.write "</script>"
end if
end sub
%>
</head>
<body>
<table cellspacing="1" cellpadding="4" width="100%" class="tableborder">
<tbody class="altbg2">
<tr>
<td class="title" colspan="11">商品信息管理</td>
</tr>
<form name=form11 action=prod_info_list.asp method=get>
<tr>
<td class="altbg2" colspan="11">
<p align="center">
<img border="0" src="images/write11.gif" align="middle"><a href="Prod_Info_Add.asp"><font color="#FF6600">添加商品</font></a><font color="#FF6600">
</font><b>商品搜索：</b><input type="text" name="KeyWord" size="20">
<input type="submit" value="搜索" name="B1">
<a href="prod_Info_Search.asp">高级搜索</a> <b>
按类别筛选：</b><select onchange="location=this.options[this.selectedIndex].value;" size="1" name="qs">
<option value=prod_info_list.asp>显示所有商品</option>
<%
sql="select cid,prod_class_name from prod_class order by cid desc"
set rs=conn.execute (sql)
set cid1=rs(0)
set prod_class_name1=rs(1)
do while not rs.eof
%>
<option value="prod_info_list.asp?cid=<%=cid1%>" <%if cid1=cint(cid) then response.write "Selected" %>><%=prod_class_name1%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select></td>
</tr>
</form>
<tr>
<td class="altbg1">选中</td>
<td class="altbg1">
<p align="center">商品缩图</td>
<td class="altbg1">商品名称</td>
<td class="altbg1">所属类别</td>
<td class="altbg1">市场价</td>
<td class="altbg1">本站价</td>
<td class="altbg1">特性</td>
<td class="altbg1">发布时间</td>
<td class="altbg1">浏览</td>
<td class="altbg1">
<p align="center">状态</td>
<td class="altbg1">
<p align="center">编辑</td>
</tr>
<form name="form1" action="prod_info_List.asp" method="post">
<%
set rs=server.createobject("adodb.recordset")
if Search_KeyWord="" and Search_cid="" and Search_PriceSMin="" and Search_PriceSMax="" and Search_Detail="" and Search_sort="" then
sql="select id,cid,prod_info_name,prod_info_flag,prod_info_PriceM,prod_info_PriceS,prod_info_PicB,prod_info_PicS,prod_info_hitnums,addtime,prod_info_OnOff,prod_info_AdWord from prod_info order by id desc"
else
sql="select id,cid,prod_info_name,prod_info_flag,prod_info_PriceM,prod_info_PriceS,prod_info_PicB,prod_info_PicS,prod_info_hitnums,addtime,prod_info_OnOff,prod_info_AdWord from prod_info where 1=1 "& Search
end if
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td colspan=11 align=center>目前暂无商品信息,<a href=prod_info_add.asp>请添加新商品信息!</a></td></tr>"
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=1
set id =rs(0)
set cid2 =rs(1)
set prod_info_name =rs(2)
set prod_info_flag =rs(3)
set prod_info_PriceM =rs(4)
set prod_info_PriceS =rs(5)
set prod_info_PicB =rs(6)
set prod_info_PicS =rs(7)
set prod_info_hitnums=rs(8)
set addtime =rs(9)
set prod_info_OnOff =rs(10)
set prod_info_AdWord =rs(11)
while not rs.eof and i<=rs.pagesize
prod_info_addtime=datevalue(addtime)
if prod_info_OnOff=0 then txt_OnOff="<font color=#009933>上架</font>" else txt_OnOff="<font color=#999>下架</font>"
//调出商品类别名称
sql1="select prod_class_name from prod_Class where cid="&cid2
set rs1=conn.execute (sql1)
prod_class_name2=rs1(0)
rs1.close
set rs1=nothing
txt=""
if instr(prod_info_flag,1) then txt="新、"
if instr(prod_info_flag,2) then txt=txt&"荐、"
if instr(prod_info_flag,3) then txt=txt&"特"
%>
<tr>
<td><input type="checkbox" name="id" value="<%=id%>"></td>
<td>
<p align="center"><a target="_blank" title="点击查看商品大图片" href="../uploadpic/<%=prod_info_PicB%>" onClick="OpenFullSizeWindow(this.href,'','');return false"><img src=../uploadpic/<%=prod_info_PicS%> border=0 onload='loaded(this,80,80)' ></a></td>
<td><a href=../prod_detail.asp?id=<%=id%> target=_blank><%=prod_info_name%><br><b><font color=#FF0000><%=prod_info_AdWord%></font></b></a></td>
<td><%=prod_class_name2%></td>
<td><font color="#C0C0C0">￥<%=FormatNumber(prod_info_PriceM,2,-1)%></font></td>
<td><b><font color="#FF0000">￥<%=FormatNumber(prod_info_PriceS,2,-1)%></font></b></td>
<td><%=txt%></td>
<td><%=prod_info_addtime%></td>
<td><%=prod_info_HitNums%>次</td>
<td><%=txt_OnOff%></td>
<td>
<p align="center"><a href=prod_info_Modi.asp?id=<%=id%>>编辑</a></td>
</tr>
<%
rs.movenext
i=i+1
wend
%>
<tr>
<td colspan="11">
<table border="0" width="100%" cellpadding="2" cellspacing="1">
<tr>
<td colspan="2">
<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>全选</td>
</tr>
<tr>
<td bgcolor="#FFD1B3" colspan="2">批量操作</td>
</tr>
<tr>
<td bgcolor="#FFDFCA">第一步：<br>
打勾选中操作项</td>
<td bgcolor="#FFDFCA">第二步：<br>
批量操作区</td>
</tr>
<tr>
<td bgcolor="#F3F3F3"> </td>
<td bgcolor="#F3F3F3">
<table border="0" width="100%" style="border-collapse: collapse" cellpadding="2">
<tr>
<td style="border-bottom: 1px dotted #DDDDDD">批量删除：</td>
<td style="border-bottom: 1px dotted #DDDDDD">
<input type="submit" name="action" value="删除" onclick="{if(confirm('删除后将无法恢复，您确定要删除选定的信息吗？')){this.document.form1.submit();return true;}return false;}"></td>
</tr>
<tr>
<td style="border-bottom: 1px dotted #DDDDDD">批量设置上下架：</td>
<td style="border-bottom: 1px dotted #DDDDDD">
<input type="submit" name="action" value="下架">
<input type="submit" name="action" value="上架">
</td>
</tr>
<tr>
<td style="border-bottom: 1px dotted #DDDDDD">批量设置特性：</td>
<td style="border-bottom: 1px dotted #DDDDDD">
<input type="submit" name="action" value="设为新品">
<input type="submit" name="action" value="取消新品">
<input type="submit" name="action" value="设为推荐">
<input type="submit" name="action" value="取消推荐">
<input type="submit" name="action" value="设为特价">
<input type="submit" name="action" value="取消特价">
</td>
</tr>
<tr>
<td style="border-bottom: 1px dotted #DDDDDD">批量设置类别：</td>
<td>移动商品到类别：<select size="1" name="cid1">
<%
sql="select cid,prod_class_name from prod_class order by cid desc"
set rs=conn.execute (sql)
set cid2=rs(0)
set prod_class_name2=rs(1)
do while not rs.eof
%>
<option value="<%=cid2%>"><%=prod_class_name2%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select> <input type="submit" name="action" value="确定">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<input type=hidden name=pagenow value=<%=page%>>
<%
call PageControl(iCount,maxpage,page)
end if
rs.close
set rs=nothing
%>
</form>
</tbody>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -