sclass.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="md5.asp"-->
<!--#include file="top.asp"-->
<%
dim language
language=request("language")
if language="" then
language=0
end if
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <tr> 
    <td colspan="2" align="center" class="banner">产品小类管理</td>
  </tr>
  <%
  dim brs
  set brs=server.CreateObject("adodb.recordset")
  brs.open "select * from Bclass where yy="&language&"",conn,1,1
  if brs.bof and brs.eof then
  %>
    <tr>
    <td colspan="2" align="center" class="tablebody">目前没有产品大类</td>
  </tr>
  <%else%>
  <tr>
    <td height="25" align="center" class="tablebody">&nbsp;&nbsp;产品大类&nbsp;|
	<%
	for i=1 to brs.recordcount
	if brs.eof then exit for
	if i mod 8=0 then
	response.Write("<br>&nbsp;|")
	end if
	%>
	<a href="?Bclassid=<%=brs("id")%>"><%=htmlcode(brs("BclassName"))%></a>&nbsp;|&nbsp;
	<%
	brs.movenext
	next	
	%>
	</td>
    <td width="30%" align="center" class="tablebody"><a href="?action=add&bclassid=<%=request("bclassid")%>">添加小类</a></td>
  </tr>
  <%
  end if
  brs.close
  set brs=nothing%>
</table>
<%
select case request("action")
case "del"
call del()
case "delall"
call delall()
case "add"
call add()
case "saveedit"
call saveedit()
case else
call normal()
end select

sub normal()
dim bclassid,sql,rs,strFileName
bclassid=request("bclassid")
strFileName="Sclass.asp?Language=" & Language & "bclassid=" & bclassid
pageno=15
if bclassid="" then
sql="select * from sclass,bclass where bclass.id=sclass.bclassid and yy="&language&" order by sclass.id desc"
else
sql="select * from sclass,bclass where bclass.id=sclass.bclassid and sclass.bclassid="&bclassid&" and yy="&language&" order by sclass.id desc"
end if
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="5" align="center" class="tablebody">目前还没有产品小类！</td>
  </tr>
   <%
  else
call showsql(pageno)
 %>
  <tr> 
    <td width="10%" height="25" align="center" class="tablebody">编号</td>
    <td align="center" class="tablebody">所属大类</td>
    <td align="center" class="tablebody">栏目名称</td>
    <td width="10%" align="center" class="tablebody">修改</td>
    <td width="10%" align="center" class="tablebody">删除</td>
  </tr>
  <%
rs.move(rsno)
for i=1 to loopno
  %>
   <tr> 
    <td height="25" align="center" class="tablebody"><%=rs("sclass.id")%></td>
    <td height="25" align="center" class="tablebody"><%=rs("BclassName")%></td>
    <td align="center" class="tablebody"><a href="productslist.asp?sclassid=<%=rs("sclass.id")%>"><%=htmlcode(rs("sclassName"))%></a></td>
    <td align="center" class="tablebody"><a href="?action=add&id=<%=rs("sclass.id")%>&bclassid=<%=rs("bclassid")%>">修改</a></td>
    <td align="center" class="tablebody"><a onClick="if (confirm('删除该大类将删除该类之下的数据，是否继续?')!=0){window.location='?action=del&id=<%=rs("sclass.id")%>'};" href="#">删除</a></td>
  </tr>
   <%
  rs.movenext
  next
  %>
  <tr> 
      <td colspan="5" align="right"  class="tablebody"><%call showpage(strFileName,rscount,pageno,false,true,"个类别")%></td>
  </tr>
  <% end if%>
</table>
<%end sub
sub add()
dim sclassName,id,bclassid,content
bclassid=checkStr(request("bclassid"))
if bclassid="" then
bclassid=1
end if
id=request("id")
if id<>"" then
if not isnumeric(id) then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
dim rs
set rs=conn.execute("select * from sclass where id="&clng(id))
if rs.bof and rs.eof then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
sclassName=rs("sclassName")
content=rs("content")
rs.close
set rs=nothing
end if
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <tr> 
    <td height="25" align="center" class="tablebody" colspan="2">
	<%if sclassName="" then 
	response.Write("栏目添加") 
	else
	response.Write("栏目修改") end if%></td>
  </tr>
  <form name="form1" method="post" action="?action=saveedit">
      <tr > 
      <td width="30%" align="center" class="tablebody">大类名称：</td>
      <td class="tablebody">
<select name="bclassid">
  <%
  set brs=server.CreateObject("adodb.recordset")
  brs.open "select * from Bclass",conn,1,1
  do while not brs.eof 
  %><option value='<%=brs("id")%>' <% if cint(bclassid)=brs("id") then response.Write("selected")%>><%=brs("bclassname")%></option>
  <%
  brs.movenext
  loop
  brs.close
  set brs=nothing
  %>
</select></td>
      </tr>
    <tr > 
      <td align="center" class="tablebody">小类名称：</td>
      <td class="tablebody"><input name="sclassName" type="text" id="adminname" value="<%=sclassName%>" maxlength="50"></td>
    </tr>
    <tr >
      <td align="center" class="tablebody">小类说明：</td>
      <td class="tablebody"><textarea name="content" cols="50" rows="5" id="content"><%=content%></textarea></td>
    </tr>
	<tr> 
      <td class="tablebody">&nbsp;</td>
      <td class="tablebody"><input type="hidden" name="id" value="<%=id%>"> <input type="submit" name="Submit" value="提交"> 
        <input type="reset" name="Submit2" value="重写"></td>
    </tr>
  </form>
</table>
<% end sub
sub saveedit()
dim id,sclassName,content
id=request("id")
sclassName=checkStr(request.Form("sclassName"))
content=checkStr(request.Form("content"))
if sclassName="" then
response.Write("<script>alert('栏目名称不能为空！');history.back()</script>")
response.End()
end if
if id="" then
'//判断栏目是否存在
dim rs
set rs=conn.execute("select id,sclassName from sclass where sclassName='"&sclassName&"'")
if not rs.eof then
response.Write("<script>if(confirm('该栏目已存在，是否删除该栏目数据？')!=0) window.location='sclass.asp?action=delall&sclassid="&rs("id")&"';else history.back()</script>")
response.end()
end if
rs.close
set rs=nothing
conn.execute("insert into sclass (sclassName,Content,bclassid,userid) values('"&sclassName&"','"&content&"',"&request("bclassid")&","&request.Cookies("admin")("userid")&")")
response.Write("<script>alert('添加成功！');location='sclass.asp'</script>")
response.End()
else
conn.execute("update sclass set sclassName='"&sclassName&"',content='"&content&"',bclassid="&request.Form("bclassid")&",userid="&request.Cookies("admin")("userid")&" where id="&clng(id))
response.Write("<script>alert('修改成功！');location='sclass.asp'</script>")
response.End()
end if
end sub

sub del()
dim id
id=request("id")
if id="" or not isnumeric(id) then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
conn.execute("delete from sclass where id="&clng(id))
response.Write("<script>alert('删除成功！');location='sclass.asp'</script>")
response.End()
end sub

sub delall()
dim sclassid
sclassid=request("sclassid")
if sclassid="" or not isnumeric(sclassid) then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
conn.execute("delete from Sclass where sclassid="&clng(sclassid))
response.Write("<script>alert('删除成功！');location='sclass.asp'</script>")
response.End()
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->