📄 adminproductlist.asp

📁 一个不错的个人商务网站的源码
💻 ASP
字号:
<%dim nowplace
nowplace="product"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<!--#include file="../comm/pages.asp" -->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>商品管理</title>
<link href=AdminStyle.css rel=stylesheet type=text/css>
<script language="javascript1.2" src="../comm/warning.js"></script>
<script language=javascript>
function showlist(dd,cc){
if(dd=="a"){
cc.style.display="none";
zk.style.display="none";
linkimg.style.display="none";
}
else if(dd=="b"){
cc.style.display="";
zk.style.display="none";
}
else if(dd=="c"){
cc.style.display="";
linkimg.style.display="none";
}
}
</script>
<SCRIPT LANGUAGE="JavaScript">
<!--

function checkinfo(){


	if (confirm("确定这样操作吗?")) {
		    return true;
	} 
    else{
      return false;
	}
}
//-->
</SCRIPT>
<script language="JavaScript">
/**
 * 对 checkbox 进行反向选择。
 */
function checkAll(box1) {
    var ids = document.getElementsByName("pid");
	if (ids != null) {
		for (i=0; i<ids.length; i++) {
			var obj = ids(i);
			obj.checked = box1.checked;
		}
	}
}
/**
 * 判断是否选择了 checkbox。
 */
function deleteCheckedMessage() {
    var checkCount = 0;
    var ids = document.getElementsByName("pid");

    for(i=0; i<ids.length; i ++) {
        if (ids(i).checked) {
            checkCount ++;
        }
    }

    if (checkCount == 0) {
        alert("请选中要删除的信息！");
        return false;

    } else {
        if (confirm("您确认要删除这 " + checkCount + " 条信息吗？")) {
            document.form1.submit();
            return true;
        } else {
            return false;
        }
    }
}

