productslist.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
If Cint(AdminGroup(2))<>1 then
Response.Redirect("Default.asp")
Response.End()
End If
%>
<!--#include file="top.asp"-->
<%
dim language,strFileName,sclassid
language=request("language")
if language="" then
language=0
end if
sclassid=request("sclassid")
strFileName="Productslist.asp?Language=" & Language & "&Sclassid=" & SclassiD
pageno=15
%>
<script language="javascript">
function change(v){
seltxt.innerHTML=v;
}
</script>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <tr> 
    <td height="25" colspan="2" align="center" class="banner">产品管理</td>
</tr>
  <%
  dim brs,srs,v(20)
  set brs=server.CreateObject("adodb.recordset")
  set srs=server.CreateObject("adodb.recordset")
  brs.open "select id,BclassName from Bclass where yy="&language&"",conn,1,1
  if brs.eof or brs.bof then
  %>
    <tr>
    <td colspan="2" align="center" class="tablebody">目前没有产品大类</td>
  </tr>
  <%else%>
  <tr>
    <td height="25" colspan="2" class="tablebody">&nbsp;&nbsp;&nbsp;产品大类:&nbsp;|
	<%
	dim j
	for j=1 to brs.recordcount
	v(j)=""
	if brs.eof then exit for	
	srs.open "select id,sclassname from sclass where bclassid="&brs("id")&"",conn,1,1
	if not srs.bof and not srs.eof then
	do while not srs.eof 
	v(j)=v(j)+"&nbsp;|&nbsp;<a href=?sclassid="&srs("id")&">"&srs("SclassName")&"</A>"
	srs.movenext
	loop
	end if
	srs.close
	if j mod 10=0 then
	response.Write("<br>&nbsp;|")
	end if
	if v(j)=""  then v(j)="暂无相关小类，请添加！"
	%>
	<a href="#" onMouseOver="change('<%=v(j)%>')"><%=htmlcode(brs("BclassName"))%></a>&nbsp;|&nbsp;
	<%
	brs.movenext
	next
	set srs=nothing
	brs.close
	set brs=nothing
	%>
	</td>
  </tr>
    <%
  end if
 %><tr><td class="tablebody">&nbsp;&nbsp;&nbsp;相关小类:<span id="seltxt"><%=v(1)%></span></td>
      <td width="20%" align="center" class="tablebody"><a href="addproducts.asp?sclassid=<%=sclassid%>">添加产品</a></td>
    </tr>
</table>
<table  border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
<form name="form2" method="post" action="?">
  <tr class="tablebody">
    <td height="25" align="center">产品搜索:&nbsp;
      关键字:&nbsp;<input name="key" type="text" id="key" maxlength="20">
&nbsp;		<select name="search" size="1">
        <option value="s_id" <%if request("px")="px_id" then%>selected<%end if%>>按型号</option>
        <option value="s_name" <%if request("px")="px_name" then%>selected<%end if%>>按名称</option>
      </select>
	  <input type="submit" name="Submit2" value="提交"></td>
  </tr>
  </form>
</table>
<%
select case request("action")
case "edit"
call edit()
case else
call normal()
end select
sub normal()
dim search
If request.Form("search")<>"s_id" then
search="pid"
else
search="pname"
end if
dim sql,rs
if sclassid="" then
sql="select * from sclass,products,bclass where sclass.id=products.sclassid and sclass.bclassid=bclass.id and bclass.yy="&language&""
else
sql="select * from sclass,products,bclass where sclass.id=products.sclassid and products.sclassid="&sclassid&" and sclass.bclassid=bclass.id and bclass.yy="&language&""
end if
if request.Form("key")<>"" then
sql=sql&" and products."&search&" like '%"&trim(request.Form("key"))&"%'"
end if
sql=sql&" order by products.id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rscount=rs.recordcount
%>
<table border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <%
   if  rscount<1 then
  %>
  <tr> 
    <td height="25" colspan="7" align="center" class="tablebody">
	<%If request.Form("key")<>"" then%>
	没有您所要的内容!
	<%
	else
	%>	
	目前还没有产品！
	<%
	End If
	%></td>
  </tr>
<%
else
%>
  <tr> 
    <td width="8%" height="25" align="center" class="tablebody">编号</td>
    <td width="18%" align="center" class="tablebody">所属小类</td>
    <td width="15%" align="center" class="tablebody">产品型号</td>
    <td align="center" class="tablebody">产品名称</td>
    <td width="10%" align="center" class="tablebody">是否推荐</td>
    <td width="8%" align="center" class="tablebody">修改</td>
    <td width="8%" align="center" class="tablebody">操作</td>
  </tr><form name="form2" method="post" action="?action=edit" onSubmit="return checkf(form2)">
  <%
call showsql(pageno)
rs.move(rsno)
for i=1 to loopno
%>
   <tr> 
    <td height="25" align="center" class="tablebody"><%=rs("products.id")%></td>
    <td height="25" align="center" class="tablebody"><%=rs("SclassName")%></td>
    <td height="25" align="center" class="tablebody"><%=rs("pid")%></td>
    <td align="center" class="tablebody"><%=htmlcode(rs("pName"))%></td>
    <td align="center" class="tablebody"><%if rs("elite")=1 then response.Write("<font color=red>√</a>") else response.Write("×") end if%></td>
    <td align="center" class="tablebody"><a href="addproducts.asp?action=add&sclassid=<%=rs("sclass.id")%>&id=<%=rs("products.id")%>">修改</a></td>
    <td align="center" class="tablebody">
      <input name="id" type="checkbox" id="id" value="<%=rs("products.id")%>">
    </td>
  </tr>
   <%
  rs.movenext
  next
  %><tr>
    <td height="25" colspan="7" align="right"  class="tablebody"><INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>
      &nbsp;全选
        
        <input type="submit" name="Submit" value="推荐">
        <input name="Submit" type="submit" id="Submit" value="取消推荐">
		<input name="Submit" type="submit" id="Submit" value="普通产品">
        <input name="Submit" type="submit" id="Submit" value="删除" onclick="SetSubmitImgId('realdel');">
        &nbsp;</td>
  </tr>
  </form>
  <tr><td class="tablebody" colspan="7"><%call showpage(strFileName,rscount,pageno,false,true,"个产品")%></td></tr>
  <% end if%>
</table>
<%end sub
sub edit()
dim id,sql
if request.form("id")="" then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
select case request("submit")
case "推荐"
sql="update products set elite=1 where id="
case "取消推荐"
sql="update products set elite=0 where id="
case "会员产品"
sql="update products set isuser=1 where id="
case "普通产品"
sql="update products set isuser=0 where id="
case "删除"
sql="delete from products where id="
case else
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end select
for each id in request("id")
conn.execute(sql&id)
next
dim ip
ip=Request.ServerVariables("HTTP_REFERER")
response.Write("<script>alert('操作成功！');location='"&ip&"'</script>")
response.End()
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->