management.asp

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

<!-- #include file="setup.asp" -->
<%
validate "Login.asp",4
'----------------------------------------------读取价格名称--------------------------------------------

sql="Select FunctionInfo From Functions where FunctionID Between 13 and 15"
Set Rs = Conn.Execute(sql)
ProductI=Rs("FunctionInfo")
rs.movenext
ProductII=Rs("FunctionInfo")
rs.movenext
ProductIII=Rs("FunctionInfo")
rs.close
Set Rs = Nothing
if Request.ServerVariables("request_method")="POST" then
Send=trim(Request.Form("B1"))

Select case Send
	case "单项修改"
		editid=request.form("pid")
		if editid="" then error 2,"请选择产品后再点击修改！",""
		if instr(editid,",")>0 then error 2,"一次只能修改一个产品\n请返回重新选择！",""
		response.redirect "AddProduct.asp?menu=edit&id="&editid&"&Sortid="&request.form("Sortid")
    case "整页更新"
		for each nums in request.form("editid")
		if conn.execute("Select count(ProductID)from Product_Info where DelThis=False and ProductNum='"&trim(request.form("ProductNum"&nums))&"'")(0)>1 Then Error 2,"商品货号"&trim(request.form("ProductNum"&nums))&"不能重复！",""
		ProductI=trim(request.form("ProductI"&nums))
		ProductII=trim(request.form("ProductII"&nums))
		ProductIII=trim(request.form("ProductIII"&nums))
		if ProductI = "" Then ProductI = 0
		if ProductII = "" Then ProductII = 0
		if ProductIII = "" Then ProductIII = 0
		Conn.Execute("Update Product_Info Set ProductNum='"&trim(request.form("ProductNum"&nums))&"',ProductCnName='"&trim(request.form("ProductCnName"&nums))&"',ProductEnName='"&trim(request.form("ProductEnName"&nums))&"',ProductI="&ProductI&",ProductII="&ProductII&",ProductIII="&ProductIII&",ProductSf='"&trim(request.form("ProductSf"&nums))&"',ProductPacking='"&trim(request.form("ProductPacking"&nums))&"',ProductArrange="&trim(request.form("ProductArrange"&nums))&" where ProductID="&nums)
		next
    case "排序递增"
		Arrange=request.form("pid")
		Arrange1=request.form("pid1"&Arrange)
		i=Cint(request.form("ProductArrange"&Arrange))		
		if request.form("Sortid")="" then error 2,"搜索结果不可递增变量！",""
		if Arrange="" then error 2,"请选择递增起点！",""
		if instr(Arrange,",")>0 then error 2,"递增起点只能有一个\n请返回重新选择！",""
		if isnumeric(i)=false then error 2,Arrange1&"序号非法输入！\请重新填写！",""
		Set rs = Server.CreateObject("ADODB.Recordset")		
		sql="Select ProductArrange From Product_Info where ProductSort="&request.form("Sortid")&" and ProductConceal=false and DelThis=False order by ProductArrange"
		rs.open sql,conn,1,3
		Rs.Move Arrange1
		do while not rs.eof
			rs("ProductArrange")=i
			i=i+1
		rs.movenext
		loop
		rs.close
		Set Rs = Nothing
	case "加入拍卖"
		for each nums in request.form("pid")
		Sql="insert into Forced_sale(Forced_SendUs,Forced_SendUsid,Forced_Proid,Forced_ProName,Forced_NO,Forced_GX,Forced_BZ,Forced_Bimg,Forced_Simg)values('"&Request.Cookies("Username")&"',"&Request.Cookies("User")&","&nums&",'"&trim(request.form("ProductCnName"&nums))&"','"&trim(request.form("ProductNum"&nums))&"','"&trim(request.form("ProductSf"&nums))&"','"&trim(request.form("ProductPacking"&nums))&"','"&Conn.Execute("Select ProductImgII From Product_Info where ProductID = "&nums)(0)&"','"&Conn.Execute("Select ProductImgI From Product_Info where ProductID = "&nums)(0)&"')"

		Conn.Execute(Sql)
		conn.execute("update Product_Info set ProductConceal=true where ProductID="&nums)
		next
	case "隐 藏"
		for each nums in request.form("pid")
		conn.execute("update Product_Info set ProductConceal=true where ProductID="&nums)
		next
		Application(registered&"NewP")=""
    case "取消隐藏"
		for each nums in request.form("pid")
		conn.execute("update Product_Info set ProductConceal=false where ProductID="&nums)
		next
		Application(registered&"NewP")=""
	case "上新品架"
		for each nums in request.form("pid")
		conn.execute("update Product_Info set ProductNew=True where ProductID="&nums)
		next
		Application(registered&"NewP")=""
	case "下新品架"
		for each nums in request.form("pid")
		conn.execute("update Product_Info set ProductNew=False where ProductID="&nums)
		next
		Application(registered&"NewP")=""
    case "推 荐"
		   for each nums in request.form("pid")
			conn.execute("update Product_Info set ProductCommend=true where ProductID="&nums)
		   next
		   Application(registered&"Commend")=""
    case "取消推荐"
		   for each nums in request.form("pid")
			conn.execute("update Product_Info set ProductCommend=false where ProductID="&nums)
		   next
		   Application(registered&"Commend")=""
    case "删 除"
       for each nums in request.form("pid")
        conn.execute("update Product_Info set DelThis=true where ProductID="&nums)
       next
       Application(registered&"NewP")=""
    case "移动到"
       for each nums in request.form("pid")
		conn.execute("update Product_Info set ProductSort="&request.form("ProductSort")&" where ProductID="&nums)
       next
    case "搜 索"
       Search=request.form("Search")
       key=request.form("key")
       if Search="" then error 2,"请选择搜索选项！",""
       if key="" then error 2,"请输入要搜索的内容！",""
       Conn.Close
	   Set Conn = Nothing
       response.redirect "?menu=Search&Search="&Search&"&key="&key