function chkCheckedMessage() {
    var checkCount = 0;
    var ids = document.getElementsByName("pid");

    for(i=0; i<ids.length; i ++) {
        if (ids(i).checked) {
            checkCount ++;
        }
    }

    if (checkCount == 0) {
        alert("请选中要审核的信息！");
        return false;

    } else {
        if (confirm("您确认要审核通过这 " + checkCount + " 条信息吗？")) {
            document.form1.submit();
            return true;
        } else {
            return false;
        }
    }
}
</script>
<%
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from small_class order by addtime desc"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rs.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rs("txt_small_class"))%>","<%= trim(rs("iid"))%>","<%= trim(rs("id"))%>");
        <%
        count = count + 1
        rs.movenext
        loop
        rs.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.form1.sid.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.form1.sid.options[document.form1.sid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</script>
<%rs.close
set rs=nothing%>
</head>
<body>
<table border="0" width="100%" id="table2" height="40" cellpadding="4" style="border-collapse: collapse">
	<tr>
		<td>显示 <select size="1" name="D1" onchange="if (this.options[this.selectedIndex].value==3) {void(null)} else {location=this.options[this.selectedIndex].value;}" onChange="openCopartner(copartner)">
		<option value=3>按商品类别筛选</option>
		<%dim sql,rs,sql1,rs1,v
		v=my_request("v",0)
		sql="select id,txt_big_class from big_class order by addtime"
		set rs=conn.execute (sql)
		do while not rs.eof
		
		    sql1="select id,txt_small_class from small_class where iid="&rs(0)&" order by addtime"
		    set rs1=conn.execute (sql1)
		    do while not rs1.eof
		%>
		<option value=AdminProductList.asp?sid=<%=rs1(0)%>&yqj=y><%=rs(1)%>>>><%=rs1(1)%></option>
		<%rs1.movenext
		loop
		rs1.close
		set rs1=nothing
		rs.movenext
		loop
		rs.close
		set rs=nothing
		%>
		</select>&nbsp;&nbsp;<font color="#0000FF"><u><a href="AdminProductList.asp?yqj=n&m=1"><font color="#0000FF"><u>只显示推荐</u></font></a></u></font>
		<font color="#0000FF"><a href="AdminProductList.asp?m=3&yqj=n"><u>
		<font color="#0000FF">只显示新品</font></u></a></font>
		<font color="#0000FF"><a href="AdminProductList.asp?m=2&yqj=n"><u>
		<font color="#0000FF">只显示特价</font></u></a></font>
		<font color="#0000FF"><a href="AdminProductList.asp?m=4&yqj=n"><u>
		<font color="#0000FF">只显示热门</font></u></a></font>
		<font color="#FF0000"><a href="AdminProductList.asp?yqj=x">
		<u>
		<font color="#FF0000">只显示未激活</font></u></a>
		<a href="AdminProductList.asp"><font color="#800000"><u>全部显示</u></font></a></font></td>
		<td>
		<p align="right">
		<img border="0" src="../images/note.gif" width="14" height="14" align="absmiddle"><b><a href="AdminProductAdd.asp"><span style="font-size: 14px">发布新商品信息</span></a></b></td>
	</tr>
</table>
<table border="0" width="100%" id="table3" cellpadding="3" style="border:1px solid #183789; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" height="57" cellspacing="1">
<form action="prop.asp" method=post name=form1 onsubmit="return checkinfo()">
	<tr>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">所属类别</span></b></font></td>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF">
		<span style="font-size: 14px"><b>ID</b></span></font></td>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">货号</span></b></font></td>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">商品名称</span></b></font></td>
		<td bgcolor="#DDDDDD" align="center" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">新品</span></b></font></td>
		<td bgcolor="#DDDDDD" align="center" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">特价</span></b></font></td>
		<td bgcolor="#DDDDDD" align="center" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">热门</span></b></font></td>
		<td bgcolor="#DDDDDD" align="center" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">推荐</span></b></font></td>
		<td bgcolor="#DDDDDD" align="center" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">激活</span></b></font></td>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<font color="#FFFFFF"><b>
		<span style="font-size: 14px">发布时间</span></b></font></td>
		<td bgcolor="#DDDDDD" align="left" height="25" background="Image/admin_bg_1.gif">
		<p align="center"><font color="#FFFFFF"><b><span style="font-size: 14px">操作</span></b></font></td>
	</tr>
	<%
	yqj=my_request("yqj",0)
	select case yqj
	case "y"
	sid=my_request("sid",1)
	    sql="select id,p_name,bid,sid,flag,issale,addtime,titlecolor,p_spec from yqj_product where sid="&sid&" order by addtime desc"
	case "n"
	m=cint(my_request("m",1))
	    sql="select id,p_name,bid,sid,flag,issale,addtime,titlecolor,p_spec from yqj_product where InStr(1,flag,"&m&") order by addtime desc"
	case "x"
	    sql="select id,p_name,bid,sid,flag,issale,addtime,titlecolor,p_spec from yqj_product where issale=2 order by addtime desc"
	case else
		sql="select id,p_name,bid,sid,flag,issale,addtime,titlecolor,p_spec from yqj_product order by addtime desc"
	end select
	set rs=server.createobject("adodb.recordset")
						  rs.open sql,conn,1,1
						  if rs.eof then 
						  response.write "<td colspan=11>对不起，没有符合条件的查询</td>"
                          else
rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")

    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
end if

i=1
while not rs.eof and i<=rs.pagesize
id=rs(0)
p_name=rs(1)
bid=rs(2)
sid=rs(3)
flag=rs(4)
issale=rs(5)
addtime=rs(6)
titlecolor=rs(7)
p_spec=rs(8)

if i mod 2=0 then
tcolor="#EEEEEE"
else
tcolor="#FFFFFF"
end if

		sql9="select txt_big_class from big_class where id="&bid
		set rs9=conn.execute (sql9)
		txt_big_class=rs9(0)
		rs9.close
		set rs9=nothing
		
		sql8="select txt_small_class from small_class where id="&sid
		set rs8=conn.execute (sql8)
		txt_small_class=rs8(0)
		rs8.close
		set rs8=nothing
%> 
	<tr>
		<td width="190" bgcolor=<%=tcolor%>><%=txt_big_class%>>><%=txt_small_class%></td>
		<td width="30" bgcolor=<%=tcolor%>><%=id%></td>
		<td width="48" bgcolor=<%=tcolor%>><%=p_spec%></td>
		<td width="178" bgcolor=<%=tcolor%>><a href="../product/ProductDetail.asp?id=<%=id%>" target=_blank><font color=<%=titlecolor%>><%=p_name%></font></a></td>
		<td width="41" align="center" bgcolor=<%=tcolor%>><%if InStr(1,flag,"3") then%><font color="#0000FF">√</font><%else%><font color="#FF3300">×</font><%end if%></td>
		<td width="44" align="center" bgcolor=<%=tcolor%>><%if InStr(1,flag,"2") then%><font color="#0000FF">√</font><%else%><font color="#FF3300">×</font><%end if%></td>
		<td width="39" align="center" bgcolor=<%=tcolor%>><%if InStr(1,flag,"4") then%><font color="#0000FF">√</font><%else%><font color="#FF3300">×</font><%end if%></td>
		<td width="42" align="center" bgcolor=<%=tcolor%>><%if InStr(1,flag,"1") then%><font color="#0000FF">√</font><%else%><font color="#FF3300">×</font><%end if%></td>
		<td width="38" align="center" bgcolor=<%=tcolor%>><%if issale=1 then%><font color="#0000FF">√</font><%else%><font color="#FF3300">×</font><%end if%></td>
		<td width="169" bgcolor=<%=tcolor%>><font color="#808080"><%=addtime%></font></td>
		<td width="99" align="center"><input type="checkbox" name="pid" value="<%=id%>"><a href="AdminProductModi.asp?id=<%=id%>&page=<%=page%>">修改</a></td>
	</tr>
			        <%
              rs.movenext
			i=i+1
		    wend
			%>
		<tr>
		<td colspan=11>
		<p align="right">
<input onclick="javascript: checkAll(this)" type="checkbox" value="checkbox" name="checkSelect">全选/全取消选择</td>
	</tr>
		<tr>
		<td colspan=11>
		<p align="right"><font color="#FF0000"><b>操作：</b></font><span style="background-color: #000000"><font color="#FFFFFF"><input type="radio" value="8" name="chflag" onClick='showlist("a",linkimg);'>热门</font></span><span style="background-color: #DDDDDD"><input type="radio" value="1" name="chflag" onClick='showlist("a",linkimg);'>新品</span><span style="background-color: #000000"><font color="#FFFFFF"><input type="radio" value="2" name="chflag" onClick='showlist("a",linkimg);'>特价</font></span><span style="background-color: #DDDDDD"><font color="#FFFFFF"><input type="radio" value="3" name="chflag" onClick='showlist("a",linkimg);'></font>推荐</span><span style="background-color: #000000"><font color="#FFFFFF"><input type="radio" value="4" name="chflag" onClick='showlist("a",linkimg);'>上架</font></span><span style="background-color: #DDDDDD"><input type="radio" value="5" name="chflag" onClick='showlist("a",linkimg);'>不上架</span><font color="#FFFFFF"><span style="background-color: #000000"><input type="radio" value="6" name="chflag" onClick='showlist("b",linkimg);'>转移类别</span><span style="background-color: #DDDDDD"><input type="radio" value="9" name="chflag" onClick='showlist("c",zk);'></span></font><span style="background-color: #DDDDDD">折扣转移</span><span style="background-color: #000000"><font color="#FFFFFF"><input type="radio" value="7" name="chflag" onClick='showlist("a",linkimg);'>删除</font></span> </td>
	</tr>
		<tr>
		<td colspan=11>
		<table border="0" width="100%" id="table5" cellspacing="0" cellpadding="0">
			<tr style='display:none' id="zk">
				<td>
				<p align="right">折扣比率（请填写小数，比如“3%”，填写“0.03”）：<input type="text" name="zklv" size="10" value="1" maxlength="6">&nbsp;
				<input type="checkbox" name="zkd" value="4">热门<input type="checkbox" name="zkd" value="3">新品<input type="checkbox" name="zkd" value="2">特价<input type="checkbox" name="zkd" value="1">推荐</td>
			</tr>
			<tr style='display:none' id="linkimg">
				<td>
				<p align="right">转移到：<select size="1" name="bid" onChange="changelocation(document.form1.bid.options[document.form1.bid.selectedIndex].value)">
		<option>请选择大类</option>
		<%sql="select id,txt_big_class from big_class order by addtime"
		set rs=conn.execute (sql)
		set id=rs("id")
		set big_class=rs("txt_big_class")
		do while not rs.eof
		%>
		<option value="<%=id%>"><%=big_class%></option>
		<%rs.movenext
		loop
		%>
		
		</select> <select name="sid" onChange="change(document.form1.sid.options[document.form1.sid.selectedIndex].value)" style='width:147;background-color:white;font-size:12;color:black; height:18' size="1"> 
<option selected>请选择小类</option></select></td>
			</tr>
			<tr>
				<td>
				<p align="right">
		<input type="submit" value="确定操作" name="B1" style="float: right"></td>
			</tr>
		</table>
		</td>
	</tr></form>
	</table>

<table border="0" width="100%" id="table4" cellspacing="1">
	<tr>
		<td><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%></td>
	</tr>
</table>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -