management.asp

1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER /WIN9X+PWS 2. 数 据 库：Access2000

%></b> </td>
<td height="23" align="left" width="513" ><center>
<select size="1" name="Search">
<option value="">搜索选项</option>
<option value="ProductNum">货号</option>
<option value="ProductCnName">中文名称</option>
<option value="ProductEnName">英文名称</option>
</select>  <input type="text" name="key" size=20 maxlength=20> <input type="submit" value="搜 索" name="B1"> </center></td>
<td height="23" align="left" width="220">
<p align="right">       
<select name="menu1" onChange="MM_jumpMenu('parent.main',this,0)" ><option selected>&nbsp;类别跳转</option><%listsort%></select>
</td>
</tr>
</table>
<table width="100%" cellspacing=0 cellpadding=4 borderColor="#a4b6d7" border="1"  height="21" style="border-collapse: collapse"  bgcolor="#DDECFF">
<tr>
    <td height="1" align="center" width="5%">
<input type=checkbox name=chkall value=on onclick=CheckAll(this.form)></td>
    <td height="1" align="center" width="6%"> 
      <p align="center">货号</td>
    <td height="1" align="center" width="17%">中文名称</td>
    <td height="1" align="center" width="17%">英文名称</td>
    <td height="1" align="center" width="9%"><%=ProductI%></td>
    <td height="1" align="center" width="8%"><%=ProductII%></td>
    <td height="1" align="center" width="8%"><%=ProductIII%></td>
    <td height="1" align="center" width="11%">产品规格</td>
    <td height="1" align="center" width="12%">产品包装</td>
    <td height="1" align="center" width="7%"> 排序</td>
</tr>
</table>
<%

Select case menu
case "ment"
	sql="Select ProductID,ProductNum,ProductCommend,ProductArrange,ProductPacking,ProductCnName,ProductSf,ProductEnName,ProductImgI,ProductImgII,ProductI,ProductII,ProductIII From Product_Info where ProductSort="&id&" and ProductConceal=false and DelThis=False order by ProductArrange"
case "Search"
	sql="Select ProductID,ProductNum,ProductCommend,ProductArrange,ProductPacking,ProductCnName,ProductSf,ProductEnName,ProductImgI,ProductImgII,ProductI,ProductII,ProductIII From Product_Info where "&Search&" like '%"&key&"%' and DelThis=False"
case "Conceal"
	sql="Select ProductID,ProductNum,ProductCommend,ProductArrange,ProductPacking,ProductCnName,ProductSf,ProductEnName,ProductImgI,ProductImgII,ProductI,ProductII,ProductIII From Product_Info where ProductConceal=true and DelThis=False"
case "Commend"
	sql="Select ProductID,ProductNum,ProductCommend,ProductArrange,ProductPacking,ProductCnName,ProductSf,ProductEnName,ProductImgI,ProductImgII,ProductI,ProductII,ProductIII From Product_Info where ProductCommend=true and DelThis=False"
case "NewP"
	sql="Select ProductID,ProductNum,ProductCommend,ProductArrange,ProductPacking,ProductCnName,ProductSf,ProductEnName,ProductImgI,ProductImgII,ProductI,ProductII,ProductIII From Product_Info where ProductNew=true and DelThis=False  and ProductConceal=False order by ProductAddtime desc,ProductID desc"
end Select
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1
rs.pagesize=20
if page = "" Then page = 1
if page < 1 then page=1
if int(page) > rs.pagecount then page=rs.pagecount
num=rs.recordcount
maxpage=rs.pagecount
i=1
if rs.eof then
writeln "<center><br>此类尚无产品！</center>"
else
showonepage rs,page,i
end if
rs.close
%>

<table width="100%" cellspacing=0 cellpadding=0 borderColor="#a4b6d7" border="1"  height="14" style="border-collapse: collapse" >

<tr bgcolor="#FFFFFF" align="center">
<td height="1" valign="middle" colspan="2"  >
<p align="left">
<%if Search="" then%>
<input name="SortID" type="hidden" value="<%=id%>">
<%end if%>
<input type="button" value="增加产品" name="add" onClick="JavaScript:location.href='AddProduct.asp?menu=sort&sortid=<%= id %>&sortname=<%= sortname %>'">
<input type="submit" value="单项修改" name="B1">
<input type="submit" value="整页更新" name="B1">
<input type="submit" value="加入拍卖" name="B1">
<input type="submit" value="排序递增" name="B1">

<%if menu="NewP" then%>
	<input type="submit" value="下新品架" name="B1">
<%else%>
	<input type="submit" value="上新品架" name="B1">
<%end if%>


<%if menu="Conceal" then%>
	<input type="submit" value="取消隐藏" name="B1">
<%else%>
	<input type="submit" value="隐 藏" name="B1">
<%end if%>

<%if menu="Commend" then%>
	<input type="submit" value="取消推荐" name="B1">
<%else%>
	<input type="submit" value="推 荐" name="B1">
<%end if%>
<input type="submit" value="删 除" name="B1"><br>
<input type="submit" value="移动到" name="B1"> 
<select size="1" name="ProductSort">
<option value="">产品所在类别</option>
<%Response.write "<option value="&id&" selected>"&sortname&"</option>"
listsort%>
</select>

