www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_delhwt.asp
<!--#include file="conn.asp"--> <!--#include file="ad_chk.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href=inc/css.css rel=STYLESHEET type=text/css> <body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5"> <% if Request.Cookies("venshop")("admin_class")<>0 and Request.Cookies("venshop")("admin_class")<>1 then response.write "你没有这个权限!" response.end end if %> <table border="0" cellspacing="0" cellpadding="5"><form method="POST" action="ad_delhwt.asp"> <tr><td align="right">搜索商品:</td> <td align="center"><input type="text" name="hw_name" size="20"></td> <td><input type="submit" value="搜索" name="B1"></td> <td><a href="ad_delhwt.asp?quehuo=yes">缺货产品管理</a></td></tr></form></table> <% host=lcase(request.servervariables("HTTP_HOST")) set rs=server.createobject("adodb.recordset") selectid=request("selectid") if request("action")="del" then set rs=server.createobject("adodb.recordset") sql="select * from venshop_hwt where hw_id in ("&selectid&")" rs.open sql,conn,1,3 do while not rs.eof if delt=2 then hp=split(rs("hw_pic"),"*") for i=1 to ubound(hp) img="../"&hp(i) SET FSO=Server.CreateObject("Scripting.FileSystemObject") If FSO.FileExists(Server.Mappath(img)) Then FSO.DeleteFile Server.Mappath(img),True End If SET FSO=Nothing next end if rs.delete rs.update rs.movenext loop rs.close set rs=nothing call deleok(delet,"ad_delhwt.asp") elseif request("action")="tjindex" then set rs=server.createobject("adodb.recordset") sql="select tjindex from venshop_hwt where hw_id in ("&selectid&")" rs.open sql,conn,1,3 do while not rs.eof rs("tjindex")=1 rs.update rs.movenext loop rs.close set rs=nothing call editok(editt,"ad_delhwt.asp","ad_delhwt.asp") elseif request("action")="tjindexno" then set rs=server.createobject("adodb.recordset") sql="select tjindex from venshop_hwt where hw_id in ("&selectid&")" rs.open sql,conn,1,3 do while not rs.eof rs("tjindex")=0 rs.update rs.movenext loop rs.close set rs=nothing call editok(editt,"ad_delhwt.asp","ad_delhwt.asp") elseif request("action")="tjsort" then set rs=server.createobject("adodb.recordset") sql="select tjsort from venshop_hwt where hw_id in ("&selectid&")" rs.open sql,conn,1,3 do while not rs.eof rs("tjsort")=1 rs.update rs.movenext loop rs.close set rs=nothing call editok(editt,"ad_delhwt.asp","ad_delhwt.asp") elseif request("action")="tjsortno" then set rs=server.createobject("adodb.recordset") sql="select tjsort from venshop_hwt where hw_id in ("&selectid&")" rs.open sql,conn,1,3 do while not rs.eof rs("tjsort")=0 rs.update rs.movenext loop rs.close set rs=nothing call editok(editt,"ad_delhwt.asp","ad_delhwt.asp") elseif request("action")="tejia" then set rs=server.createobject("adodb.recordset") sql="select tejia from venshop_hwt where hw_id in ("&selectid&")" rs.open sql,conn,1,3 do while not rs.eof rs("tejia")=1 rs.update rs.movenext loop rs.close set rs=nothing call editok(editt,"ad_delhwt.asp","ad_delhwt.asp") elseif request("action")="tejiano" then set rs=server.createobject("adodb.recordset") sql="select tejia from venshop_hwt where hw_id in ("&selectid&")" rs.open sql,conn,1,3 do while not rs.eof rs("tejia")=0 rs.update rs.movenext loop rs.close set rs=nothing call editok(editt,"ad_delhwt.asp","ad_delhwt.asp") elseif request("action")="sort" then set rs=server.createobject("adodb.recordset") sql="select sort_id,nsort_id from venshop_hwt where hw_id in ("&selectid&")" rs.open sql,conn,1,3 do while not rs.eof rs("sort_id")=request("sort_id") rs("nsort_id")=request("nsort_id") rs.update rs.movenext loop rs.close set rs=nothing call editok(editt,"ad_delhwt.asp","ad_delhwt.asp") end if %> <table border="0" cellpadding="0" width="100%" cellspacing="0" > <tr> <td width="5" valign="top" align="center"> </td> <td valign="top"> <table border="0" cellspacing="0" cellpadding="5" class="st"> <form name="form" method="post" onsubmit=TwoSubmit(this)> <tr><td align="center" height="23" class="sa">商品名称</td> <td align="center" class="sa">会员价格</td> <td align="center" class="sa">VIP价格</td> <td align="center" class="sa">操作</td> <td align="center" class="sa"> <input type="checkbox" name="checkbox2" value="Check All" onClick="allss()">全选</td></tr> <% page=request("page") if page="" then page=1 if not(isnumeric(page)) then page=1 if page<1 then page=1 page=int(page) set rs=server.createobject("adodb.recordset") if request("nsort_id")<>"" then nsortid=request("nsort_id") sql="select * from venshop_hwt where nsort_id=" + nsortid + " order by hw_id DESC" elseif request("sort_id")<>"" then sortid=request("sort_id") sql="select * from venshop_hwt where sort_id=" + sortid + " order by hw_id DESC" elseif request("hw_name")<>"" then hwname=request("hw_name") sql="select * from venshop_hwt where hw_name like '%"&hwname&"%' order by hw_id DESC" elseif request("quehuo")="yes" then sql="select * from venshop_hwt where hw_kucun<=0 order by hw_id DESC" else sql="select * from venshop_hwt order by hw_id DESC" end if rs.open sql,conn,1,1 if rs.eof then response.write "<tr><td align=center bgcolor=ffffff height=30 colspan=10>没有产品</td></tr>" response.end else rs.pagesize=20 totalrec=rs.recordcount totalpage=rs.pagecount if page>totalpage then page=totalpage rs.absolutepage=page i=0 do while not rs.eof and (i<rs.pagesize) i=i+1%> <tr><td height="23" class="s<%=i mod 2%>"> <a href="ad_changehwt.asp?hw_id=<%=rs("hw_id")%>"><%=rs("hw_name")%><%if rs("hw_kucun")<=0 then%><font color="#FF0000">(缺)</font><%end if%></a> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="购买次数:<%=rs("hw_buys")&vbcrlf%>点击次数:<%=rs("hw_views")&vbcrlf%>库存:<%=rs("hw_kucun")&vbcrlf%>编号:<%=rs("hw_sn")&vbcrlf%>积分:<%=rs("hw_jifen")%>" align="absmiddle"></td> <td align="center" class="s<%=i mod 2%>"><%=rs("hw_price2")%></td> <td align="center" class="s<%=i mod 2%>"><%=rs("hw_price3")%></td> <td align="center" class="s<%=i mod 2%>"><a href="ad_changehwt.asp?hw_id=<%=rs("hw_id")%>">修改</a> <a href="ad_changehwaddt.asp?hw_id=<%=rs("hw_id")%>">复制</a></td> <td align="center" class="s<%=i mod 2%>"><input name="selectid" type="checkbox" id="selectid" value="<%=rs("hw_id")%>"></td></tr> <% rs.movenext loop end if rs.close set rs=nothing%> <tr><td bgcolor="#FFFFFF" colspan="5"> <p style="line-height: 200%"> <INPUT type=radio value=del name=Ref>删除 <INPUT type=radio value=tjindex name=Ref><font color="#FFFFFF">首页推荐 <INPUT type=radio value=tjsort name=Ref>大类推荐 <INPUT type=radio value=tejia name=Ref>特价 <INPUT type=radio value=tjindexno name=Ref>取消首页推荐 <INPUT type=radio value=tjsortno name=Ref>取消大类推荐 <INPUT type=radio value=tejiano name=Ref>取消特价 <INPUT type=radio value=sort name=Ref>转移分类 转移到: </font> <input type="submit" name="Submit" value="选择完毕 执行操作" onClick="return scheck();"></td></tr></form></table> <script language=javascript> function scheck() { if(!confirm('确认进行该操作吗?')) return false; } function TwoSubmit(form) { if (form.Ref[0].checked) {form.action = "ad_delhwt.asp?action=del";} else if (form.Ref[1].checked) {form.action = "ad_delhwt.asp?action=tjindex";} else if (form.Ref[2].checked) {form.action = "ad_delhwt.asp?action=tjsort";} else if (form.Ref[3].checked) {form.action = "ad_delhwt.asp?action=tejia";} else if (form.Ref[4].checked) {form.action = "ad_delhwt.asp?action=tjindexno";} else if (form.Ref[5].checked) {form.action = "ad_delhwt.asp?action=tjsortno";} else if (form.Ref[6].checked) {form.action = "ad_delhwt.asp?action=tejiano";} else if (form.Ref[7].checked) {form.action = "ad_delhwt.asp?action=sort";} form.submit(); } function allss() { var aa = document.form.getElementsByTagName("input"); if(aa[1].checked == true){ for (var ii=0; ii<aa.length; ii++) if (aa[ii].type == "checkbox") aa[ii].checked = false; } else { for (var ii=0; ii<aa.length; ii++) if (aa[ii].type == "checkbox") aa[ii].checked = true; } } </script> <table border="0" width="100%" cellspacing="0"> <form action=<%=filename%>?nsort_id=<%=request("nsort_id")%>&sort_id=<%=request("sort_id")%>&hw_name=<%=request("hw_name")%>&quehuo=<%=request("quehuo")%> method=post> <tr><td height="30">共<font color=red><%=totalpage%></font>页 第<%=page%>页 <%if page-1>0 then%><a href="ad_delhwt.asp?nsort_id=<%=request("nsort_id")%>&sort_id=<%=request("sort_id")%>&hw_name=<%=request("hw_name")%>&quehuo=<%=request("quehuo")%>&page=<%=page-1%>">上一页</a><%else%>上一页<%end if%> <%if page+1<=totalpage then%><a href="ad_delhwt.asp?nsort_id=<%=request("nsort_id")%>&sort_id=<%=request("sort_id")%>&hw_name=<%=request("hw_name")%>&quehuo=<%=request("quehuo")%>&page=<%=page+1%>">下一页</a><%else%>下一页<%end if%> 页面跳转:<input type="text" name="page" value="<%=page+1%>" size="1" style="text-align: center" class=input><input type="submit" value="GO" class=input> </td></tr></form></table> </td></tr></table><!--#include file="ad_bottom.asp"-->