end Select
end if



Call top
Call table()

id=Request.QueryString("id")
page=Request.QueryString("page")
Search=Request.QueryString("Search")
key=Request.QueryString("key")
menu=Server.HTMLEncode(Trim(Request.QueryString("menu")))%>
<script language=javascript>
function CheckAll(form){
	for (var i=0;i<form.elements.length;i++){
	var e = form.elements[i];
	if (e.name != 'chkall')e.checked = form.chkall.checked;
	}
}
function MM_jumpMenu(targ,selObj,restore){ //v3.0
if(selObj.options[selObj.selectedIndex].value!=""){
  eval(targ+".location='"+"?menu=ment&id="+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
}
</script>


<style type="text/css">
	TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
<!--
.unnamed1 {
	border-top: 1px solid #a4b6d7;
	border-right: 1px solid #a4b6d7;
	border-bottom: 1px solid #a4b6d7;
	border-left: 1px solid #a4b6d7;
	background-color: #FFFFFF;
}
-->
</style>



<form method="POST" name="form">
<table borderColor="#a4b6d7" border="1" cellSpacing="0" cellPadding="0" width="100%"  style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse" height="49">
<tr>
<td height="23" align="center" background=images/title_sub.gif width="975" colspan="3">
<b>
<%Select case Menu
case "Conceal"
Response.write "隐藏产品注意：如果您某种产品数量短缺,您可以将其暂时隐藏！"
case "Commend"
Response.write "推荐产品注意：请勿设置过多的推荐产品，这样会大大降低您的首页访问速度！一般以20-40个为宜。"
End Select%>
</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23" align="left" width="224"><b>&nbsp;<img src="images/2.gif" width="60" height="9">
<%
Select case Menu
case "ment"
sortname=conn.execute("Select SortCnName from Product_Sort where SortID="&id)(0)
Response.write sortname
case "Search"
Response.write "搜索结果"
case "Conceal"
Response.write "隐藏项目管理"
case "Commend"
Response.write "推荐项目管理"
end Select