www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/admin_products_smallclass.asp
<!--#include file="../Conn.asp" -->
<!--#include file="seeion.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" id="css" href="images/style.css">
<title>产品二级分类管理</title>
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" >
<tr>
<td height="30" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#0075a9">产品二级分类</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<div style="text-align:left; background-color:#F1F5F8; height:25px; padding:2px 10px 2px 10px;">
<select name="ssfl" id="jumpMenu" onChange="window.open(this.options[this.selectedIndex].value,'_self')">
<option>---产品大类---</option>
<%
dim rsk
set rsk=server.CreateObject("adodb.recordset")
rsk.open "select * from bigclass order by BigClassID asc",conn,1,1
response.Write("<option value=""?id="">查看全部</option>")
while not rsk.eof
response.Write("<option value=""?id=" & rsk("BigClassID") & """>" & rsk("BigClassName") & "</option>")
rsk.movenext
wend
rsk.close
set rsc=nothing
%>
</select></div>
<td bgcolor="#FFFFFF" class="td"><%
id= request.QueryString("id")
set rs=server.createobject("adodb.recordset")
if id<>"" then
exec="select * from smallclass where BigClassID="& id &" order by px_id asc"
else
exec="select * from smallclass order by px_id asc"
end if
rs.open exec,conn,1,1
if rs.eof then
response.write ("<div style=""padding:10px;"">暂无二级分类!</div>")
else
rs.PageSize =300 '每页记录条数
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
%>
<%
for i=1 to rs.pagesize
j=i
if j mod 2=0 then
bg="#F1F5F8"
else
bg="#FFFFFF"
end if
%>
</td>
</tr><%if session("qx")=2 then%>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>">
<td colspan="2"><table width="100%" border="0" cellpadding="5" cellspacing="0">
<form action="admin_products_Smallclass.asp?xiugai=ok" method="post" name="add">
<tr>
<td width="6%" height="30" class="td">ID：<%=rs("SmallClassID")%><input name="SmallClassID" type="hidden" size="15" value="<%=rs("SmallClassID")%>"/></td>
<td width="9%" height="25" class="td"><input name="SmallClassName" type="text" size="15" value="<%=rs("SmallClassName")%>"/></td>
<td width="12%" class="td">所属大类：
<select name="BigClassID" id="select">
<%
dim rsc
set rsc=server.CreateObject("adodb.recordset")
rsc.open "select * from bigclass",conn,1,1
while not rsc.eof
if rs("BigClassID")=rsc("BigClassID") then
response.Write("<option value=""" & rsc("BigClassID") & """ selected>" & rsc("BigClassName") & "</option>")
else
response.Write("<option value=""" & rsc("BigClassID") & """>" & rsc("BigClassName") & "</option>")
end if
rsc.movenext
wend
rsc.close
set rsc=nothing
%>
</select></td>
<td width="25%" class="td">关键词：
<input name="keywords" type="text" id="keywords" value="<%=rs("keywords")%>" size="30" /></td>
<td width="29%" class="td">描述
<input name="description" type="text" id="description" value="<%=rs("description")%>" size="30" /></td>
<td width="11%" class="td">排序：
<input name="px_id" type="text" value="<%=rs("px_id")%>" size="5" /></td>
<td width="4%" class="td"><input type="submit" name="button2" id="button2" value="修改" class="btn"/></td>
<td width="4%" class="td"><input type="button" name="Submit" value="删除" onClick="javascript:if(confirm('确定删除？删除后不可恢复!')){window.location.href='admin_products_Smallclass.asp?act=del&id=<%=rs("SmallClassID")%>';}else{history.go(0);}" class="btn"/></td>
</tr></form>
</table>
<%else%>
<div style=" padding:20px;font-size:14px; color:#990000; font-weight:bold; text-align:center">您没有权限操作！</div>
<%response.end
end if%>
<%
rs.movenext
if rs.eof then exit for
next
%>
<%
end if
%></td>
</tr>
</table></td>
</tr>
</table>
<div style="margin-top:10px">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" >
<form action="admin_products_Smallclass.asp?add=ok" method="post" name="add">
<tr>
<td height="30" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#0075a9">增加二级分类</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" >
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" >
<td width="34%" height="30" class="td">二级分类名称</td>
<td width="66%" class="td"><input name="SmallClassName" type="text" size="30" /></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" >
<td width="34%" height="30" class="td">所属大类</td>
<td class="td"><select name="BigClassID" id="select">
<%
dim rss
set rss=server.CreateObject("adodb.recordset")
rss.open "select * from bigclass",conn,1,1
while not rss.eof
response.Write("<option value=""" & rss("BigClassID") & """>" & rss("BigClassName") & "</option>")
rss.movenext
wend
rss.close
set rss=nothing
%>
</select></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td width="34%" height="8" class="td">排序ID</td>
<td class="td"><input name="px_id" type="text" size="30" />
数字越小越靠前。</td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="30" bgcolor="#F1F5F8" class="td">关键词</td>
<td bgcolor="#F1F5F8" class="td"><input name="keywords" type="text" id="keywords" size="30" />
不设置留空默认格式为：文章类别+网站名称</td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="30" class="td">描述</td>
<td class="td"><textarea name="description" cols="50" rows="5" id="description"></textarea>
不设置留空默认格式为：文章类别+网站名称</td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="30" class="td"> </td>
<td class="td"><label>
<input type="submit" name="button" id="button" value="增加分类" class="btn"/>
</label></td>
</tr>
</table></td>
</tr></form>
</table>
</div>
</body>
</html>
<%
if Request.QueryString("xiugai")="ok" then
id=request("SmallClassID")
sql="select * from smallclass where SmallClassID="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
IF not isNumeric(request("px_id")) then
response.write("<script>alert(""排序ID必须为数字！""); history.go(-1);</script>")
response.end
end if
rs("SmallClassName")=request.form("SmallClassName")
rs("BigClassID")=request.form("BigClassID")
rs("px_id")=request.form("px_id")
rs("keywords")=request.form("keywords")
rs("description")=request.form("description")
rs.update
rs.close
response.Write("<script language=""javascript"">alert(""当前分类修改成功！"");window.location.href='admin_products_Smallclass.asp';</script>")
end if
%>
<%
if request("act")="del" then
id=request("id")
if id="" then
Response.Write "<script language='javascript'>alert('参数错误!');document.location.href('admin_products_Smallclass.asp');</script>"
Response.End()
end if
set rs=server.createobject("adodb.recordset")
rs.open "Select * from smallclass where SmallClassID="&Request("id"),conn,1,3
if rs.bof and rs.eof then
Response.Write "<script language='javascript'>alert('数据库中没有该记录！');document.location.href('admin_products_Smallclass.asp');</script>"
Response.End()
else
rs.Delete
rs.Update
Response.Write "<script language='javascript'>alert('当前分类删除成功！');document.location.href('admin_products_Smallclass.asp');</script>"
end if
end if
%>
<%
if request("add")="ok" then
set rs=server.createobject("adodb.recordset")
sql="select * from smallclass"
rs.open sql,conn,1,3
SmallClassName=request.form("SmallClassName")
BigClassID=request.form("BigClassID")
px_id=request.form("px_id")
keywords=request.form("keywords")
description=request.form("description")
if SmallClassName="" then
response.Write("<script language=javascript>alert('二级分类名称不能为空!');history.go(-1)</script>")
response.end
end if
if px_id="" then
response.Write("<script language=javascript>alert('排序ID不能为空!');history.go(-1)</script>")
response.end
end if
IF not isNumeric(request("px_id")) then
response.write("<script>alert("" 错误！排序ID必须为数字！""); history.go(-1);</script>")
response.end
end if
rs.addnew
rs("SmallClassName")=SmallClassName
rs("BigClassID")=BigClassID
rs("px_id")=px_id
rs("keywords")=keywords
rs("description")=description
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
Response.Write "<script>alert('二级分类增加成功！');window.location.href='admin_products_Smallclass.asp';</script>"
end if
%>