www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_delhwp.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_delhwp.asp">
<tr><td align="right">搜索商品：</td>
<td align="center"><input type="text" name="hw_name" size="20" class="input"></td>
<td><input type="submit" value="搜索" name="B1"></td>
<td><a href="ad_delhwp.asp?quehuo=yes">缺货产品管理</a></td></tr></form></table>
<%
if request("action")="change" then
Response.Redirect "ad_ven.asp"
response.end
end if
%>
<table border="0" cellpadding="0" width="100%" cellspacing="0" >
<tr><td width="130" valign="top" align="center"><SCRIPT language=javascript1.2 src="inc/menu.js"></SCRIPT>
<table border="0" cellspacing="0" cellpadding="5" class="st">
<tr><td align="center" class="sa"><font color="#000000"><b>商品分类</b></font></td></tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sort"
rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
id=rs("sort_id")%>
<tr><td class="s<%=i mod 2%>"><a href="ad_delhwp.asp?sort_id=<%=rs("sort_id")%>">
<b><%=rs("sort_name")%></b></a><b>
<u><font color="#0000FF"><span class="helpimg" onclick="menuclick(submenu<%=rs("sort_id")%>,bar<%=rs("sort_id")%>)" id=bar<%=rs("sort_id")%>>小类</span></font></u></b></td></tr>
<tr id=submenu<%=rs("sort_id")%> style="DISPLAY: none;"><td bgcolor="#F0F0F0">
<%set rs8=server.CreateObject("adodb.recordset")
rs8.open "select * from venshop_nsort where sort_id="&id&"" ,conn,1,1
do while not rs8.eof and not rs8.bof%>
<p style="margin: 5px;"><a href="ad_delhwp.asp?nsort_id=<%=rs8("Nsort_id")%>"><%=rs8("Nsort_name")%></a>
<%rs8.movenext
loop
rs8.close
set rs8=nothing%>
</td></tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</table></td>
<td width="5" valign="top" align="center"> </td>
<td valign="top">
<table border="0" cellspacing="0" cellpadding="0" width="100%" class="st"><form name="form" method="post" action="ad_delhwp.asp?action=change">
<tr>
<td align="center" class="sa"><b>ID</b></td>
<td align="center" class="sa"><b>商品名称</b></td>
<td align="center" class="sa"><b>市场价</b></td>
<td align="center" class="sa"><b>会员价</b></td>
<td align="center" class="sa"><b>库存</b></td>
<td align="center" class="sa"><b>编号</b></td>
<td align="center" class="sa"><b>积分</b></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_hw where nsort_id=" + nsortid + " order by hw_id DESC"
elseif request("sort_id")<>"" then
sortid=request("sort_id")
sql="select * from venshop_hw where sort_id=" + sortid + " order by hw_id DESC"
elseif request("hw_name")<>"" then
hwname=request("hw_name")
sql="select * from venshop_hw where hw_name like '%"&hwname&"%' order by hw_id DESC"
elseif request("quehuo")="yes" then
sql="select * from venshop_hw where hw_kucun<=0 order by hw_id DESC"
else
sql="select * from venshop_hw 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
hwid=""
do while not rs.eof and (i<rs.pagesize)
i=i+1
hwid=hwid&"/"&rs("hw_id")
%>
<tr bgcolor=#ffffff><td align="center" bgcolor="#F0F0F0" class="s0"><%=rs("hw_id")%></td>
<td align="center" class="s1">
<input type="text" name="hw_name<%=rs("hw_id")%>" size="30" value="<%=rs("hw_name")%>"></td>
<td align="center" bgcolor="#F0F0F0" class="s0">
<input type="text" name="hw_price1_<%=rs("hw_id")%>" size="8" value="<%=rs("hw_price1")%>"></td>
<td align="center" class="s1">
<input type="text" name="hw_price2_<%=rs("hw_id")%>" size="8" value="<%=rs("hw_price2")%>"></td>
<td align="center" bgcolor="#F0F0F0" class="s0">
<input type="text" name="hw_kucun<%=rs("hw_id")%>" size="8" value="<%=rs("hw_kucun")%>"></td>
<td align="center" class="s1">
<input type="text" name="hw_sn<%=rs("hw_id")%>" size="8" value="<%=rs("hw_sn")%>"></td>
<td align="center" bgcolor="#F0F0F0" class="s0">
<input type="text" name="hw_jifen<%=rs("hw_id")%>" size="8" value="<%=rs("hw_jifen")%>"></td></tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<tr><td colspan="7" height="30">
<input type="hidden" name="hwid" size="5" value="<%=hwid%>">
<input type="submit" name="Submit" value="确认无误-执行修改" onClick="return scheck();">
</td></tr></form></table>
<script language=javascript>
function scheck()
{
if(!confirm('确认进行该操作吗？')) return false;
}
</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_delhwp.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_delhwp.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"-->