</td>
</tr>
<tr >
<td >页码:此类共有<%=num%>个产品,共有<%=maxpage%>页, 当前在<%=page%>页 &nbsp;跳转到第 <input type="text" name="pagel" size="2" maxlength=3 value=<%=page%>> 页 
<%
Select case Menu
case "ment"%>
<input name="go" type="button"  value="GO!" Onclick=javascript:location.href='?menu=ment&id=<%=id%>&sortname=<%=sortname%>&page='+form.pagel.value;>
<%case "Search"%>
<input name="go" type="button"  value="GO!" Onclick=javascript:location.href='?menu=Search&Search=<%=Search%>&key=<%=key%>&page='+form.pagel.value;>
<%case "Commend"%>
<input name="go" type="button"  value="GO!" Onclick=javascript:location.href='?menu=Commend&page='+form.pagel.value;>
<%case "Conceal"%>
<input name="go" type="button"  value="GO!" Onclick=javascript:location.href='?menu=Conceal&page='+form.pagel.value;>
<%case "NewP"%>
<input name="go" type="button"  value="GO!" Onclick=javascript:location.href='?menu=NewP&page='+form.pagel.value;>
<%end Select%>

</td>

<td align=right>
<%Select case Menu
case "ment"
npage="menu=ment&id="&id&"&sortname="&sortname&"&"
case "Search"
npage="menu=Search&Search="&Search&"&key="&key&"&"
case "Commend"
npage="menu=Commend&"
case "Conceal"
npage="menu=Conceal&"
case "NewP"
npage="menu=NewP&"
end Select

if page <> 1 then
	response.write "<a href=?"&npage&"page=1>第一页</a></font>&nbsp;"&_
	               "<a href=?"&npage&"page="&(page-1)&">上一页</a></font>&nbsp;"
end if
if page<>maxpage then
	response.write "<a href=?"&npage&"page="&(page+1)&">下一页</a>&nbsp;"&_
			"<a href=?"&npage&"page="&maxpage&">最后一页</a>"
end if
Set Rs = Nothing
%>
</td>
</tr>
</table>
</form>
<%

htmlend


sub showonepage(rs,page,i)
	rs.absolutepage=int(page)
	For ipage=1 to rs.pagesize
	rsToGbook rs,ipage,i
	rs.MoveNext
	if rs.EOF Then Exit For
	i=i+1
	Next
end sub

sub RsToGbook(rs,ipage,i)
if rs("ProductCommend") then zt="<font color=#ff0000>荐</font>"
%>	<table width="100%" cellspacing=0 cellpadding=0 height="21" style="border-collapse: collapse" borderColor="#a4b6d7" border="1" >
	<tr><td height="1" align="center" width="5%"><%=zt%><input name="editid" type="hidden" value=<%=rs("ProductID")%>><input type="checkbox" name="pid" value="<%=rs("ProductID")%>" class="unnamed1"><input name="pid1<%=rs("ProductID")%>" type="hidden" value=<%= i-21+page*20 %>></td>
	<td height="1" align="center" width="6%"><p align="center"><INPUT TYPE=text NAME=ProductNum<%=rs("ProductID")%> value="<%=rs("ProductNum")%>" size=5 maxlength=20 class="unnamed1"></td>
	<td height="1" align="center" width="17%"><INPUT TYPE=text NAME=ProductCnName<%=rs("ProductID")%> value="<%=rs("ProductCnName")%>" size=10 maxlength=20 class="unnamed1"></td>
	<td height="1" align="center" width="17%"><INPUT TYPE=text NAME=ProductEnName<%=rs("ProductID")%> value="<%=rs("ProductEnName")%>" size=10 maxlength=20 class="unnamed1"></td>
	<td height="1" align="center" width="9%"><INPUT TYPE=text NAME=ProductI<%=rs("ProductID")%> value="<%=rs("ProductI")%>" size=5 maxlength=10 class="unnamed1"></td>
	<td height="1" align="center" width="8%"><INPUT TYPE=text NAME=ProductII<%=rs("ProductID")%> value="<%=rs("ProductII")%>" size=5 maxlength=10 class="unnamed1"></td>
	<td height="1" align="center" width="8%"><INPUT TYPE=text NAME=ProductIII<%=rs("ProductID")%> value="<%=rs("ProductIII")%>" size=5 maxlength=10 class="unnamed1"></td>
	<td height="1" align="center" width="11%"><INPUT TYPE=text NAME=ProductSf<%=rs("ProductID")%> value="<%=rs("ProductSf")%>" size=7 maxlength=15 class="unnamed1"></td>
	<td height="1" align="center" width="12%"><INPUT TYPE=text NAME=ProductPacking<%=rs("ProductID")%> value="<%=rs("ProductPacking")%>" size=7 maxlength=15 class="unnamed1"></td>
	<td height="1" align="center" width="7%"><INPUT TYPE="text" NAME=ProductArrange<%=rs("ProductID")%> value="<%=rs("ProductArrange")%>" size=4 maxlength=9 class="unnamed1"></td></tr>
	</table>
<%end sub%>