www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_delhwj.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_delhwj.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_delhwj.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_hwj 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_delhwj.asp")
elseif request("action")="tjindex" then
set rs=server.createobject("adodb.recordset")
sql="select tjindex from venshop_hwj 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_delhwj.asp","ad_delhwj.asp")
elseif request("action")="tjindexno" then
set rs=server.createobject("adodb.recordset")
sql="select tjindex from venshop_hwj 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_delhwj.asp","ad_delhwj.asp")
elseif request("action")="tjsort" then
set rs=server.createobject("adodb.recordset")
sql="select tjsort from venshop_hwj 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_delhwj.asp","ad_delhwj.asp")
elseif request("action")="tjsortno" then
set rs=server.createobject("adodb.recordset")
sql="select tjsort from venshop_hwj 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_delhwj.asp","ad_delhwj.asp")
elseif request("action")="tejia" then
set rs=server.createobject("adodb.recordset")
sql="select tejia from venshop_hwj 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_delhwj.asp","ad_delhwj.asp")
elseif request("action")="tejiano" then
set rs=server.createobject("adodb.recordset")
sql="select tejia from venshop_hwj 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_delhwj.asp","ad_delhwj.asp")
elseif request("action")="sort" then
set rs=server.createobject("adodb.recordset")
sql="select sort_id,nsort_id from venshop_hwj 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_delhwj.asp","ad_delhwj.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_hwj where nsort_id=" + nsortid + " order by hw_id DESC"
elseif request("sort_id")<>"" then
sortid=request("sort_id")
sql="select * from venshop_hwj where sort_id=" + sortid + " order by hw_id DESC"
elseif request("hw_name")<>"" then
hwname=request("hw_name")
sql="select * from venshop_hwj where hw_name like '%"&hwname&"%' order by hw_id DESC"
elseif request("quehuo")="yes" then
sql="select * from venshop_hwj where hw_kucun<=0 order by hw_id DESC"
else
sql="select * from venshop_hwj 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_changehwj.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_changehwj.asp?hw_id=<%=rs("hw_id")%>">修改</a> <a href="ad_changehwaddj.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_delhwj.asp?action=del";}
else if (form.Ref[1].checked)
{form.action = "ad_delhwj.asp?action=tjindex";}
else if (form.Ref[2].checked)
{form.action = "ad_delhwj.asp?action=tjsort";}
else if (form.Ref[3].checked)
{form.action = "ad_delhwj.asp?action=tejia";}
else if (form.Ref[4].checked)
{form.action = "ad_delhwj.asp?action=tjindexno";}
else if (form.Ref[5].checked)
{form.action = "ad_delhwj.asp?action=tjsortno";}
else if (form.Ref[6].checked)
{form.action = "ad_delhwj.asp?action=tejiano";}
else if (form.Ref[7].checked)
{form.action = "ad_delhwj.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_delhwj.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_delhwj.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"-->